Strato Mail geht nicht mehr

[hhcm]

Gut wenn es nur Indy gibt und er das auch nutzt,
dann an die TIdSMTP Komponente ein TIdSSLIOHandlerSocketOpenSSL ranhängen und in diesem die SSLOptions konfigurieren. (Method und SSLVersions)

[Harry Stahl]

Also so wie ich das verstanden habe, wird nur TLS 1.1 und älteres nicht mehr unterstützt, aber TLS 1.2 sehr wohl.

Damit kann ich jedenfalls noch senden (und das unterstützt Indy ja auch).

Aber stimmt schon, ein Update auf 1.3 wäre auch dringend erforderlich, hoffe, dass EMBA da ein Auge drauf hat....

[skoschke]

Zitat:

OpenSSL für Indy:
https://github.com/IndySockets/OpenSSL-Binaries

die 1.02 habe ich ja, da wird kein 1.2 oder 1.3 unterstützt...

Ciao
Stefan

[skoschke]

Zitat:

Hier gibt es ähnliche Probleme:
https://www.delphipraxis.net/208456-...ml#post1493262

ja, Hinweise auf DLL's, aber die helfen unter Android wenig

Ciao
Stefan

[skoschke]

Zitat:

Sprechen wir von FMX und TIdSMTP ?

Korrekt!

Ciao
Stefan

[mjustin]

Zitat von skoschke:

Zitat:

OpenSSL für Indy:
https://github.com/IndySockets/OpenSSL-Binaries

die 1.02 habe ich ja, da wird kein 1.2 oder 1.3 unterstützt...

TLS 1.3 wird erst ab OpenSSL 1.1.1 unterstützt: https://www.admin-magazin.de/News/Op...tuetzt-TLS-1.3
TLS 1.2 wird seit OpenSSL 1.0.1 unterstützt: https://stackoverflow.com/questions/...ded-to-openssl (im März 2012 erschienen)

[skoschke]

Ich bekomme es nicht zum Laufen!
Hat jemand bitte ein paar Zeilen Beispielcode ?

Ciao
Stefan

[Klaus01]

.. in etwa so?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  smtp: TidSmtp;
  SSLIoHandler: TIdSSLIOHandlerSocketOpenSSL;
begin
  smtp := TIdSmtp.Create(nil);
  try
    smtp.Host := 'smtp.strato.de';
    smtp.Port := 465;
    smtp.Username := '';
    smtp.Password := '';
    SSLIOHandler := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
    SSLIOHandler.SSLOptions.Method := sslvTLSv1_2;
    SSLIOHandler.SSLOptions.Mode := sslmUnassigned;
    SSLIOHandler.SSLOptions.VerifyMode := [];
    SSLIOHandler.SSLOptions.VerifyDepth := 0;

    smtp.IOHandler := SSLIOHandler;
    smtp.Connect;
  finally
    smtp.Free;
    SSLIOHandler.Free;
  end;

Grüße
Klaus

[skoschke]

Danke, aber wenn ich das ( um eine Mail und Zugangsdaten erweitert) benutze, kann ich Mails versenden, ich möchte aber mit IDPOP3 Mails abholen!

Ciao
Stefan

[himitsu]

POP3?

Warum nicht SMTP?


TIdSMTP mit smtp.strato.de und Port 465

Zitat von himitsu:

Maaaaa ... meinte "Warum POP3 und nicht IMAP?"


TIdIMAP4 mit imap.strato.de und Port 993