How to confirm pop-up prompt with recipients list for all Microsoft Outlook Emails before sending

Microsoft Outlook does not have a default function to check before you send an email, which means your emails are sent right after you click the “Send” button, even if it was an accidental tap on your laptop mousepad. Email errors could turn out embarrasing or even disasterous in business.

Here is a method to confirm the title and recipients list after hitting the Send button, before your emails are actually sent out by Outlook.

This is done using VBA (Visual Basic for Applications).

Advertisement

Steps

    1. On Outlook, press Alt + F11 to open “Microsoft Visual Basic for Applications” window (VBA window).
      If a pop-up appears to enable macro, select “Enable”.
      (The VBA window looks a bit technical, but we won’t touch anything difficult.)

    2. On the right hand panel, there should be “Project1” with + or – sign at the left to open folders inside. If it already open (- sign showing), you should see “Microsoft Outlook Objects” and “ThisOutlookSession”.
      If not, click the + sign to open the folder.

  1. Double click to open “ThisOutlookSession” code window.

  1. Copy and paste the whole code below to “ThisOutlookSession” code window.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
On Error GoTo Exception

Dim maxCnt As Integer
Dim strCC As String
Dim strBody As String
maxCnt = 0
strCC = vbCrLf
strBody = Item.Body

Dim objRec As Recipient
For Each objRec In Item.Recipients
strCC = strCC & "- " & objRec.Address & vbCrLf
maxCnt = maxCnt + 1
If maxCnt >= 20 Then Exit For
Next

Dim strMsg As String
strMsg = "TITLE:" & Item.Subject & vbCrLf & strCC & vbCrLf & "Would you like to send to above recipients?"

If MsgBox(strMsg, vbExclamation + vbYesNo + vbDefaultButton2) <> vbYes Then
Cancel = True
End If

On Error GoTo 0
Exit Sub

Exception:
MsgBox CStr(Err.Number) & ":" & Err.Description, vbOKOnly + vbCritical
Cancel = True
Exit Sub

End Sub


  1. Press Alt + Q, which should save and close the VBA window.

  2. [Check] Send a test email, maybe to yourself, and you should see a confirmation dialog box with title and recipient list. Click “Yes” to send, or “No” to return to edit the email.

  1. [Afterwards] When opening Outlook session, you may or may not see a pop-up asking to enable macros. Select “Enable” to use this feature during the session.

コメント

タイトルとURLをコピーしました