IdSMTP

[Alterauge]

Delphi-Quellcode:

procedure TForm5.AdvGlowButton10Click(Sender: TObject);
begin
Form5.Close;
FormEinsatz.Email.Enabled:=true;
IdSMTP1.Host := '*******';//mx.freenet.de
IdSMTP1.Username:='******';
IdSMTP1.Password:='******';
IdSMTP1.Port:= 25;
IdMessage1.from.text:='';//Absender E-Mail
IdMessage1.sender.text:='';Absender
IdMessage1.Recipients.EMailAddresses:='';Empfänger E-Mail
IdMessage1.Subject:='Test';//Betreff

IdSMTP1.Connect;
IdSMTP1.Send(IdMessage1);
IdSMTP1.DisConnect;
end;

Was mache ich hier falsch?
Button wird gedrückt, und es passiert nix!

Fehler:
Erste Gelegenheit für Exception bei $75DD9673. Exception-Klasse EIdSMTPReplyError mit Meldung
'auth failure

?????

[Luckie]

Zitat:

auth failure

Da wird wohl die Anmeldung fehlschlagen. Eventuell musst du dich bei Freenet erst per POP3 authentifizieren. Und ein try-except-Block könnte da wohl auchnicht schaden.

[Alterauge]

Wie könnte sowas aussehen?
Hast Du vielleicht ein Beispiel?

Gruß Andre

[Sir Rufo]

Manchmal soll es ja auch helfen, wenn man beim Provider nachschaut auf welchem Port der SMTP-Server reagiert
http://kundenservice.freenet.de/hilf...ung/index.html

[Alterauge]

Delphi-Quellcode:

procedure TForm5.PostTimer(Sender: TObject);
var fehler:Boolean;
begin
idmessage1.Clear;
idSMTP1.Host   := 'mail.oesoft.de';
idSMTP1.Port   := 25;    // in der Regel
idSMTP1.AuthType:=satDefault;   // idSMTP1.AuthType:=satNone, wenn keine Authentifizierung benötigt wird;

// wenn Authentifizierung benötigt wird, was ja heute die Regel ist
idsmtp1.Username:='********';   // für das E-Mail Konto
idsmtp1.Password := '*******';

idMessage1.From.address:='*********';
idMessage1.Recipients.EMailAddresses := '********';
idMessage1.bcclist.EMailAddresses:='';
idMessage1.cclist.EMailAddresses:='';
idMessage1.Subject:='Betreff';
idMessage1.ContentType := 'text/plain';
idMessage1.Body.clear;
idMessage1.Body.text:='Ihre Nachricht';
try
try
idSMTP1.Connect();
IdSMTP1.Authenticate;      // nicht zwingend
if idSMTP1.Connected then
idSMTP1.Send(idMessage1);
except on E:Exception do
begin
showmessage(e.Message);
fehler:=True;
end;
end;
finally
if idSMTP1.Connected then
idSMTP1.Disconnect;
end;
if fehler=false then
showmessage('Push Notifications wurde erfolgreich versandt');

end;

Habe jetzt alles versucht?
Es wird keine E-Mail gesendet, und das Programm ist für ca. 10 sec. ohne Funktion! (es lassen sich keine Button drücken usw.)

Was mache ich falsch!

[Sir Rufo]

Du liest nicht

Frage: Kann der SMTP-Server von Freemail auf dem Port 25 angesprochen werden?

[Alterauge]

Es funktoniert nicht!
Habe auch den Port geändert!

Bin einfach zu blöd?

[shmia]

Zitat von Sir Rufo:

Frage: Kann der SMTP-Server von Freemail auf dem Port 25 angesprochen werden?

Du musst anderst fragen.
Welchen Port solltest du anstelle Port 25 verwenden nachdem du die Doku gelesen hast?

Zusatzfrage:
Hast du mit Hilfe von telnet.exe (oder einem vergleichbaren Tool) getestet, ob der Server auf dem Port überhaupt antwortet?
Hinweis:
mit telnet delphipraxis.de 80 lässt sich z.B. testen ob der Server delphipraxis.de auf Port 80 antwortet.