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
Select the message
Press ALT+F11 to bring the Visual Basic Editor.
Now paste the following code:
Dim objItem As MailItem
Set objItem =
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 = ""
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.