Guten Tag zusammen,

ich habe folgendes Makro implementiert:

Sub AddToFavorites()
 
 'Adds a Public Folder to the List of favorites
 
 Dim objFolder As Outlook.Folder
 
 Set objFolder = Application.Session.GetDefaultFolder(olPublicFoldersAllPublicFolders).Folders.Item("Konferenzräume - Belegungspläne")
 
 'objFolder.AddToPFFavorites
 If objFolder.Folders.Count > 0 Then
    For Each objSubFolder In objFolder.Folders
        'objNavigationGroup.NavigationFolders.Add objSubFolder
        objFolder.AddToPFFavorites
    Next
 End If
 MsgBox "Die Belegungspläne für die Besprechungsräume sollten nun unter ANDERE KALENDER in der Kalenderansicht zu sehen sein.", vbOKOnly, Hinweis
End Sub

Dieses soll, wenn der Nutzer es über eine zugeordnete Schaltfläche im Menüband gestartet wird, aus den öffentlichen Ordnern in der Unterordnerstruktur "Konferenzräume - Belegungspläne" die beiden darin befindlichen Kalender als Favoriten in den öffentlichen Ordnern des Nutzers speichern, so dass diese dann unter "andere Kalender" dem Nutzer angezeigt werden.

Auf jeden Fall soll dem Nutzer eine Messagebox mit einer Benachrichtigung angezeigt werden.

Laut VBA-Editor ist der Code korrekt. Er wird auch über den VBA-Editor (grüne Pfeiltaste) anstandslos ausgeführt.

Aber das Makro startet nicht, wenn man es versucht, über die zugewiesene Schaltfläche zu starten. Es startet auch nicht, wenn man die Entwicklertools-Menüleiste öffnet und dort das Makro aus der Liste auswählt und starten möchte.

Und ich verstehe noch nicht, warum das so ist.

Der Code ist in Ordnung. Selbst im Einzelschrittdurchlauf ist alles klar.

Ferner setze ich ein Codesigningzertifikat ein, dass als TrustedPublisher bei den Nutzern eingetragen ist.

Ich verstehe nicht, was falsch ist.

Habt Ihr eine Idee?

Vielen Dank für jegliche Hilfe.