Hallo,
gerade bin ich dabei öffentliche Kontaktordner zu verteilen und würde das gerne automatisieren.
Dafür habe ich einen Hauptordner mit mehreren Kontaktordnern darunter angelegt.
Jetzt würde ich gerne jeden Kontaktordner im Hauptordner als Fav hinzufügen und ihn als Adressbuch anzeigen lassen.
Probiert habe ich es mit:
gerade bin ich dabei öffentliche Kontaktordner zu verteilen und würde das gerne automatisieren.
Dafür habe ich einen Hauptordner mit mehreren Kontaktordnern darunter angelegt.
Jetzt würde ich gerne jeden Kontaktordner im Hauptordner als Fav hinzufügen und ihn als Adressbuch anzeigen lassen.
Probiert habe ich es mit:
Quellcode
- Sub AddToFav()
- Dim objFolder As Outlook.Folder
- Dim Folder As Outlook.Folder
- Set objFolder = Application.Session.GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders.Item("Kontaktlisten").Folders.Item("Kunden") _
- .Folders.Item("Kundengruppe1")
- For Each Folder In objFolder
- Folder.ShowAsOutlookAB = True
- Next
- End Sub