Anmeldung am Mailclient mit Indy für GMX

[HPB]

Guten Tag Delphianer,
ich möchte mich mit über die Indy-Componenten bei GMX anmelden.
Dazu habe ich folgenden Quellcode:

Delphi-Quellcode:

function TTMSFrmWorkstationEinstellen.MeldeAmMailServerAn: Boolean;
var
  pErrMsg: string;
begin
  pErrMsg := '';
  Result := True;
  if IdSMTP1.Connected then
    IdSMTP1.Disconnect(True);
  try
    IdSMTP1.Host := edtMailHostname.Text;
    IdSMTP1.Username := edtMailBenutzerName.Text;
    IdSMTP1.Password := edtMailPassWort.Text;
    IdSMTP1.Port := edtMailPort.IntValue;
    IdSMTP1.Authenticate;
    IdSMTP1.Connect;
  except
    on E: Exception do
    begin
      pErrMsg := e.Message;
      if IdSMTP1.LastCmdResult.Code <> '' then
        pErrMsg := IdSMTP1.LastCmdResult.Text.Text
          + #13#10 + '--'
          + #13#10 + pErrMsg;
      Result := False;
    end;
  end;
end;

// Eine Testmail senden
procedure TTMSFrmWorkstationEinstellen.SendeEineTestMail;
begin
  if MeldeAmMailServerAn then
  begin
    IdMessage1.Clear;
    IdMessage1.MessageParts.Clear;
    IdMessage1.Date := Now;
    IdMessage1.CharSet := 'ISO-8859-1';
    IdMessage1.ContentType := 'multipart/related + multipart/mixed + text/plain '
      + '+ text/html + multipart/alternative + application/pdf ';
    IdMessage1.From.Text := edtMailAdresse.Text;
    IdMessage1.Sender.Text := edtMailAdresse.Text;
    IdMessage1.Recipients.EMailAddresses := '[e-mail]';
    //edtMailAdresse.Text;
    IdMessage1.Subject := 'Testmail';
    IdMessage1.Body.Text := 'Sehr geehrte Damen und Herren, ';

    try
      IdSMTP1.Send(IdMessage1);
      Application.MessageBox('Die Testmail wurde versandt!',
        'BPS WaWi . . .', MB_OK + MB_ICONINFORMATION);
    except on E: Exception do
        MessageDlg('Fehler beim Senden: ' + E.Message, mtError, [mbOK], 0);
    end;
  end
  else
  begin
    Application.MessageBox('Die Anmeldung am Server ist fehlgeschlagen!',
      'BPS WaWi . . .', MB_OK + MB_ICONSTOP);
  end;
  IdSMTP1.Disconnect(True);
end;

Ich bekomme nur die Fehlermeldung "Die Anmeldung am Server ist fehlgeschlagen!"
Die Exception in der Anmeldefunktion wird nicht ausgelöst.
Die Übergabedaten für die Konteneinstellung sind von GMX übernommen. Siehe auch die Anlage.
Müssen noch Daten an Indy übergeben werden??
Mit Gruß
HPB

[mkinzler]

Stimmt die Art der Authentifizierung?

http://www.indyproject.org/KB/index....entication.htm

[Klaus01]

.. auch geht der Zugang zu GMX, Web.de u.a. nur noch über TLS/SSL.

Grüße
Klaus

[mkinzler]

Zitat von Klaus01:

.. auch geht der Zugang zu GMX, Web.de u.a. nur noch über TLS/SSL.

Grüße
Klaus

Port 995, wie man im Screenshot auch sieht.

[Sir Rufo]

Man sieht aber nicht ob die SSL Komponente verwendet wird und OpenSSL erreichbar ist.

sehr ähnliches Problem/Lösung http://www.delphipraxis.net/1139002-post10.html

[HPB]

Zitat von mkinzler:

Stimmt die Art der Authentifizierung?

http://www.indyproject.org/KB/index....entication.htm

Danke für den Hinweis. Da war ein Fehler. Habe ich aber bereits behoben.

Mittlerweile habe ich mich hieraufgestürtzt:
http://www.delphipraxis.net/174452-x...nt-senden.html

Delphi-Quellcode:

function TTMSFrmWorkstationEinstellen.SSLVerifyPeerEventHandler(
  Certificate: TIdX509; AOk: Boolean; ADepth, AError: Integer): Boolean;
begin
  Result := AOK or
    // Selbsterstellte Zertifikate akzeptieren
    (AError = X509_V_ERR_DEPTH_ZERO_SELF_SIGNED_CERT);
end;

Diese function kann nicht compiliert werden.
Fehler: E2003 Undeklarierter Bezeichner: .....
Die Unit IdSSLOpenSSL ist eingebunden.

Langsam verzweilfel ich. Irgendwo muss doch der Fehler sein.
Mit Gruß
HPB

[HPB]

Zitat von Sir Rufo:

Man sieht aber nicht ob die SSL Komponente verwendet wird und OpenSSL erreichbar ist.

sehr ähnliches Problem/Lösung http://www.delphipraxis.net/1139002-post10.html

Vielen Dank Sir Rufo,
werde ich mir mal genauer ansehen.
Gruß
HPB

Nochmals vielen Dank an alle die bei der Lösung behilflich waren.
Die Lösung von Sir Rufo hat zum Erfolg geführt.
HPB