Enviar correo hotmail usando Synapse [Lazarus]
 

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;   //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
      result:=SMTP.MailFrom(MailFrom, Length(MailFrom)) and  //pero falla aqui
         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

Código Delphi [-]
 SMTP.AutoTLS:=true;

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?

Buenas.

No es la solución a tu problema, pero yo no usaría esta línea:

Código Delphi [-]
result:=SMTP.MailFrom(MailFrom, Length(MailFrom)) and  //pero falla aqui
         SMTP.MailTo(MailTo) and
         SMTP.MailData(sl);

En su lugar, usaría tres diferentes comprobando cada paso:

Código Delphi [-]
  IF NOT SMTP.MailFrom (MailFrom, Length (MailFrom)) THEN EXIT (FALSE);
  IF NOT SMTP.MailTo (MailTo) THEN EXIT (FALSE);
  IF NOT SMTP.MailData (sl) THEN EXIT (FALSE);

Aunque he puesto "EXIT (FALSE)" yo usaría una excepción o similar para indicar dónde se produjo el error.

Por otro lado, Hotmail no se caracteriza, precisamente, por ser un buen servidor de correos. Por lo que sé, es el que más problemas da, desde siempre.

Hola BDWONG, yo tenia un programa funcionando correctamente hace unos meses, pero ultimamente esta fallando, tambien uso synapse. Al intentar logearme no tengo problemas, el problema se presenta al enviar y parece ser un problema de seguridad en mi caso con los servidores gmail. Despues de un rato deje el tema or la paz pensando en que algo falta que actualicen en los componentes synapse.

Si logras solucionarlo, sigo a tento a tu post :).

Suerte, Saludos.

Revisando nuevamente el tema, gmail detecta el login y me envia el siguiente email:

Supongo que en algun otro server con menos restricciones si funcionara, te pongo el codigo del ejemplo que estoy usando.

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
  oSmtpClient: TSmtpClient;
begin
  oSmtpClient := TSmtpClient.Create;
  try
   oSmtpClient.ServerAddress := 'smtp.gmail.com';        // ->>>error:  oSmtpClient.ServerDomain := 'smtp.mandrillapp.com';
   oSmtpClient.ServerPort := '587';
   oSmtpClient.ServerLoginUsername := 'usuariouno@gmail.com';
   oSmtpClient.ServerLoginPassword := 'xxxxxx';
   oSmtpClient.MessageClear;
   oSmtpClient.BodyAsPlainText.Text := 'Plain body text.';
   oSmtpClient.BodyAsHtml.Text := 'Html body text';

   oSmtpClient.AutoTLS := True;
   oSmtpClient.FullSSL := True;
   oSmtpClient.StartTLS;

   if oSmtpClient.Send( 'usuariouno@gmail.com',          //mailfrom
                        'usuario@gmail.com',             //mailto
                        '',                          // copy to
                        '',                          // copy to
                        'Subject ... Buy more of our stuff' )    //Subject
                         then
          ShowMessage( 'Send ok' )
        else
          ShowMessage( 'Err: '+ oSmtpClient.SendResult );
  finally
    oSmtpClient.Free;
  end;
end;

Saludos.

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.

Gracias
 

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.

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

Saludos.