AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi SMTP bei web.de funktioniert nicht
Thema durchsuchen
Ansicht
Themen-Optionen

SMTP bei web.de funktioniert nicht

Ein Thema von Stread · begonnen am 10. Nov 2011 · letzter Beitrag vom 17. Jan 2012
 
Stread

Registriert seit: 25. Jun 2011
23 Beiträge
 
Delphi XE Architect
 
#1

SMTP bei web.de funktioniert nicht

  Alt 10. Nov 2011, 23:50
Hi,
ich kann mit meinem Programm schon E-Mails über Googlemail versenden.
Wie von Gmail gewünscht über Auth SMTP und TLS. in Delphi IdSSLIOHandlerSocketOpenSSL1

Wenn ich das gleiche nun bei web.de probiere scheitere ich an einem SMTPReplyError mit der Meldung Sytax Error und es stoppt vor SMTP1.Send
Ich habe aus älteren Threads gelesen dass man sich mit Pop3 Authentifizieren soll.
Ich kenne mich da nicht so aus und habe mal was probiert aber damit hängt sich mein Programm auf und das Pop3 Disconnected anscheinend nicht mehr.

Delphi-Quellcode:
begin
 SmtpServerName:=FormServ.Edit1.Text;
 SmtpServerPort:=StrToInt(FormServ.Edit2.Text);
 SmtpServerUser:=FormServ.Edit3.Text;
 SmtpServerPassword:=FormServ.Edit4.Text;
 UserEmail:=Self.Edit5.Text;
 UserName:=FormServ.Edit6.Text;
 Betreff:=Self.Edit7.Text;
 Eigenemail:= FormServ.Edit9.Text;
 CC:=Self.Edit4.Text;
 BCC:=Self.Edit9.Text;

 Pop3Port:=StrToInt(FormServ.Edit5.Text);
 Pop3ServerName:=FormServ.Edit7.Text;

IdPop31.Username:=SmtpServerUser;
idpop31.Password :=SmtpServerPassword;
idpop31.Port :=Pop3Port;
idpop31.Host :=Pop3ServerName;
try
IdPop31.Connect;
except
 ShowMessage ('Es ist ein Fehler aufgetreten');
end;
//IdPop31.Disconnect;

 IdSMTP1.Host := SmtpServername;
 IdSMTP1.Port := SmtpServerPort;
 IdSMTP1.Username := SmtpServerUser;
 IdSMTP1.Password := SmtpServerPassword;
 IdSMTP1.Connect;

 IdMessage1.From.Name := UserName;
 IdMessage1.From.Address:=SmtpServerUser;
 IdMessage1.Recipients.Add.Address := UserEmail;
 IdMessage1.ReplyTo.Add.Address := EigeneMail;
 Idmessage1.CCList.EMailAddresses:= CC;
 IdMessage1.BccList.EMailAddresses:=BCC;
 IdMessage1.Subject := Betreff;
 IdMessage1.Body.Assign(Memo1.Lines);

begin
if RadioButton1.Checked then
begin
IdMessage1.Priority:=mpNormal;
end
else
IdMessage1.Priority:= mpHigh;
 end;
  try
 IdSMTP1.Send(IdMessage1);
  finally
    IdSMTP1.Disconnect;
    //IdPop31.Disconnect;
  end;
  Idmessage1.Clear;
  application.MessageBox('Erfogreich','Ergebnis!');
end;
Ohne IdPop31.connect; funktioniert wieder alles.

Geändert von Stread (11. Nov 2011 um 00:03 Uhr)
  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 14:42 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