AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi SMTP Email versenden schlägt fehl
Thema durchsuchen
Ansicht
Themen-Optionen

SMTP Email versenden schlägt fehl

Ein Thema von BAMatze · begonnen am 16. Jun 2009 · letzter Beitrag vom 16. Jun 2009
 
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, 08: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
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz