Hola me he estado probando la libreria synapse con lazarus y me encontre con un ejemplo en la
wiki de freepascal el ejemplo que se llama "Sending email" asi que me lo copie para probarlo pero no me deja enviar el mensaje, no se exactamente cual es el error o porque no puedo enviarlo
Miren les dejo el ejemplo como lo estoy usando:
Código Delphi
[-]function 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:=true; if SMTP.Login then
begin
result:=SMTP.MailFrom(MailFrom, Length(MailFrom)) and SMTP.MailTo(MailTo) and
SMTP.MailData(sl);
SMTP.Logout;
end;
finally
SMTP.Free;
sl.Free;
end;
end;
var
miEmail,emailEnviar,password:string;
begin
miEmail:='miCorreo@hotmail.com';
password:='password';
emailEnviar:='otroCorreo@hotmail.com';
if SendMail(miEmail,password,miEmail,emailEnviar,'smtp.live.com','465','hola soy synapse') then
WriteLn('Mensaje envidado correctamente')
else
WriteLn('Fallo al enviar el mensaje');
ReadLn;
end.
Algo curioso es que cuando pongo el puerto 25 y descomento la linea
se logra logear pero no aun asi no me deja enviar el mensaje y se queda en la linea
Código Delphi
[-]SMTP.MailFrom(MailFrom, Length(MailFrom))
no se si alguien sabe porque es mi error o me esta faltando algo?