Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Tritt auf, wenn einer Gruppe im Verknüpfungsbereich eine neue Verknüpfung hinzugefügt wird.
Syntax
Ausdruck.
ShortcutAdd
( _NewShortcut_
)
Ausdruck Eine Variable, die ein OutlookBarShortcuts-Objekt darstellt.
Parameter
Name | Erforderlich/Optional | Datentyp | Beschreibung |
---|---|---|---|
NewShortcut | Erforderlich | OutlookBarShortcut | Die Verknüpfung, die hinzugefügt wird. |
Hinweise
Dieses Ereignis ist in Microsoft Visual Basic Scripting Edition (VBScript) nicht verfügbar.
Beispiel
Dieses Beispiel für Microsoft Visual Basic für Applikationen (VBA) ändert den Namen einer Kalender-Verknüpfung, wenn diese zur ersten Gruppe im Verknüpfungsbereich hinzugefügt wird. Der Beispielcode muss sich in einem Klassenmodul befinden, und die Initialize_handler
-Routine muss aufgerufen werden, bevor die Ereignisprozedur von Microsoft Outlook aufgerufen werden kann.
Dim WithEvents myOlSCuts As Outlook.OutlookBarShortcuts
Dim myOlBar As Outlook.OutlookBarPane
Sub Initialize_handler()
Set myOlBar = Application.ActiveExplorer.Panes.Item("OutlookBar")
Set myOlSCuts = myOlBar.Contents.Groups.Item(1).Shortcuts
End Sub
Private Sub myOlSCuts_ShortcutAdd(ByVal NewShortcut As outlook.OutlookBarShortcut)
Dim myNS As Outlook.NameSpace
Set myNS = Application.GetNamespace("MAPI")
If NewShortcut.Target.Name = "Calendar" Then
NewShortcut.Name = myNS.CurrentUser & "'s Schedules"
End If
End Sub
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.