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
- First write an email in Text
- 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
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.
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