OutlookBarShortcuts.ShortcutAdd-Ereignis (Outlook)
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.