Review all Email Recipients before Sending

[Aussiebear]

Try this one

Option Explicit

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim Prompt As String
    Prompt = "Are you sure you entered all correct recipients?"
    If MsgBox(Prompt, vbYesNo + vbQuestion + vbMsgBoxSetForeground, "Check for recipients") = vbNo Then
        Cancel = True
    End If
End Sub