次の方法で共有


Application.ItemSend イベント (Outlook)

Microsoft Outlook アイテムが送信されるたびに発生します。これは、(インスペクターを閉じる前に、ユーザーが [送信] ボタンをクリックした後) インスペクターを介してユーザーが送信したとき、または MailItem などの Outlook アイテムの Send メソッドがプログラムで使用される場合です。

構文

expression. ItemSend( _Item_ , _Cancel_ )

Application オブジェクトを表す変数。

パラメーター

名前 必須 / オプション データ型 説明
Item 必須 オブジェクト型 (Object) 送信されるアイテムです。
Cancel 必須 Boolean イベントが発生すると、 False が渡されます。 イベント プロシージャでこの引数に True を設定すると、送信操作は完了せずに、インスペクターは開いたままです。

注釈

このイベントは Microsoft Visual Basic Scripting Edition (VBScript) では使用できません。

次の Microsoft Visual Basic for Applications (VBA) の例は、ユーザー入力に応答して ItemSend イベントを取り消す方法を示しています。 サンプル コードをクラス モジュールに配置する必要があり、Outlook によってイベント プロシージャを呼び出すことができます前に、 Initialize_handlerルーチンを呼び出す必要があります。

Public WithEvents myOlApp As Outlook.Application 
 
 
 
Public Sub Initialize_handler() 
 
 Set myOlApp = Outlook.Application 
 
End Sub 
 
 
 
Private Sub myOlApp_ItemSend(ByVal Item As Object, Cancel As Boolean) 
 
 Dim prompt As String 
 
 prompt = "Are you sure you want to send " & Item.Subject & "?" 
 
 If MsgBox(prompt, vbYesNo + vbQuestion, "Sample") = vbNo Then 
 
 Cancel = True 
 
 End If 
 
End Sub

関連項目

Application オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。