Hallo und guten Morgen an alle
DP´ler,
Hab jetzt mal ein wenig Zeit und wollte mich in Erinnerung an die DT mal mit dem Thema
Indy beschäftigen und bin gerade dabei eine TestMail über Yahoo zu verschicken. Das Verbinden funktioniert auch ohne Probleme, allerdings kommt ein Fehler wenn das Send(idMessage) ausführe. Ich hab im Internet mal Gegoogled und auch mehrere Ports gefunden, die in frage kommt. Ich weiß aber auch, dass in der Veranstaltung auf den DT darauf hingewiesen wurde, dass man bestimmte Einstellungen machen muss. Leider kann ich mich nicht mehr genau daran erinnern.
Vieleicht sieht ja jemand wo der Fehler liegt.
Delphi-Quellcode:
//Configure SMPTP
SMTP.Host := '
smtp.mail.yahoo.de';
SMTP.Username := Username;
SMTP.Password := Pw;
SMTP.Port := 587;
// welcher ist das bei Yahoo?
// in Google habe ich den Hinweis gefunden, dass anstelle des Ports 25 der Port 587 verwendet
// werden soll. Allerdings gibt es bei beiden die Fehlermeldung, dass keine Email versendet
// werden konnte.
//Configure idMessage
idMessage.From.Text := '
Test';
idMessage.Sender.Text := '
Test';
idMessage.Recipients.EMailAddresses := Empfaengermail;
idMessage.Subject := '
Test';
idMessage.Priority := TIdMessagePriority(mpHigh);
idMessage.CCList.EMailAddresses := '
';
idMessage.BccList.EMailAddresses := '
';
idMessage.ReceiptRecipient.Text := '
';
idMessage.Body.Clear;
idMessage.Body := TestStringList;
//Send E-Mail
Try
SMTP.Connect;
SMTP.Send(idMessage);
//<--- hier tritt der Fehler auf
SMTP.Disconnect;
Except
If SMTP.Connected = True
Then
Begin
Try
SMTP.Disconnect;
Except
MessageDlg('
Could not disconnect from the E-Mail Server: ' + '
smtp.mail.yahoo.de', mtError, [mbOK], 0);
End;
End;
MessageDlg('
Could not send E-Mail to: ' + Empfaengermail, mtError, [mbOk], 0);
End;
//Destroy TIdSMTP and TIdMessage Componente
SMTP.Free;
idMessage.Free;
end;
Der Quellcode ist nicht von mir sondern habe ich hier gefunden. Es scheint noch ein Fehler bei der idMessage zu geben, da sich mit Yahoo verbunden wird
Hier mal ein paar Quellen, die ich gefunden hab:
Originalthreat von dem der Quellcode stammt
Änderung Port (ist aber älter, kann sich also auch wieder geändert haben)
Vielen Dank
BAMatze
2. Account Sero