Strato Mail geht nicht mehr

[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