SMTP-Mail zum 100sten mal

[Sir Rufo]

Nochmal:

Wenn du dich über den Port 465 mit dem Mail-Server verbindest dann MUSS diese Verbindung verschlüsselt erfolgen. (Ich kann es leider nicht noch lauter schreiben).

Auszug aus meinem Code (aus dem Link)

Delphi-Quellcode:

  if Configuration.UseSSL
  then
    begin
      FSMTP.IOHandler := FSSLIOHandlerSocketOpenSSL; // <- SSL-IOHandler zuweisen
      if Configuration.UseStartTLS
      then
        begin
          FSMTP.UseTLS := utUseExplicitTLS; // <- UseTLS setzen
        end
      else
        begin
          FSMTP.UseTLS := utUseImplicitTLS; // <- UseTLS setzen
        end;
    end
  else
    begin
      FSMTP.IOHandler := nil; // <- wir brauchen keinen IOHandler
      FSMTP.UseTLS := utNoTLSSupport; // <- UseTLS setzen
    end;

Und hier die automatische Port-Einstellung aus meinem Code

Delphi-Quellcode:

TSendMailConfiguration = class
  private const
    DefaultPort = 25;
    DefaultImplicitTLSPort = 465;
    DefaultExplicitTLSPort = 587;
  ...
end;

procedure TSendMailConfiguration.SetDefaultPort;
begin
  if FUseSSL
  then
    begin
      if FUseStartTLS
      then
        FPort := DefaultExplicitTLSPort // 587
      else
        FPort := DefaultImplicitTLSPort // 465
    end
  else
    FPort := DefaultPort; // 25
end;