次の方法で共有

MailItem.Write イベント (Outlook)

  • [アーティクル]

親オブジェクトのインスタンスが保存されると発生します。 Save メソッドや SaveAs メソッドを使用した場合のような明示的な保存、またはアイテムのインスペクターを閉じるときに表示されるメッセージへの対応のような暗黙的な保存の両方で発生します。

構文

式。 Write( _Cancel_ )

expression は MailItem オブジェクトを表す変数です。

パラメーター

名前 必須 / オプション データ型 説明
Cancel 必須 ブール型 (Boolean) (未使用の vbscript)。 False イベントが発生します。 場合は、イベント プロシージャでは、この引数を設定する 場合は True 、保存操作は完了しません。

注釈

Microsoft Visual Basic Scripting Edition (VBScript の) 場合は False を保存するこの関数の戻り値を設定する操作は完了しません。

例

この Visual Basic for Applications (VBA) の例 Write イベントを使用して、ユーザーに対して、アイテムが保存されると既存のアイテムが上書きされますと、によってユーザーの応答により、操作を続行するか、または停止にします。 このイベントがキャンセルされた場合、 Microsoft Outlookには、エラー メッセージが表示されます。 したがって、コード内でこのイベントをキャプチャする必要があります。 これを行う方法の 1 つを次に示します。 サンプル コードは、 などの 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 のサポートおよびフィードバックを参照してください。