Outlook VBA教程:BeforeDelete事件

项目删除前发生。

Sub expression_ BeforeDelete(ByVal Item As Object, Cancel As Boolean)

expression  “应用于”列表中的一个对象,该对象在类模块中以事件形式声明。

Item  必选,Object 类型。正在删除的项目。

Cancel  必选,Boolean 类型。当事件发生时为 False。如果事件过程将此参数设为 True,将不完成该操作,并且不删除项目。

说明

为了在通过某项操作删除邮件、通讯组列表、日记条目、任务、联系人或公告时触发该事件,必须打开一个检查器。

每删除一个项目,该事件发生一次。

VBA示例

以下示例提示用户注意是否要删除指定项目。如果用户单击“否”,将不删除项目。如果用户单击“是”,将删除项目,并向用户显示一条消息。


Private Sub objMail_BeforeDelete(ByVal Item As Object, Cancel As Boolean)
'Prompts the user before deleting an item
    Dim strPrompt As String
    'Prompt the user for a response
    strPrompt = "Are you sure you want to delete the item?"
    If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbNo Then
        'Don't delete the item
        Cancel = True
    Else
        MsgBox ("Item Deleted")
        'Delete the item
        Cancel = False
    End If
End Sub

上页:Outlook VBA教程:BeforeCheckNames事件 下页:Outlook VBA教程:BeforeFolderSwitch事件

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

Outlook VBA教程:BeforeFolderSwitch事件 Outlook VBA教程:BeforeGroupAdd事件
Outlook VBA教程:BeforeGroupRemove事件 Outlook VBA教程:BeforeGroupSwitch事件
Outlook VBA教程:BeforeItemCopy事件 Outlook VBA教程:BeforeItemCut事件
Outlook VBA教程:BeforeItemPaste事件 Outlook VBA教程:BeforeMaximize事件
Outlook VBA教程:BeforeMinimize事件 Outlook VBA教程:BeforeMove事件
Outlook VBA教程:BeforeNavigate事件 Outlook VBA教程:BeforeReminderShow事件
Outlook VBA教程:BeforeShortcutAdd事件 Outlook VBA教程:BeforeShortcutRemove事件
Outlook VBA教程:BeforeSize事件 Outlook VBA教程:BeforeViewSwitch事件
Outlook VBA教程:Close事件 Outlook VBA教程:CustomAction事件
Outlook VBA教程:CustomPropertyChange事件 Outlook VBA教程:Deactivate事件
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号