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