In general, to print envelopes for many Outlook contacts, you can make use of “Mail Merge” feature and MS Word. But it is too tedious. This article will teach you how to accomplish it just via one click.
Actually, in the article “How to Print Envelopes for Multiple Outlook Contacts in Batches”, you can learn a method to bulk print many envelopes. By that means, you have to utilize “Mail Merge”, access MS Word application and select related address blocks and other contact fields. In a nutshell, it is quite tedious and looks pretty complex for Outlook novices. Hence, many users long for a more effective and easier way. Now, in the followings, we will expose a piece of VBA code, which permits users to achieve it simply by one click.
Batch Print Envelopes for Multiple Outlook Contacts
- To start with, launch your Outlook application.
- Then in the main Outlook window, press “Alt + F11” key shortcuts.
- Next you will enter the “Microsoft Visual Basic for Applications” window.
- Subsequently, you need to enable “Microsoft Word Object” in your Outlook.
- First, click on the “Tools” and choose “References”.
- Then in the popup dialog box, find out and enable the “Microsoft Word Object Library” option.
- After that, you need to open a module that isn’t in use or straightly insert a new module.
- Then you need to copy the following VBA code into this module.
Sub BatchPrintEnvelope_MultipleContacts() Dim objSelection As Outlook.Selection Dim objContact As Outlook.ContactItem Dim objWordApp As Word.Application Dim objWordDocument As Word.Document Dim strContactAddress As String Dim strReturnAddress As String Set objSelection = Outlook.Application.ActiveExplorer.Selection 'Your name & address strReturnAddress = "Amanda Barron" & vbCrLf & "1301 Bank of America Tower Suite 791, 12 Harcourt Road, Central, HONG KONG" On Error Resume Next For Each objContact In objSelection 'Contact name & address strContactAddress = objContact.FullName & vbCrLf & objContact.MailingAddress 'Create envelope in MS Word Set objWordApp = CreateObject("Word.Application") Set objWordDocument = objWordApp.Documents.Add With objWordDocument.Envelope .Insert Address:=strContactAddress, ReturnAddress:=strReturnAddress .PrintOut End With objWordDocument.Close False Next End Sub
- Later you are required to add the new VBA project to Quick Access Toolbar or ribbon for future convenience.
- For a start, back to the main Outlook window.
- Then go to “File” > “Options” > “Quick Access Toolbar”.
- Next add the macro by following the steps shown in the image below:
- Eventually you can have a try.
- At the beginning, access the contact list.
- Then select the source contacts in the list.
- Next hit the macro button in Quick Access Toolbar.
- At once, the macro will work.
- Lastly, you will get the printed envelopes for all the source contacts. They will look like the screenshot below:
Cope with Frustrating PST Issues Flexibly
Perhaps you’ve come across several issues during using your Outlook. Generally, Outlook is able to recover on its own. But if you encounter serious troubles, like Outlook corruption, you still can recur to inbox repair tool. Assuming that it fails too, it is suggested to apply a more potent utility, like DataNumen Outlook Repair.
Shirley Zhang is a data recovery expert in DataNumen, Inc., which is the world leader in data recovery technologies, including recover Sql Server and outlook repair software products. For more information visit www.datanumen.com