Einzelnen Beitrag anzeigen

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