Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Otros entornos y lenguajes > Lazarus, FreePascal, Kylix, etc.
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo Hace 2 Semanas
Avatar de anubis
anubis anubis is offline
Miembro
 
Registrado: Mar 2007
Posts: 840
Poder: 10
anubis Va por buen camino
enviar email con lazarus desde gmail

Buenas,

Estoy intentando enviar un email desde lazarus usando este codigo:

Código Delphi [-]
function tform1.SendMail(User, Password, MailFrom, MailTo, SMTPHost, SMTPPort: string; MailData: string): Boolean;
var
  SMTP: TSMTPSend;
  sl:TStringList;
begin
  Result:=False;
  SMTP:=TSMTPSend.Create;
  sl:=TStringList.Create;
  try
    sl.text:=Maildata;

    SMTP.UserName:=User;
    SMTP.Password:=Password;
    SMTP.TargetHost:=SMTPHost;
    SMTP.TargetPort:=SMTPPort;
    SMTP.AutoTLS:=true;   //cuando comento esta linea y uso el puerto 25 si me logea
    if Trim(SMTPPort)<>'25' then
      SMTP.FullSSL:=false; // if sending to port 25, don't use encryption
    if SMTP.Login then
    begin
      SMTP.MailFrom(MailFrom, Length(MailFrom));
      SMTP.MailData(sl);
      result:= SMTP.MailTo(MailTo);
      SMTP.Logout;
    end;
  finally
    SMTP.Free;
    sl.Free;
  end;
end;

Tengo activado en gmail: activar aplicaciones menos seguras y ademas de tener las librerias adecuadas y actuales ssleay32.dll y libeay32.dll.
El resultado, despues de intentar varias cosa, es true, es decir, que teoricamente si envia el correo pero no llega nada.

Estoy usando synapse, asi que ya no se donde falla el invento.

Ya busque en varios post de este foro y en el foro de lazarus, pero no doy con el porqué no recibo los correos.

Alguien tiene alguna idea del porque no funciona?.

Gracias
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Enviar email gmail elguille Internet 2 19-05-2016 13:12:54
Enviar Email con Indy 10 y GMail ssl camino Internet 7 01-10-2012 22:58:25
enviar un correo desde ¿ yahoo, gmail ? avmm2004 Internet 1 24-01-2012 19:15:17
Sobre error para enviar email por gmail lduron Varios 8 23-11-2011 01:19:31
enviar un email desde delphi a hotmail o gmail abraham SQL 30 06-08-2007 17:46:20


La franja horaria es GMT +2. Ahora son las 03:26:39.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi