Outlook VBA教程:BeforeShortcutRemove事件

在将新快捷方式从Outlook 面板中的组删除前发生,可以是用户操作或程序代码的结果。该事件在 VBScript 中不可用。

Sub object_BeforeShortcutRemove(ByVal Shortcut As OutlookBarShortcut, Cancel As Boolean)

object  该表达式的值为OutlookBarShortcuts集合对象。

Shortcut  必选。要删除的OutlookBarShortcut

Cancel  可选。当事件发生时为 False。如果事件过程将该参数设置为 True,将不从组中删除该快捷方式。

VBA示例

以下示例防止用户从“Outlook 面板”上的第一个组中删除快捷方式。示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用Initialize_handler 例程。


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

上页:Outlook VBA教程:BeforeShortcutAdd事件 下页:Outlook VBA教程:BeforeSize事件

Outlook VBA教程:BeforeShortcutRemove事件:相关链接

Outlook VBA教程:BeforeSize事件 Outlook VBA教程:BeforeViewSwitch事件
Outlook VBA教程:Close事件 Outlook VBA教程:CustomAction事件
Outlook VBA教程:CustomPropertyChange事件 Outlook VBA教程:Deactivate事件
Outlook VBA教程:FolderAdd事件 Outlook VBA教程:FolderChange事件
Outlook VBA教程:FolderRemove事件 Outlook VBA教程:FolderSwitch事件
Outlook VBA教程:Forward事件 Outlook VBA教程:GroupAdd事件
Outlook VBA教程:ItemAdd事件 Outlook VBA教程:ItemChange事件
Outlook VBA教程:ItemRemove事件 Outlook VBA教程:ItemSend事件
Outlook VBA教程:MapiLogonComplete事件 Outlook VBA教程:NewExplorer事件
Outlook VBA教程:NewInspector事件 Outlook VBA教程:NewMail事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号