MailItem.CustomAction イベント (Outlook)

  • [アーティクル]

アイテム (親オブジェクトのインスタンス) のカスタム アクションが実行されると発生します。

構文

expression. CustomAction( _Action_ , _Response_ , _Cancel_ )

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

パラメーター

名前 必須 / オプション データ型 説明
操作 必須 オブジェクト型 (Object) Action オブジェクトです。
Response 必須 オブジェクト型 (Object) カスタム アクションによって作成される新規アイテムです。
Cancel 必須 ブール型 (Boolean) (未使用の vbscript)。 False イベントが発生します。 イベント プロシージャでこの引数に True を設定する場合は、カスタム アクションは完了しません。

注釈

Action オブジェクトと、カスタム アクションによって新しく作成されたアイテムは、イベントに渡されます。

Microsoft Visual Basic Scripting Edition (VBScript)、この関数の戻り値を False に設定すると、カスタム アクションの操作は完了しません。

例

この Visual Basic for Applications (VBA) の例では、返信アイテムの Subject プロパティを設定するのには、 CustomAction イベントを使用します。 'リンク元' と呼ばれるカスタム イベントを持つアイテムを作成する AddActionを実行する前に、 Initialize_Handlerプロシージャを実行します。

Public WithEvents myItem As Outlook.MailItem 
 
 
 
Sub AddAction() 
 
 Dim myAction As Outlook.Action 
 
 
 
 Set myItem = Application.CreateItem(olMailItem) 
 
 Set myAction = myItem.Actions.Add 
 
 myAction.Name = "Link Original" 
 
 myAction.ShowOn = olMenuAndToolbar 
 
 myAction.ReplyStyle = olLinkOriginalItem 
 
 myItem.To = "Dan Wilson" 
 
 myItem.Subject = "Before" 
 
 myItem.Send 
 
End Sub 
 
 
 
Sub Initialize_Handler() 
 
 Set myItem = Application.ActiveInspector.CurrentItem 
 
End Sub 
 
 
 
Private Sub myItem_CustomAction(ByVal Action As Object, ByVal Response As Object, Cancel As Boolean) 
 
 Select Case Action.Name 
 
 Case "Link Original" 
 
 Response.Subject = "Changed by VB Script" 
 
 Case Else 
 
 End Select 
 
End Sub

関連項目

MailItem オブジェクト

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

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