通过

OutlookBarShortcuts.ShortcutAdd 事件 (Outlook)

  • 项目

新的快捷方式添加到 快捷方式窗格组时发生。

语法

expression。 ShortcutAdd( _NewShortcut_ )

表达 一个代表 OutlookBarShortcuts 对象的变量。

参数

名称 必需/可选 数据类型 说明
NewShortcut 必需 OutlookBarShortcut 要添加的快捷方式。

备注

该事件在 Microsoft Visual Basic Scripting Edition (VBScript) 中不可用。

示例

此 Microsoft Visual Basic for Applications (VBA) 示例在将 "日历" 快捷方式添加到 "快捷方式"窗格的第一个组中时，更改快捷方式的名称。 示例代码必须放在类模块中，并且在 Microsoft Outlook 调用该事件过程前必须调用 Initialize_handler 例程。

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。