Outlook でメール送信前に確認プロンプトを表示するには、どうすればよいですか？

Outlook で［送信］ボタンをクリックした直後、「重要な詳細を書き忘れた」「間違ったファイルを添付してしまった」「恥ずかしいミスに気づいた」…そんな経験、ありませんか？ こうした失敗を防ぐために、Outlook を設定して、［送信］ボタンを押すたびに確認ダイアログを表示させることができます。これにより、メールが実際に送信される前に、もう一度内容をチェックするチャンスが得られます。 本記事では、この機能を実現する簡単な VBA ソリューションをご紹介します。

VBA コードを使用してメール送信前に確認プロンプトを表示する

---

VBA コードを使用してメール送信前に確認プロンプトを表示する

以下の VBA コードを使用すると、メール送信のたびにOutlook が確認を求め、メッセージを再確認できるようになります。

1．「Alt」＋「F11」キーを押して、「Microsoft Visual Basic for Applications」ウィンドウを開きましょう。

2．VBA ウィンドウ左側の「プロジェクトエクスプローラー」ペインで、「Project1 (VbaProject.OTM)」の下にある「Microsoft Outlook オブジェクト」をダブルクリックし、続けて「ThisOutlookSession」をダブルクリックしてコードウィンドウを開きます。

3．開いたウィンドウに、次の VBA コードをコピー＆ペーストしてください。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xPrompt As String
    Dim xOkOrCancel As Integer
    On Error Resume Next
    
    xPrompt = "Do you want to continue sending this email?"
    xOkOrCancel = MsgBox(xPrompt, vbOKCancel + vbQuestion, "Confirm Email Sending")
    
    If xOkOrCancel <> vbOK Then
        Cancel = True
    End If
End Sub

4．「Alt」＋「Q」キーを押して、VBA エディターを保存し、閉じます。

📌結果：今後、Outlook でメール送信のために［送信］をクリックするたびに、「このメールを送信してもよろしいですか？」という確認ダイアログが表示されます。「OK」をクリックするとメールが送信され、「キャンセル」をクリックするとメール編集画面に戻って引き続き編集できます。