Enviar correo hotmail usando Synapse [Lazarus]

[bitbow]

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.

[bitbow]

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

Alguien acaba de intentar iniciar sesión en tu cuenta de Google,[email protected], en una aplicación que no cumple los estándares de seguridad modernos.
Te recomendamos encarecidamente que utilices una aplicación segura, como Gmail, para acceder a tu cuenta. Todas las aplicaciones creadas por Google cumplen estos estándares de seguridad. No obstante, si utilizas una aplicación menos segura, tu cuenta puede volverse más vulnerable.

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 := '[email protected]';
   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( '[email protected]',          //mailfrom
                        '[email protected]',             //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.

[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.