Saludos muchachos,
Tengo esta función en Delphi7 para enviar correo desde office365 y funciona perfecto, el problema es que cuando la llevo a delphi 10.4 no funciona, no me da ningun error simplemente el mensaje no llega a la bandeja de salida.
Si alguien puedes ver algún fallo favor ayudarme.
Nota: esta función utiliza la clase EASendMailObjLib_TLB, podría ser la del problema, pero les repito no me da ningún error y en delphi 7 funciona bien.
Código Delphi
[-]Function TfEnviarCorreo.SendEMailOffice365(vFromAdress, vSubject, vBody, vAttachment,
vFromName, vToAdress, vHost, vUserName, vPassword: String; vPort: integer): String;
var oSmtp : TMail;
begin
oSmtp := TMail.Create(Application);
oSmtp.LicenseCode := 'TryIt';
oSmtp.FromAddr := vFromAdress;
oSmtp.AddRecipientEx(vToAdress, 0);
oSmtp.Subject := vSubject;
oSmtp.BodyText := vBody;
oSmtp.ServerAddr := vHost;
oSmtp.ServerPort := vPort;
oSmtp.AutoConnect := true; oSmtp.UserName := vUserName;
oSmtp.Password := vPassword;
if oSmtp.SendMail() = 0 then
begin
Global.InsertGestion(qListaEmailEnviarCasoId.Text,
qListaEmailEnviarCodigoCliente.Text,
Date(),
FormatDateTime('HH:mm',time()),
FormatDateTime('HH:mm',time()),
UniMainModule.qParametrosGestionEnvioCorreo.text,
'Envio de correo electronico ('+fEnviarCorreo.eAsunto.Text+')',
qListaEmailEnviarCedulaDeudor.Text);
end
else
end;