Guten Tag Delphianer,
ich benutzte folgenden Code für das Anmelden am Mailserver:
Delphi-Quellcode:
Result := True;
pErrMsg := '
';
pHostName := edtMailHostName.Text;
// smtp.gmx.net oder mail.gmx.net ?
pPort := StrToInt(edtMailPort.Text);
// 25, 465 oder 587 ?
IdSSLIOHandlerSocketOpenSSL1.Destination := pHostName
+ '
:' + IntToStr(pPort);
IdSSLIOHandlerSocketOpenSSL1.Host := pHostName;
IdSSLIOHandlerSocketOpenSSL1.Port := pPort;
IdSSLIOHandlerSocketOpenSSL1.DefaultPort := 0;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv23;
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyMode := [];
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyDepth := 0;
if idsmtp1.Connected
then
idsmtp1.Disconnect(True);
try
idsmtp1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
idsmtp1.Host := pHostName;
idsmtp1.Username := edtMailBenutzerName.Text;
//meine-emailadresse@gmx.de
idsmtp1.Password := edtMailPassWort.Text;
// mein Passwort
idsmtp1.Port := pPort;
idsmtp1.UseTLS := utUseRequireTLS;
idsmtp1.Connect;
except
on E:
Exception do
begin
pErrMsg := e.
Message;
if idsmtp1.LastCmdResult.Code <> '
'
then
pErrMsg := idsmtp1.LastCmdResult.Text.Text
+ sLineBreak + '
--'
+ sLineBreak + pErrMsg;
Result := False;
end;
end;
idsmtp1.Disconnect(True);
Ich habe schon die unterschiedlichsten
Delphi-Quellcode:
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := ssLvSSLv2
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := ssLvSSLv23
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := ssLvSSLv3
IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := ssLvTLSv1
ausgeführt.
Ich kann verschiedene E-Mailserver,
wie Z.B. Kabelmail.de, Web.de, erreichen nur GMX will überhaupt nicht.
Bekomme immer die im Anhang begefügte Fehlermeldung.
Auch habe ich verschiedene Lösungen, wie sie hier zu finden sind, auspropiert.
Aber geholfen hat keines.
Aber es muss doch mit den
Indy-Componenten möglich sein.
Wie kann ich mich bei GMX anmelden.
Mit Gruß und vielen Dan für Eure Hilfe im Voraus
HPB