在将新组从 Outlook 面板中删除前发生,可以是用户操作或程序代码的结果。该事件在 VBScript 中不可用。
Sub object_BeforeGroupRemove(ByVal Group As OutlookBarGroup, Cancel As Boolean)
object 该表达式的值为 OutlookBarGroups 集合对象。
Group 必选。要删除的 OutlookBarGroup。
Cancel 可选。当事件发生时为 False。如果事件过程将该参数设置为 True,则不从“Outlook 面板”中删除该组。
本示例防止用户从“Outlook 面板”中删除组。示例代码必须放在类模块中,并且在 Microsoft Outlook 调用该事件过程前必须调用 Initialize_handler
例程。
Dim myOlApp As New Outlook.Application
Dim WithEvents myOlGroups As Outlook.OutlookBarGroups
Dim myOlBar As Outlook.OutlookBarPane
Sub Initialize_handler()
Set myOlBar = myOlApp.ActiveExplorer.Panes.item("OutlookBar")
Set myOlGroups = myOlBar.Contents.Groups
End Sub
Private Sub myOlGroups_BeforeGroupRemove(ByVal Group As OutlookBarGroup, Cancel As Boolean)
Cancel = True
End Sub