Einzelnen Beitrag anzeigen

BAMatze

Registriert seit: 18. Aug 2008
Ort: Berlin
759 Beiträge
 
Turbo Delphi für Win32
 
#1

SMTP Email versenden schlägt fehl

  Alt 16. Jun 2009, 09:43
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
  Mit Zitat antworten Zitat