OutlookBarShortcuts.ShortcutAdd 事件 (Outlook)
當快捷方式新增至 快捷 方式窗格群組時發生。
語法
expression。 ShortcutAdd( _NewShortcut_ )
表達 代表 OutlookBarShortcuts 物件的 變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| NewShortcut | 必要 | OutlookBarShortcut | 新增的捷徑。 |
註解
Microsoft Visual Basic Scripting Edition (VBScript) 中沒有這個事件。
範例
將 [行事曆] 捷徑新增到捷徑窗格的第一個群組中時，本 Microsoft Visual Basic for Applications (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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。