enviar un email desde delphi a hotmail o gmail

[abraham]

With IdMessage Do
Begin
Body.Clear;
Body.Add(Edit1.Text);
From.Text := '[email protected]';
Recipients.EMailAddresses := '[email protected]';
Subject := 'Monitoreo';
Priority := TidMessagePriority(mpHighest);
End;
With IdSMTP1 do
Begin
Username :='Jaime'; //nombre_usuario_cta_correo_saliente;
Password := '12345'// clase_cuenta;
Host := 'servidor smtp';
Port := 25;
try
Connect;
Try
Send(IdMessage);
Finally
Disconnect;
End;
ShowMessage('Se envio correo en forma correcta');
Except
On E: EIdProtocolReplyError Do
ShowMessage('E-Mail no se ha podido enviar');
On E: EFOpenError Do
Begin
ShowMessage('E-Mail no se ha podido enviar' + #13 +
'Fichero Adjunto desconocido o erróneo.');
end;
On E: EIdSocketError Do
Begin
ShowMessage('E-Mail no se ha podido enviar'+ #13 +
'Host desconocido o incorrecto.');
end
Else
ShowMessage('Fallo en el envio de email');
End;
If Connected Then Disconnect;
End;

[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 :='[email protected]'; //Aqui colocas la direccion del servidor de correo saliente;
    port := 25;
    Username :='[email protected]';  //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 := '[email protected]'; //aqu iva la direccion de correo desde la que vas a enviar
    Recipients.EMailAddresses := '[email protected]';//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: [email protected]
o
tengo otro:
[email protected]

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.