Autenticacion de Google Mail

[Emilio_82]

Hola,

Tengo una aplicacion en la que quiero enviar mails. (NO HACER SPAM) Sino enviar mail a proveedores. Lo que quiero es que no pase a traves de outlook sino que de la misma aplicacion los envie.

Uso en el Form un TIdSMTP y TIdMessage de Indi. Y para enviar tengo el siguiente código.

Código Delphi [-]
procedure TForm_EnviarXMail.Btn_EnviarClick(Sender: TObject);
var
Mail: Variant;
ArchivoAdjunto: boolean;
begin

  StatusMemo.Clear;

  //setup SMTP
  SMTP.Host := Host;
  SMTP.Port := 465;

  //setup mail message
  MailMessage.From.Address := From;
  MailMessage.Recipients.EMailAddresses := E_Para.Text;  //+ ',' + ledCC.Text;

  MailMessage.Subject := E_Asunto.Text;
  MailMessage.Body.Text := E_Cuerpo.Text;

  if FileExists(ledAttachment.Text) then
    TIdAttachment.Create(MailMessage.MessageParts, ledAttachment.Text);

  //send mail
  try
    try
      SMTP.Connect(1000);
      SMTP.Send(MailMessage);
    except on E:Exception do
      StatusMemo.Lines.Insert(0, 'ERROR: ' + E.Message);
    end;
  finally
    if SMTP.Connected then SMTP.Disconnect;
  end;

Enviado:= True;
end;

Obviamente lo tome de un ejemplo. las variables están bien cargadas.
Pasa que google como casi todos los servidores necesitan autenticación.

¿Como autentico sin usar outlook?

Gracias desde ya por las respuestas.

[[AzidRain]]

Te falta poner algo en las propiedades user y password de SMTP. Así como lo pusiste SMTP.Connect siempre te genera una excepción pues no indicas ni usuario ni contraseña.

[Emilio_82]

Le agregue las lineas

Código Delphi [-]
  SMTP.Username:=From;
  SMTP.Password:=Pwd;

antes de

Código Delphi [-]
  SMTP.Connect(1000);

Cuando probe verificar en las cuentas si habia enviado no llego nada.

¿Que puede estar fallando?

[[AzidRain]]

tienes que activar el acceso POP (que es el que usa indy) en GMail para que te permita entrar, por defecto utiliza IMAP.

[Emilio_82]

Ya debo caer pesado, pero configure todo y me tira los sig.

EIDProtocolReplyError:
ERROR: 5.7.0 Must issue a STARTTLS command first. 4sm14204246yxq.9

El AuthenticatioType los puse en atLogin

Outgoing Mail (SMTP) Server - requires TLS:

smtp.gmail.com (use authentication)
Use Authentication: Yes
Use STARTTLS: Yes (some clients call this SSL)
Port: 465 or 587

[JXJ]

emilio_82

prueba con el demo que hizo roman


http://www.clubdelphi.com/foros/show...ighlight=gmail

para acceder a gmail necesitas usar ssl.