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.
|