[jmbarrio]

Buenas tardes, hasta hace poco tenia este código para enviar mails con Indy10 y funcionaba en delphi7
Pero con los nuevos cambios de protocolos y cifrados de microsoft ha dejado de funcionar.
¿Alguna otra alternativa?
Gracias, un saludo.

Código Delphi [-]
procedure EnviarMail(mensaje:string) ;
var IdSMTP1:TIdSMTP;
    SSLHandler:TIdSSLIOHandlerSocketOpenSSL;
    IdMessage1:TIdMessage;

begin
  IdSMTP1    := TIdSMTP.Create(nil);
  SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
  IdMessage1 := TIdMessage.Create(nil);
  IdSMTP1 := TIdSMTP.Create(nil);
  try
    SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdSMTP1);
    SSLHandler.SSLOptions.Method := sslvTLSv1;
    //SSLHandler.SSLOptions.Method := starttls;
    SSLHandler.SSLOptions.Mode   := sslmUnassigned;
    SSLHandler.PassThrough       := False;

    IdMessage1 := TIdMessage.Create(IdSMTP1);
    IdMessage1.From.Address := 'no_reply@gicl.es';
    IdMessage1.Recipients.EMailAddresses := 'josemigue@corrugadosgetafe.es';
    IdMessage1.Subject      := 'Capturador Acería Parado en GETAPPLICOM';
    IdMessage1.Body.Text    := mensaje;

    IdSMTP1.Host      := 'smtp.office365.com';
    IdSMTP1.Port      := 587;
    IdSMTP1.Username  := 'no@gcl.es';
    IdSMTP1.Password  := 'Wt4059';
    IdSMTP1.IOHandler := SSLHandler;
    IdSMTP1.UseTLS := utUseExplicitTLS;


    IdSMTP1.Connect;
    try
      IdSMTP1.Send(IdMessage1);
    finally
      IdSMTP1.Disconnect;
    end;
  finally
    IdSMTP1.Free;
  end;

end;