保存 Microsoft Outlook 项目时发生,不管是明确地(例如,使用 Save 或 SaveAs 方法)或者隐含地(例如,关闭项目的检查器时响应提示)保存。
Sub object_Write(Cancel As Boolean)
object 该表达式的值为“应用于”列表中的一个对象。在 VBScript 中,用 Item 代替。
Cancel 可选的 Boolean 值(VBScript 中不可用)。当事件发生时为 False。如果事件过程将该参数设置为 True,则不完成保存操作。
在 VBScript 中,如果将该函数的返回值设置为 False,则不完成保存操作。
本 VBScript 示例使用 Write 事件并警告用户将要保存项目而且将覆盖任何现有项目,然后根据用户的响应,继续操作或停止操作。
Function Item_Write()
myMsg = "The item is about to be saved. Do you wish to overwrite the existing item?"
myResult = MsgBox(myMsg, 289, "Save")
If myResult = 1 Then
Item_Write = True
Else
Item_Write = False
End If
End Function