enviar un email desde delphi a hotmail o gmail

[abraham]

ha compadre blue..

muchas gracias por el codigo. esto es lo que yo necesito, algo interno, q el usuario no se de cuenta ,. osea, sin utilizar outrus.. ni nada de esas cosas

compadre, me sale undefine o algo asi en :
y creo q las q le siguen tambien

username := nombre_usuario_cta_correo_saliente;

estas q son variables o propiedades

[ContraVeneno]

A caray
No veo a nadie a quien parezca le hay incomodado tu comentario. Si te refieres a mi, por la forma en que conteste, solo estaba tratando de señalar que ClubDelphi.Com tiene una opción de búsqueda para encontrar temas que ya hayan sido tratados anteriormente. Así no habría necesidad de abrir el mismo hilo 10 veces.

Al igual que en el otro hilo, mi intesión es hacer notar que la ayuda de delphi esta muy bien documentada, con explicaciones y ejemplos.

vamos, que cuando tengas una duda, lo primero que hay que hacer es buscar en la ayuda de delphi presionando F1, si eso no resuelve tu duda, puedes buscar aquí en el foro y si siguen sin encontrar, con toda confianza puedes abrir un tema nuevo, que como te podrás dar cuenta, siempre abrá alguien dispuesto a ayudarte.

respecto a tu pregunta, según veo, son variables.

De cualquier manera, revisa este enlace.

Saludos.

[[eduarcol]]

En primero a nadie le incomoda tu mensaje, lo que te quisieron aclarar es que el tema ya se ha tocado reiteredamente en los foros, con respecto al error que te sale es que debes cambiar nombre_usuario_cta_correo_saliente por el nombre del usuario por medio del cual enviaras el correo

Edito: Escribi al mismo tiempo que contraveneno, por cierto lee un poco la guia de estilo para que veas como te podemos ayudar un poco mas en tus preguntas

[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