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; if Trim(SMTPPort)<>'25' then
SMTP.FullSSL:=false; 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