Hallo,
das Ganze läuft über "TIdOpenSSL". Die Komponente in der
IDE anlegen und mit "TIdSMTP" bzw. "TIdPOP" verknüpfen.
Die OpenSSL Dateien "libeay32.dll" und "ssleay32.dll" müssen installiert sein (System) oder im Programm-Ordner liegen.
Ggf. muss "UseTLS" und die "Ports" für SSL angepasst werden. Je Nachdem was der Mail-Server verlangt.
Viele Grüße
Delphi-Quellcode:
Standard/gebräuchliche Ports:
POP3, Standard = 110
POP3, SSL = 995
SMTP, Standard = 25 oder 587
SMTP, SSL = 25 oder 587
IMAP, Standard = 143
IMAP, SSL = 993
Delphi-Quellcode:
...
Info: Die Variablen MyUseSSL und MySSLType werden im Vorfeld definiert.
...
with IdPOP do
begin
if MyUseSSL = TRUE then
begin
{ Mit SSL }
IOHandler := IdOpenSSL ;
if MySSLType = 'Explicit' then UseTLS := utUseExplicitTLS ;
if MySSLType = 'Implicit' then UseTLS := utUseImplicitTLS ;
if MySSLType = 'Require' then UseTLS := utUseRequireTLS ;
end
else
begin
{ Ohne SSL }
IOHandler := nil ;
UseTLS := utNoTLSSupport ;
end ;
{ Anmelden }
Connect ;
end ;