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 …