Outlook-Kontakte bergen

Haben Sie vielleicht einen Hinweis für ein Problem, das sich unmittelbar aus dem Makro OLAdresseEinfügen in c't 9/2000 ergibt? Ich habe meine Adressen in Outlook in Unterordnern angelegt. Diese werden im Makro jedoch nicht angezeigt, obwohl ich sie in Outlook freigegeben habe.

Für einen pauschalen Zugriff auf alle Unterordner Ihres Kontakte-Ordners wären größere Umbaumaßnahmen erforderlich. Sie können das Makro OLAdresseEinfügen aber leicht so anpassen, dass es auf einen einzelnen Unterordner zugreifen kann. Um beispielsweise die Adressen aus dem Unterordner ‘Private Kontakte’ anzeigen zu lassen, ändern Sie die Zeile

Set objKontaktOrdner = 
    objNameSpace.GetDefaultFolder(olFolderContacts)

wie folgt ab:

Set objKontaktOrdner = 
    objNameSpace.GetDefaultFolder(olFolderContacts).
    Folders("Private Kontakte") 

(Ralf Nebelo/se) (ha)