hm? Ich möchte doch den Mail-Header und nicht den Betreff
---
Hier mal mein Code:
Delphi-Quellcode:
var
lItemColl : Items;
i : Integer;
lElement : OleVariant;
Body :
string;
lFolder : MAPIFolder;
lNameSpace : NameSpace;
begin
try
OA.Connect;
try
lNameSpace := OA.GetNamespace('
MAPI');
lFolder := lNamespace.PickFolder;
lItemColl := lFolder.Items;
Memo1.Lines.Clear;
IF lItemColl.Count > 0
THEN
BEGIN
FOR i := 1
to lItemColl.Count
do
BEGIN
lElement := lItemColl.item(i);
Memo1.Lines.Add(lElement.Body);
END;
END;
except
on e: SysUtils.Exception
do ShowMessage(e.
Message);
end;
finally
OA.Disconnect;
end;
Statt des Bodys möchte ich nun aber den Header. Noch genialer wäre es, wenn ich direkt auf einen Eintrag im Header zugreifen könnte. z.B.: "X-Failed-Recipients".