Kotaktgruppen aus Kontakte von Outlook

[Sir Rufo]

Der größte Fehler ist die Benamung der Variablen, denn die führen dich aufs falsche Gleis. Ein weiterer Fehler ist, dass du es bislang versäumt hast in die Doku zu schauen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  olFolderContacts = $0000000A;
var
  flds, outlook, NameSpace, ContactFolder, Item: OleVariant;
  i: Integer;
begin
  outlook := CreateOleObject('Outlook.Application');
  NameSpace := outlook.GetNameSpace('MAPI');

  ContactFolder := NameSpace.GetDefaultFolder(olFolderContacts);
  for i := 1 to ContactFolder.Items.Count do
  begin
    Item := ContactFolder.Items.Item(i);
    // Hier stellt sich bei dem Item die berühmte Frage: "Was bin ich?"
    if Item.Class = 40 then // ein ContactItem
    begin

    end
    else if Item.Class = 69 then // ein DistListItem
    begin

    end;
  end;

  Outlook := UnAssigned;
end;