次の方法で共有

MailItem.ReplyAll イベント (Outlook)

  • [アーティクル]

親オブジェクトのインスタンスであるアイテムに対し、ユーザーが " 全員に返信" アクションを選択するか、または ReplyAll メソッドが呼び出されると発生します。

構文

expression. ReplyAll( _Response_ , _Cancel_ )

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

パラメーター

名前 必須 / オプション データ型 説明
Response 必須 オブジェクト型 (Object) 元のメッセージへの返信として送信される新しいアイテムです。
Cancel 必須 Boolean False イベントが発生します。 イベント プロシージャでこの引数に True を設定する場合、返信のすべての操作は完了せず、新しいアイテムは表示されません。

注釈

返信されるアイテムを MailItem オブジェクトとして返します。

例

この Visual Basic for Applications (VBA) の例 ReplyAll イベントを使用してとの項目と、ユーザーの応答によってすべての元の受信者に返信をユーザーに通知により、操作を続行または停止します。 この例を使用するには、既存のメール アイテムを開いて、 Initialize Handler()プロシージャを実行し、アイテムに返信します。

Public WithEvents myItem As MailItem 
 
 
 
Sub Initialize_Handler() 
 
 Set myItem = Application.ActiveInspector.CurrentItem 
 
End Sub 
 
 
 
Private Sub myItem_ReplyAll(ByVal Response As Object, Cancel As Boolean) 
 
 Dim mymsg As String 
 
 Dim myResult As Integer 
 
 mymsg = "Do you really want to reply to all original recipients?" 
 
 myResult = MsgBox(mymsg, vbYesNo, "Flame Protector") 
 
 If myResult = vbNo Then 
 
 Cancel = True 
 
 End If 
 
End Sub

関連項目

MailItem オブジェクト

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

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