Kotaktgruppen aus Kontakte von Outlook

[DelTurbo]

Huhu,
ich hoffe ich habe dich nun nicht verärgert. Aber du hast sicherlich schon gemerkt das wir nicht auf dem selben Level sind. Etwas übertrieben gesagt bin ich froh über jede If abfrage die klappt.

Aber du hast recht. Ich hatte es zwar gelesen aber anders verstanden. Obwohl man es eigentlich nicht falsch verstehen kann. Da ich so lange an dem Problem gesessen habe, habe ich einfach nicht drüber nachgedacht. So was passiert leider.

Hier nochmal alles was (nach der änderung) immernoch zu dem Fehler führt. Leider weiß ich nicht was ich immer noch Falsch mache.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  olFolderContacts = $0000000A;
var
  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
        WriteLn(Item.Firstname);
     end
     else if Item.Class = 69 then // ein DistListItem
     begin
      WriteLn(Item.MemberCount);   // Liefert --> 1
      WriteLn(Item.DLName);       // Liefert --> TestGruppe (TestGruppe hat ein Mitglied. Max Mustermann)
      WriteLn(Item.GetMember(1));  // liefert --> Max Mustermann
      WriteLn(Item.GetMember(1).AddressEntry);  // liefert --> Max Mustermann
      WriteLn(VarIsNull(Item.GetMember(1).AddressEntry));   // Liefert False
      if not VarIsNull(Item.GetMember(1).AddressEntry) then
      begin
        WriteLn('Firstname: '+Item.GetMember(1).AddressEntry.GetContact.FirstName); // Erste Gelegenheit für Exception bei $752FC41F. Exception-Klasse EOleException mit Meldung 'Das Element kann nicht gefunden werden'. Prozess Project1.exe (1544)
      end;
     end;
   end;
  Outlook := UnAssigned;
end;

Du sagtest das meine Angaben "etwas vage" wären. Ich hoffe das ist nun richtig. Wenn nicht dann schreibe doch bitte was du wissen willst/musst.


Nochmals, vielen dank für deine Geduld und die Hilfe.