通过

OutlookBarShortcuts.BeforeShortcutRemove 事件 (Outlook)

  • 项目

在将新快捷方式从 快捷方式窗格中，可以是用户操作或程序代码中的组之前发生。

语法

expression。 BeforeShortcutRemove( _Shortcut_ , _Cancel_ )

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

参数

名称 必需/可选 数据类型 说明
Shortcut 必需 OutlookBarShortcut 正在删除 快捷 。
Cancel 必需 Boolean 假 的事件发生时。 如果事件过程将此参数设置为 True ，将不从组中删除该快捷方式。

备注

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

示例

下面的 Microsoft Visual Basic for Applications (VBA) 示例防止用户从 快捷方式窗格中删除快捷方式。 示例代码必须置于类模块中，并可以通过Microsoft Outlook调用事件过程之前，必须调用 Initialize_handler例程。

Dim WithEvents myOlShortcuts As Outlook.OutlookBarShortcuts 
Dim myOlBar As Outlook.OutlookBarPane 
 
Sub Initialize_handler() 
 Set myOlBar = Application.ActiveExplorer.Panes.Item("OutlookBar") 
 Set myOlShortcuts = myOlBar.Contents.Groups.Item(1).Shortcuts 
End Sub 
 
Private Sub myOlShortcuts_BeforeShortcutRemove(ByVal Shortcut As OutlookBarShortcut, Cancel As Boolean) 
 MsgBox "You are not allowed to remove a shortcut from this group." 
 Cancel = True 
End Sub

另请参阅

OutlookBarShortcuts 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。