Review all Email Recipients before Sending

Hi team, I have some experience in VBA but I'm rusty and trying to recreate a macros from years ago to display all email recipients prior to sending. So, essentially, a pop-up box would appear when the send button is clicked that will list all the recipients for one last review and a confirmation to send. Any thoughts?

Try this one

Code:

---

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

---

Quote:

---

Originally Posted by rallison0902

will list all the recipients for one last review

---

As a small add-on to Aussiebear's response, for the list of recipients, use the Item object which will be a MailItem you could add a string that contains the list that is displayed with the message asking if they are all correct.

Code:

---

Dim recipientList as String
Dim rp as Outlook.Recipient

recipientList = ""
For Each rp in Item.Recipients
    recipientList = recipientList & rp.Name & vbCrLf
Next

Prompt = recipientList & "Are you sure you entered all correct recipients?"

---

This code hasn't been tested and is just an example.

:sleep2:

Teamwork!

yes, but the Captain/Coach of the home team appears to have subbed themselves out of the game..... Strange method of asking for help and then just disappear.

HA! Didn't disappear - apologies for the delay. I can't thank you enough for your help. Testing this morning and will check back in! :)