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