MAPI und Mail-Header

[Sascha L]

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".