Solved

Sending the same reply to multiple messages

Posted on 2008-06-13
10
2,704 Views
Last Modified: 2009-06-01
I have a user that is a member of a recruitment group, and they are wanting to send a standard reply to multiple emails that they have received, is there any way of doing this in outlook.  as when you select multiple messages the reply option is greyed out.

Thanks
Ally
0
Comment
Question by:AUPIT
  • 5
  • 4
10 Comments
 
LVL 76

Expert Comment

by:David Lee
ID: 21777738
Hi, AUPIT.

I can do this with a bit of scripting.  Is that an option?  If so, then I can post the script and instructions for using it.
0
 
LVL 2

Author Comment

by:AUPIT
ID: 21777994
Scripting is an option that i had thought about but didnt know where to begin.
0
 
LVL 76

Expert Comment

by:David Lee
ID: 21778379
How do they want this to work?  Do they have a template that they want to reply with, or do they want to select the messages, and be prompted for the text to send?
0
 
LVL 2

Author Comment

by:AUPIT
ID: 21778406
They have a template saved that they will use
0
 
LVL 76

Expert Comment

by:David Lee
ID: 21779110
Here's the code for doing this.  Follow these instructions to use it.

1.  Start Outlook
2.  Click Tools->Macro->Visual Basic Editor
3.  Paste the script into the right-hand pane of the VB Editor
4.  If not already expanded, expand Modules and double-click on Module1
5.  Edit the code as needed.  I included a comment line immediately before any line that needs editing.
6.  Click the diskette icon on the toolbar to save the changes
7.  Close the VB Editor
8.  Stop here if you're using Outlook 2007
9.  Click Tools->Macro->Security
10.  Set Security Level to Medium

To use this

1.  Select one or more messages
2.  Run the macro

For each selected message the macro creates a reply using the specified template.
Sub SendReply2All()

    Dim olkMsg As Outlook.MailItem, _

        olkReply As Outlook.MailItem, _

        olkTemp As Outlook.MailItem

    For Each olkMsg In Application.ActiveExplorer.Selection

        Set olkTemp = olkMsg.Reply

        'Change the path and filename of the template on the next line

        Set olkReply = Application.CreateItemFromTemplate("C:\SomeFolder\Template.oft")

        olkReply.Recipients.Add olkTemp.Recipients.Item(1).Address

        olkReply.Display

        Set olkTemp = Nothing

    Next

    Set olkReply = Nothing

    Set olkMsg = Nothing

End Sub

Open in new window

0
Microsoft Certification Exam 74-409

Veeam® is happy to provide the Microsoft community with a study guide prepared by MVP and MCT, Orin Thomas. This guide will take you through each of the exam objectives, helping you to prepare for and pass the examination.

 
LVL 2

Author Comment

by:AUPIT
ID: 21779885
is there a script if they dont have a template
0
 
LVL 2

Author Comment

by:AUPIT
ID: 21794383
I have followed your well laid out instructions but when I try and run the macro I get the following error, "The macros in this project are disabled. Please refer to the online help or documentation of the host application to determine how to enable macros" I have changed the security for macro's to low but I still get the error, any help would be gratefully received
0
 
LVL 76

Expert Comment

by:David Lee
ID: 21798126
Did you close and restart Outlook after changing the security setting?  If you did, then try adding the following code to the ThisOutlookSession module:

Private Sub Application_Startup()
    MsgBox "Hello world."
End Sub

Close and relaunch Outlook. When it starts it should display a dialog-box asking if you want to enable macros.  You must answer yes.
0
 
LVL 76

Accepted Solution

by:
David Lee earned 250 total points
ID: 21798222
This version of the script works without a template.
Sub SendReply2AllNoTemplate()

    Dim olkMsg As Outlook.MailItem, _

        olkReply As Outlook.MailItem, _

        olkTemp As Outlook.MailItem, _

        strSubject As String, _

        strBody As String

    strSubject = InputBox("Enter the reply's subject", "Send Reply To All")

    strBody = InputBox("Enter the reply's body", "Send Reply To All")

    For Each olkMsg In Application.ActiveExplorer.Selection

        Set olkTemp = olkMsg.Reply

        Set olkReply = Application.CreateItem(olMailItem)

        olkReply.Recipients.Add olkTemp.Recipients.Item(1).Address

        olkReply.Recipients.ResolveAll

        olkReply.Subject = strSubject

        olkReply.Body = strBody

        olkReply.Display

        Set olkTemp = Nothing

    Next

    Set olkReply = Nothing

    Set olkMsg = Nothing

End Sub

Open in new window

0
 

Expert Comment

by:Karrillion
ID: 30728672
Is there a version of this that will keep the original subject line of the email and simply put RE: in front of the original subject?

Also, when I tried this, I was getting the error about needing an email in the To: or CC: box.  Am I overlooking something?
0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
cached or not 5 61
convert publisher file to an outlook email template 8 36
Sending email from List Data 2 51
Remote Access to Outlook 5 34
This process describes the steps required to Import and Export data from and to .pst files using Exchange 2010. We can use these steps to export data from a user to a .pst file, import data back to the same or a different user, or even import data t…
Finding original email is quite difficult due to their duplicates. From this article, you will come to know why multiple duplicates of same emails appear and how to delete duplicate emails from Outlook securely and instantly while vital emails remai…
This Experts Exchange video Micro Tutorial shows how to tell Microsoft Office that a word is NOT spelled correctly. Microsoft Office has a built-in, main dictionary that is shared by Office apps, including Excel, Outlook, PowerPoint, and Word. When …
To add imagery to an HTML email signature, you have two options available to you. You can either add a logo/image by embedding it directly into the signature or hosting it externally and linking to it. The vast majority of email clients display l…

911 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

27 Experts available now in Live!

Get 1:1 Help Now