Outlookで全員に返信する前に確認する方法

これは非常に単純なはずですが、そうではありません。

全員に返信メールを送信する前に、Outlookにプロンプ​​トを表示させたい。

すべてにNoReplyと呼ばれるアドインがありますが、これはまだすべてのセッションにすべて返信なしをアクティブにすることをユーザーに要求します。これは基本的にその目的を無効にします。

以下のコードは機能しますが、すべての返信に適用されます。すべての返信に対してのみ適用します。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    If MsgBox("Do you want to continue sending the mail?", vbOKCancel) <> vbOK Then
        Cancel = True
    End If
End Sub

Microsoftの例はうまくいくはずですが、そうではありません。

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

他の解決策は無料ではありません。

何か手助け？

それを見つけた、そしてそれは特定のリストへの送信を防ぐためのチェックを含んでいる：

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Dim str As String
Dim j As Integer
Dim splits() As String
Dim lbadFound  As Boolean
lbadFound = False
Set Recipients = Item.Recipients
receivers = Recipients.count
For i = receivers To 1 Step -1
    Set recip = Recipients.Item(i)
    If InStr(1, LCase(recip), "lists.bla.com") >= 1 Then
        lbadFound = True
    End If
Next i
splits = Split(Item.To, ";")
If receivers > 1 Or lbadFound Or UBound(splits) > 0 Then
    If MsgBox("Do you want to continue sending the mail?", vbOKCancel) <> vbOK Then
        Cancel = True
    End If
End If

終了サブ