Strato Mail geht nicht mehr

[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

[Klaus01]

.. im ersten Post stand etwas von versenden.

Der IOHandler ist bei TidPop3 ähnlich zu verwenden wie hier gezeigt.

Port dann 995 und pop3.strato.de
Grüße
Klaus