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

OutlookBarShortcuts-Objekt

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.