Einzelnen Beitrag anzeigen

skoschke

Registriert seit: 6. Jan 2009
523 Beiträge
 
Delphi 10.4 Sydney
 
#12

AW: SSL Mail funktioniert nach Umstellung von Berlin nach Rio nicht mehr

  Alt 10. Feb 2020, 08:51
Ja, Android 32 Bit

Was mir jetzt aufgefallen ist:
Eine Testfunktion zum Verbinden mit Posteingangs- und Ausgangsserver geht ohne Fehlermeldung, erst beim Senden kommt das CouldNotLoadSSLLibrary

Delphi-Quellcode:
var
  smtp: TIdSMTP;

    smtp := TIdSMTP.Create(nil);
    SSL := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    msg := TIdMessage.Create(nil);
    try
      smtp.ConnectTimeout := 60000;
      smtp.Host := 'smtp.1und1.de';
      smtp.Port := 465;
      smtp.Username := user;
      smtp.Password := pwd;
      SSL.Destination := 'smtp.1und1.de' + ':' + IntToStr(smtp.Port);
      SSL.Host := 'smtp.1und1.de';
      SSL.Port := smtp.Port;
      SSL.SSLOptions.Method := sslvTLSv1_2;
      smtp.IOHandler := SSL;
      smtp.UseTLS := utUseExplicitTLS;
      msg.CharSet := 'iso-8859-1';
      msg.Subject := 'Test';
      msg.Recipients.add.Address := mailadr;
      msg.FromList.add.Address := mailadr;
      msg.Body.Text := 'Das ist ein Test';
      smtp.Connect;
      smtp.Send(msg); // <-- hier knallt es
      smtp.DisConnect;
    except
.....
Ciao
Stefan
  Mit Zitat antworten Zitat