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

Reply to all emails from unique sender in an Outlook folder

omar — Sat, 12 Aug 2006 16:25:00 GMT

You have a folder full of mails from your friends. Now you want to reply to each of them sending some fixed message. One person will get only one reply no matter how many mails are there from that user. Here's how you can do this:

First write an email in Text Format.
Save the email. It will go to "Drafts" folder. Now drag that email to the folder which contains all the emails you want to reply to.
Now press ALT+F11 and paste the macro at the end of the post.
Hit F5 and wait for a long time. You will see, Outbox has all the reply emails.

The macro runs through each and every email and then checks if the sender is already replied to. If not replied to, then it gets the body of the message and then makes a reply by combining your message with the body of the message.

The benefit of this approach is you are replying to mails sent from someone which has low probability of getting filtered out by spam filters.


Sub ReplytoALLEmail()

    Dim objFolder As Folder

    

    Dim objTemplate As MailItem

    Set objTemplate =
Application.ActiveExplorer.Selection.Item(1)

    

    Set objFolder = objTemplate.Parent

    

    Dim objItem As MailItem

    Dim objReply As MailItem

    

    Dim dic As New Dictionary

    

    Dim strEmail As String

    

    Dim strEmails As String

    

    Dim strBody As String

    strBody = objTemplate.Body

    

    For Each objItem In objFolder.Items

        If Not (objTemplate = objItem) Then

        

            strEmail = objItem.SenderEmailAddress

            

            If Not dic.Exists(strEmail) Then

                strEmails = strEmails + strEmail + ";"

                

                dic.Add strEmail, ""

                

                Set objReply = objItem.Reply()

                

                objReply.Body = strBody + vbCrLf + vbCrLf +
objItem.Body

                

                On Local Error Resume Next

                objReply.Send

            End If

        End If

        

    Next

    

    Debug.Print strEmails

End Sub

Send a message individually to all recipients using Outlook

omar — Wed, 09 Aug 2006 13:59:00 GMT

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

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.

Get email address of all users from all mails in Outlook Folder

omar — Wed, 09 Aug 2006 12:55:00 GMT

Sometimes you want to send some important notice to everyone who has ever mailed you. Let's say you have a folder named "Friends" in Outlook where you store all the emails from your friends. Now you want to get all of their email addresses. Pretty difficult work if you have thousands of such mails. Here's an easy way.

Select the folder in Outlook and press ALT+F11. It will open Visual Basic Editor.
Double click on ThisOutlookSession from the Project tree.
Paste the following function:

Sub GetALLEmailAddresses()

Dim objFolder As Folder
Set objFolder = Application.ActiveExplorer.Selection

Dim dic As New Dictionary
Dim strEmail As String
Dim strEmails As String

Dim objItem As MailItem
For Each objItem In objFolder.Items

strEmail = objItem.SenderEmailAddress
If Not dic.Exists(strEmail) Then
strEmails = strEmails + strEmail + ";"
dic.Add strEmail, ""
End If

Next

Debug.Print strEmails
End Sub

Hit F5 and it will run for a while. Then press Ctrl+G. You will see the email addresses in the "Immediate Window".

Copy the whole string and you have all the email addresses from all the emails in the selected Outlook folder. There will be no duplicate address in the list.