Событие OutlookBarShortcuts.ЯрлыкДобавить (Outlook)

Статья
04/07/2023

Происходит при добавлении нового ярлыка в группу панели "Ярлыки ".

Синтаксис

выражение. ShortcutAdd( _NewShortcut_ )

Выражение Переменная, представляющая объект OutlookBarShortcuts .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
NewShortcut	Обязательный	OutlookBarShortcut	Добавляемое сочетание клавиш.

Замечания

Это событие недоступно в Microsoft Visual Basic Scripting Edition (VBScript).

Пример

Этот пример microsoft Visual Basic для приложений (VBA) изменяет имя ярлыка календаря при его добавлении в первую группу на панели Ярлыки. Пример кода должен быть помещен в модуль класса, а подпрограмма должна быть вызвана Initialize_handler , прежде чем процедура события может быть вызвана Microsoft Outlook.

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

См. также

Объект OutlookBarShortcuts

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через