Send a message individually to all recipients using Outlook

Say you have written a message which has lots of users in the
recipient list. Now you don’t want to send the mail to all those
users who can see each others email address. You want to send the
message one by one. Here’s what you do:

  • After composing the message save it to make it go to Drafts
    folder.
  • Select the message
  • Press ALT+F11 to bring the Visual Basic Editor.
  • Now paste the following code:

Sub SendIndividually()

Dim objItem As MailItem
Set objItem = Application.ActiveExplorer.Selection.Item(1)

Dim objTo As Recipient
Dim objClonedMail As MailItem

On Local Error Resume Next

For Each objTo In objItem.Recipients

Set objClonedMail = objItem.Copy()
objClonedMail.To = “”
objClonedMail.Recipients.Add objTo
objClonedMail.Send

Next

End Sub

  • Hit F5 and wait for a while. You will see Outbox is full of
    copy of the message with individual recipient in the “To”

Read my previous post on how to generate a message with all the
sender’s email address from all the message in a folder. You can
combine both approach to send everyone important notice.

Share on Tumblr

5 thoughts on “Send a message individually to all recipients using Outlook”

  2. It worked the first time and since then it comes up with a Microsoft Visual Basic !warning “The macros in this project are disabled. Please refer to the online help or documentation of thehost application to determine how to enable macros.”

    What next?

  3. It worked the first time and since then it comes up with a Microsoft Visual Basic !warning “The macros in this project are disabled. Please refer to the online help or documentation of thehost application to determine how to enable macros.”

    What next?

  4. I followed the directions here verbatim and after putting this to action, I started receiving complaints from recipients that I was sending them multiple copies of the same email. Indeed, when I checked the “Sent Items” folder, I noticed that while the macro had correctly sent a copy to each client (as shown in the “To:” box) it had simultaneously sent the same message to every other recipient as they were all included in the “Bcc:” box in each “individual” email sent to each recipient. What a disappointment and an embarrassment. I use Outlook 2007 with Word as the email editor. Any suggestions why this didn't work would be appreciated.

Leave a Reply