e-mail kommt nicht bei web.de an

[MisterX]

habe ein prog das e-mail´s verschikt nach der chanel methode doch die e-mail kommt nicht an

[velgreyer]

Also ohne Code wird uns da eine Hilfeleistung seeehr schwer fallen Und sollte Web.de diese angesprochene Methode irgendwie blocken, dann findet sich das sicher in google.de

http://www.datar.de/s.jpg, vel

[Robert Marquardt]

Nicht zuletzt koennte sein Rechner gerade auf einer Blacklist stehen.

[MisterX]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  NMSMTP1.Host := 'smtp.web.de';
  NMSMTP1.UserID := 'UserID';
  NMSMTP1.PostMessage.ToAddress.Text := '[e-mail]';
  NMSMTP1.PostMessage.FromAddress := '[e-mail]';

  NMSMTP1.PostMessage.subject := ': '+edit1.text;
  NMSMTP1.PostMessage.Body.Add(': '+edit1.text);
  NMSMTP1.PostMessage.Body.Add(': '+edit2.text);
  NMSMTP1.Connect();
end;

procedure TForm1.FormActivate(Sender: TObject);
begin

NMPOP31.Host := 'pop3.web.de';
NMPOP31.UserID := 'abc';
NMPOP31.Password :=  'xxxxxxxxxx';
NMPOP31.Connect();
end;

das ist er

[Sharky]

Zitat von MisterX:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
.
  NMSMTP1.Connect();
end;
.

Hai MisterX,

Du musst die eMail nach dem Du dich mit dem Server verbunden hast auch noch absenden

[Masterof]

Morgen

Also wie Sharky schon richtig gesagt hat, du schickst nichts weg. Ich habe das mit dem wegschicken so gelöst.

Delphi-Quellcode:

procedure Tfrmsend.btsendClick(Sender: TObject);
var mailtxt: TStringlist;
    receiver: string;
begin
 if not (edan.Text= '')  then
 begin
  idpop3.Connect(-1);
  if idpop3.Connected = true then
  begin
   mailtxt:= TStringlist.Create;
   mailtxt.Text:= memtext.Lines.Text;
   frmsend.sendmail(receiver,'','betreff', mailtxt);
   mailtxt.Free;
   idpop3.Disconnect;

  end;
 end
 else
  showmessage('Bitte Empfänger eingeben');
end;

Ich hoffe jetzt kommt die mail auch an.

MfG Master