ItemSend イベント (Outlook)Application.ItemSend event (Outlook)

ユーザーが**インスペクター** を使用して (インスペクターが閉じられる前に、ユーザーが [送信] ボタンをクリックした後に)、Microsoft outlook アイテムが送信されるたびに、または**MailItem** などの Outlook アイテムの**Send** メソッドがプログラムで使用されると発生します。Occurs whenever an Microsoft Outlook item is sent, either by the user through an Inspector (before the inspector is closed, but after the user clicks the Send button) or when the Send method for an Outlook item, such as MailItem, is used in a program.


expression.expression. ItemSend( _Item_ , _Cancel_ )ItemSend( _Item_ , _Cancel_ )

Application オブジェクトを表す変数。expression A variable that represents an Application object.


名前Name 必須 / オプションRequired/Optional データ型Data type 説明Description
ItemItem 必須Required ObjectObject 送信されるアイテムです。The item being sent.
CancelCancel 必須Required BooleanBoolean イベントが発生すると、 False が渡されます。False when the event occurs. イベント プロシージャでこの引数に True を設定すると、送信操作は完了せずに、インスペクターは開いたままです。If the event procedure sets this argument to True, the send action is not completed and the inspector is left open.


このイベントは Microsoft Visual Basic Scripting Edition (VBScript) では使用できません。This event is not available in Microsoft Visual Basic Scripting Edition (VBScript).


次の Microsoft Visual Basic for Applications (VBA) の例は、ユーザーの入力に応じてItemsendイベントを取り消す方法を示しています。The following Microsoft Visual Basic for Applications (VBA) example shows how to cancel the ItemSend event in response to user input. サンプル コードをクラス モジュールに配置する必要があり、Outlook によってイベント プロシージャを呼び出すことができます前に、 Initialize_handlerルーチンを呼び出す必要があります。The sample code must be placed in a class module, and the Initialize_handler routine must be called before the event procedure can be called by Outlook.

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

関連項目See also

Application オブジェクトApplication Object

サポートとフィードバックSupport and feedback

Office VBA またはこの説明書に関するご質問やフィードバックがありますか?Have questions or feedback about Office VBA or this documentation? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.