A reader named Savio requested a solution enabling him to “reply all” to multiple messages at once. Here is that solution.
Sub ReplyAllToAllSelected() Dim olkMsg As Object, olkRpl As Outlook.MailItem For Each olkMsg In Application.ActiveExplorer.Selection If olkMsg.Class = olMail Then Set olkRpl = olkMsg.ReplyAll olkRpl.Display End If Next Set olkMsg = Nothing Set olkRpl = Nothing End Sub
This solution should work in all versions of Outlook from 2003 on.
Follow these instructions to add the code to Outlook.
- Start Outlook
- Press + to open the Visual Basic Editor
- If not already expanded, expand Microsoft Office Outlook Objects
- If not already expanded, expand Modules
- Select an existing module (e.g. Module1) by double-clicking on it or create a new module by right-clicking Modules and selecting Insert → Module.
- Copy the code from the code snippet box and paste it into the right-hand pane of Outlook’s VB Editor window
- Click the diskette icon on the toolbar to save the changes
- Close the VB Editor
Using the Solution.
Select one or more messages then run the ReplyAllToAllSelected macro. The macro will create a reply to each selected message and display it on screen. You can then add your reply and send the message.
Adding Buttons to Run the Macro with a Single Click.
If Savio wants to run the macro with a single click, then he’ll need to add a toolbar button in Outlook 2007 or a button on the Quick Access Toolbar (QAT) for Outlook 2010. Here’s how.