enviar un email desde delphi a hotmail o gmail

[abraham]

he consultado todos los hilos, y no me ha funcionado bien.
necesito algo senciillo y efectivo.


esos hilos utilizan outroo... y esas cosas, muy complejos y con errro,
lo unico q quiero es mandar un mensaje a un correo y listo

[[eduarcol]]

Vamos a ver si no pones de tu parte no creo que logres nada, estas dando la impresion de prepotencia, pero para que no se diga aqui va mi granito de arena

Código Delphi [-]
procedure TfrCorreo.Enviar;
var
  mail : TIDMessage;
  smtp : TIdSMTP;
begin
  smtp := TIdSMTP.Create(self);
  // ASIGNO EVENTOS
  smtp.Name := 'Smtp';
  // CONFIGURACION DEL SERVIDOR AL QUE SE ENVIA EL CORREO
  with smtp do begin
    AuthenticationType := atLogin;
    Host := //Aqui colocas la direccion del servidor de correo saliente;
    port := 25;
    Username := //Aqui colocas la direccion de correo desde la que enviaras el correo;
    Password := //Clave de dicha cuenta;
  end;

  mail := TIdMessage.Create(Self);
  // CONFIGURACION DEL MENSAJE A ENVIAR
  with mail do begin
    From.Address := //aqu iva la direccion de correo desde la que vas a enviar
    Recipients.EMailAddresses := //aqu iva la direccion de correo hacia la que vas a enviar
    Subject := //Asunto del correo
    body.Text  := //Texto del correo
  end;

  //aDJUNTA EL ARCHIVO
  if FileExists(//El archivo que vas a enviar) then
      TIdAttachment.create(mail.MessageParts,//Ruta del archivo que vas a enviar);

  try
    // CONEXION CON EL SERVIDOR DE CORREO
    smtp.Connect(10000);
    try
      // ENVIO DEL MENSAJE
      smtp.Send(mail);
    except
      on E: Exception do
         ShowMessage('Fallo al enviar: ' + E.Message);
    end;
    ShowMessage('Mensaje enviado satisfactoriamente');
  finally
    if SMTP.Connected then SMTP.Disconnect;
    smtp.free;
    mail.free;
  end;
end;

Este codigo esta 100% funcional, lee las pistas que te deje entre las lineas para que lo puedas adaptar

[abraham]

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
  mail : TIDMessage;
  smtp : TIdSMTP;
begin
  smtp := TIdSMTP.Create(self);
  // ASIGNO EVENTOS
  smtp.Name := 'Smtp';
  // CONFIGURACION DEL SERVIDOR AL QUE SE ENVIA EL CORREO
  with smtp do begin
    AuthenticationType := atLogin;
    Host :='INGENIERO_ABRAHAM@HOTMAIL.COM'; //Aqui colocas la direccion del servidor de correo saliente;
    port := 25;
    Username :='INGENIERO_ABRAHAM@HOTMAIL.COM';  //Aqui colocas la direccion de correo desde la que enviaras el correo;
    Password := 'XXXX'  //Clave de dicha cuenta;
  end;
  mail := TIdMessage.Create(Self);
  // CONFIGURACION DEL MENSAJE A ENVIAR
  with mail do begin
    From.Address := 'INGENIERO_ABRAHAM@HOTMAIL.COM'; //aqu iva la direccion de correo desde la que vas a enviar
    Recipients.EMailAddresses := 'INGENIERO_ABRAHAM@HOTMAIL.COM';//aqu iva la direccion de correo hacia la que vas a enviar
    Subject := 'hola'//Asunto del correo
    body.Text  := 'delphi'//Texto del correo
  end;
  //aDJUNTA EL ARCHIVO
 // if FileExists(//El archivo que vas a enviar) then
   //   TIdAttachment.create(mail.MessageParts,//Ruta del archivo que vas a enviar);
  try
    // CONEXION CON EL SERVIDOR DE CORREO
    smtp.Connect(10000);
    try
      // ENVIO DEL MENSAJE
      smtp.Send(mail);
    except
      on E: Exception do
         ShowMessage('Fallo al enviar: ' + E.Message);
    end;
    ShowMessage('Mensaje enviado satisfactoriamente');
  finally
    if SMTP.Connected then SMTP.Disconnect;
    smtp.free;
    mail.free;
  end;
end;

este:
undeclared identifier: 'Username'
q sera.?

[[eduarcol]]

estas son las uses que necesitas:

IdMessage, IdSMTP

Servidor de correo saliente no es igual a cuenta de usuario, con cuentas de correo http no te va a servir necesitas POP

[abraham]

compadre IdMessage, IdSMTP
estas librerias ya las tengo , se generaron solas

el error sigue persistiendo.

compadre, no me puedes mandar un ejemplo, con todo el codigo, te lo agradeceria mucho y disculpa tanta molestia.

[[eduarcol]]

Resuelve primero el incoveniente este, cuando lo tengas me das los datos y te ayudo a adaptarlo:

Empezado por eduarcol

con cuentas de correo http no te va a servir necesitas POP

, por favor usa las etiquetas para mostrar el codigo

[abraham]

MIS DATOS SON:

Yo voy a enviarlo a mi mismo emial

email: ingeniero_abraham@hotmail.com
o
tengo otro:
ingeniero_abraham@gmail.com

Nombre: Abraham de la Barrera

Clave: xxxx

COmpadre, no me puedes colaborar, acomodandolo a tu codigo, y si te funciona me envias todo el form.

Te lo agradeceria mucho.

[waly2k1]

Eduarcol, estimado colaborador, quizas parezca un poco prepotente esta persona como crees, pero no creo venga al caso. El tema es que no funciona el codigo, es mas probé este y varios ejemplos mas y hasta hoy en dia no logre mandar un email con attach, o soy bruto o los ejemplos no andan. La primera opcion descarto.. la segunda la analizo.

Lo que para uno es simple o estupidez, para otros puede ser muy compleja (depende de que lado de la mesa estas). Verlo desde un sillon comodo en tu casa es una cosa y tenerlo al gordo jefe encima y presionando es otra. Tampoco quiero ser grosero con nadie, pero bueh... en momentos de presion no todos la manejamos de la misma manera. Con la experiencia se aprende mas alla de saberse llevar, saberse 'manejar' sin que nadie te este metiendo un dedo...

No me parecio que haya sido prepotente y que no haya puesto esmero en resolverlo por si mismo, pero y si no pudo?, lo pensaste?. Es mas lo dejaste
en cola de espera o stand by. Quizás te molestó la 'chapa' de ingeniero pero bueno, los hay en todos lados, tampoco quiere decir que sepan programar!
Si tenias la solucion por que no se la diste ?.

Tambien va dirigido mi mensaje a los demas que hicieron mas de lo mismo.
Yo estoy hace pocos meses con Delphi, desarrollo cualquier cosa q se pueda desarrollar, con la base de datos que sea, pero tampoco soy Sr en todo, hay cosas que si los mataburros no te dan hay q recurrir a la web. Y si en lugar de respuestas concretas te generan dudas o incertidumbres, viejo te destruye el autoestima!!!

Bueno, tampoco reniego nada a nadie. Pero es la primera vez que veo una cosa así.


Saludos
Walter del pais de la 8 y 9 maravilla del mundo!