Mandar un email desde delphi

[[eduarcol]]

Ese codigo funciona solo en servidores POP, si buscas una cuenta yo te ayudo a configurar el codigo

[jorgegetafe]

Empezado por eduarcol

Ese codigo funciona solo en servidores POP, si buscas una cuenta yo te ayudo a configurar el codigo

Tengo una cuenta en gmail, creo que esa si que tiene POP gratuito no?

Si me pudieses ayudar con el código te lo agradecería enormemente.

[[eduarcol]]

como dice GMAIL:

Por favor, ten en cuenta que si tu cliente no admite la autenticación SMTP, no podrás enviar mensajes a través del cliente con tu dirección de Gmail.

pero podemos intentarlo, teniendo en cuenta estos parametros:

El servidor de correo entrante (POP3) requiere SSL: pop.gmail.com
Usar SSL: Sí
Puerto: 995

El servidor de correo saliente (SMTP) requiere TLS: smtp.gmail.com Usar autenticación
Usar autenticación Sí
Usar STARTTLS: Sí (en algunos clientes se denomina SSL)
Puerto: 465 o 587

Nombre de cuenta: tu nombre de usuario de Gmail (incluido @gmail.com).
Dirección de correo electrónico: tu dirección de correo electrónico completa de Gmail (nombredeusuario@gmail.com)
Contraseña: tu contraseña de Gmail

lo que me pone a dudar es el aunto de la SSL pero ahi vamos

Código Delphi [-]
procedure TForm1.Button1Click(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 := 'smtp.gmail.com';
    port := 465;
    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;

lo unico que te queda es colocar la informacion que te corresponde, direcciones de correo y contraseñas

[jorgegetafe]

Muchísimas gracias, voy a probar, luego te cuento ;-)

[jorgegetafe]

He modificado el código tal y como me has puesto en los comentarios, me salen unos errores que ni por asomo se solucionar, te muestro la imagen que creo que asi me explico mejor:

http://img236.imageshack.us/img236/6713/dibujoan3.jpg

gracias.

[[eduarcol]]

Por pura curiosidad:

¿Estas trabajando con archivos adjuntos?

En caso de ser negativa la respuesta,

¿Quitastes la referencia a codigo adjuntos?

[jorgegetafe]

Gracias de nuevo, ya he arreglado el fallo, no cambie una cosa que era necesario.

Ejecuto el programa y ni me muestra mensajes, ni errores ni nada, se queda trabajando y nunca acaba... :-(

Te pongo exactamente el codigo con las direcciones de correo falsas:

Código Delphi [-]
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdMessage, IdBaseComponent, IdComponent,
  IdTCPConnection, IdTCPClient, IdMessageClient, IdSMTP;
type
  TForm1 = class(TForm)
    Button1: TButton;
    IdSMTP1: TIdSMTP;
    IdMessage1: TIdMessage;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(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 := 'smtp.gmail.com';
    port := 465;
    Username := 'pepe@gmail.com';
    Password := 'contraseña';
  end;
  mail := TIdMessage.Create(Self);
  // CONFIGURACION DEL MENSAJE A ENVIAR
  with mail do begin
    From.Address := 'pepe@gmail.com';
    Recipients.EMailAddresses := 'pepe@gmail.com';
    Subject := 'Mensaje de prueba';
    body.Text  := 'Si estás leyendo esto es porque el mensaje ha llegado correctamente';
  end;
  //aDJUNTA EL ARCHIVO
  if FileExists('C:\Documents and Settings\Jorge\Escritorio\Mandar correo/hola.txt') then        // ruta del archivo a enviar
      TIdAttachment.create(mail.MessageParts,'C:\Documents and Settings\Jorge\Escritorio\Mandar correo/hola.txt');
  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;
end.

Gracias una vez más.