For each subfolder in public folder AddtoFav/ShowAsOutlookAB

  • Outlook

    For each subfolder in public folder AddtoFav/ShowAsOutlookAB

    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:

    Quellcode

    1. Sub AddToFav()
    2. Dim objFolder As Outlook.Folder
    3. Dim Folder As Outlook.Folder
    4. Set objFolder = Application.Session.GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders.Item("Kontaktlisten").Folders.Item("Kunden") _
    5. .Folders.Item("Kundengruppe1")
    7. For Each Folder In objFolder
    9. Folder.ShowAsOutlookAB = True
    11. Next
    13. End Sub

Facebook
Telefonspende