Outlookで送信前に宛先確認ダイアログを表示する方法

 

Outlookで送信前に宛先確認ダイアログを表示する方法

• Alt + F11を押して、VBAエディタを表示。
• 以下のスクリプトをThisOutlookSessionに記述してください。

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    '件名未記入の確認
    If Item.Subject = "" Then
        If MsgBox("このメッセージには件名がありません。" & vbCrLf & _
            "[OK] をクリックすると送信します。", vbOKCancel + vbExclamation + vbMsgBoxSetForeground) = vbCancel Then
            Cancel = True
            Item.GetInspector.Activate
            Exit Sub
        End If
    End If
    '送信確認ダイアログ
    If MsgBox("宛先、添付ファイル、文面を再度確認してください。" & vbCrLf & _
        "送信しますか？", vbOKCancel + vbQuestion + vbMsgBoxSetForeground) = vbCancel Then
        Cancel = True
        Item.GetInspector.Activate
        Exit Sub
    End If
End Sub