como dice GMAIL:
Cita:
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:
Cita:
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);
smtp.Name := 'Smtp';
with smtp do begin
AuthenticationType := atLogin;
Host := 'smtp.gmail.com';
port := 465;
Username := Password := end;
mail := TIdMessage.Create(Self);
with mail do begin
From.Address := Recipients.EMailAddresses := Subject := body.Text := end;
if FileExists( TIdAttachment.create(mail.MessageParts, try
smtp.Connect(10000);
try
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