Outlook) (MailItem.Write 事件

發生于儲存父物件的實例時，例如 (，使用 Save 或SaveAs 方法) 或隱含 (，例如，在關閉專案的偵測器) 時回應提示。

語法

expression。 Write( _Cancel_ )

表達 代表 MailItem 物件的 變數。

參數

名稱	必要/選用	資料類型	描述
Cancel	必要	布林值	(VBScript 中未使用)。 False 事件發生時。 如果事件程序將該引數設定為 True，則無法完成儲存作業。

註解

在 Microsoft Visual Basic Scripting Edition (VBScript) 中，如果您將這個函數的傳回值設為 False，就不會完成儲存作業。

範例

這個 Visual Basic for Applications (VBA) 範例會使用 Write 事件，並警告使用者該專案即將儲存，並且會覆寫任何現有的專案，而且根據使用者的回應，允許作業繼續或停止它。 如果取消此事件，Microsoft Outlook 會顯示錯誤訊息。 因此，您必須在程式碼中擷取此事件。 下面顯示擷取事件的其中一個方法。 範例程式碼必須放在類別模組中，例如 ThisOutlookSession ，而且 Initialize_Handler() 必須先呼叫副程式，Outlook 才能呼叫事件程序。

Public WithEvents myItem As Outlook.MailItem 
 
 
 
Private Sub myItem_Write(Cancel As Boolean) 
 
 Dim myResult As Integer 
 
 myItem = "The item is about to be saved. Do you wish to overwrite the existing item?" 
 
 myResult = MsgBox(myItem, vbYesNo, "Save") 
 
 If myResult = vbNo Then 
 
 Cancel = True 
 
 End If 
 
End Sub 
 
 
 
Public Sub Initialize_Handler() 
 
 Const strCancelEvent = "Application-defined or object-defined error" 
 
 
 
 On Error GoTo ErrHandler 
 
 
 
 Set myItem = Application.ActiveInspector.CurrentItem 
 
 myItem.Save 
 
 Exit Sub 
 
 
 
 ErrHandler: 
 
 MsgBox Err.Description 
 
 If Err.Description = strCancelEvent Then 
 
 MsgBox "The event was cancelled." 
 
 End If 
 
End Sub

另請參閱

MailItem 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。