Einzelnen Beitrag anzeigen

OlloSoft

Registriert seit: 11. Mai 2004
14 Beiträge
 
#4

Re: inhalt einer mail auslesen?

  Alt 28. Feb 2006, 10:06
Hi ghost007,
hier ein Beispiel Code, der Header und Body der 1. Mail, die auf dem POP3-Server liegt, in ein Memo-Control schreibt.

In deinem Falle ist die Property NoDecode wichtig.

Delphi-Quellcode:
procedure TForm1.btnClick(Sender: TObject);
begin
  Msg.NoDecode := True; // !

  Pop3.Connect;
  try
    if POP3.CheckMessages > 0 then
    begin
      Pop3.Retrieve(1, Msg);

      Memo1.Text := Msg.Headers.Text; // Header
      Memo1.Lines.Add(''); // Die Leerzeile zwischen Header und Body
      Memo1.Lines.AddStrings(Msg.Body); // Body
    end;
  finally
    Pop3.Disconnect;
  end;
end;
Ich hoffe, das hilft.
Ollo
Ollo
Sei respektvoll, denn du weißt nie, ob wir uns nicht mal persönlich begegnen
  Mit Zitat antworten Zitat