Omar AL Zabir blog on ASP.NET Ajax and .NET 3.5

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.