次の方法で共有

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 のサポートおよびフィードバックを参照してください。