Enviar correo hotmail usando Synapse [Lazarus]

[bitbow]

Listo!!!!


Revisando tu funcion, le hice algunos ajuste (ya despues vi que Ñuño Martínez te sugirio previamente el cambio).

Asi funciona perfecto >>

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;   //cuando comento esta linea y uso el puerto 25 si me logea
    if Trim(SMTPPort)<>'25' then
      SMTP.FullSSL:=true; // 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;

Lastima que procedimiento de envio sigue fallando.

Saludos.

[BDWONG]

Gracias a todos por la respuesta
Pues no he logrado corregir el problema no se si sea de parte de synapse, hotmail o alguna mala configuracion mia, voy a seguir intentado a ver si logro dar con la respuesta si lo hago comparto la solucion.

[bitbow]

Puedes realizar una prueba con gmail con la configuracion que puse, si esta funciona es que para hotmail hay que cambiar algo.

Saludos.