Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to assign a quick launch button to a template in Outlook?

When using template in Outlook, you have to get into the Choose Form window, find the template saving location and then select to open it. This may be somewhat troublesome for most of us. Here I will show you a method to assign a quick launch button to open a specified template in Outlook. After assigning the button, the template will be opened quickly with only one click.

Assign a quick launch button to a template with VBA code

Office Tab - Enable Tabbed Editing and Browsing in Office, and Make Work Much Easier...
Kutools for Outlook - Brings 100 Powerful Advanced Features to Microsoft Outlook
  • Auto CC/BCC by rules when sending email; Auto Forward Multiple Emails by rules; Auto Reply without exchange server, and more automatic features...
  • BCC Warning - show message when you try to reply all if your mail address is in the BCC list; Remind When Missing Attachments, and more remind features...
  • Reply (All) With All Attachments in the mail conversation; Reply Many Emails at once; Auto Add Greeting when reply; Auto Add Date&Time into subject...
  • Attachment Tools: Auto Detach, Compress All, Rename All, Auto Save All... Quick Report, Count Selected Mails, Remove Duplicate Mails and Contacts...
  • More than 100 advanced features will solve most of your problems in Outlook 2010-2019 and 365. Full features 60-day free trial.

Assign a quick launch button to a template with VBA code

Please do as follows to assign a quick launch button to a template in Outlook.

1. Press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.

2. In the Microsoft Visual Basic for Applications window, click Insert > Module. Then copy below VBA code into the Code window.

VBA code: Macro to open template

Sub MakeTemplate()
'Update by Extendoffice 2018/5/24
Dim xDialog As FileDialog
Dim xExcel As Excel.Application
Dim xFilePath As String
Dim xNewItem As Object
On Error Resume Next
xFilePath = CreateObject("WScript.Shell").SpecialFolders(5)
xFilePath = xFilePath & "\Microsoft\Templates\template test.oft"
Set xNewItem = Outlook.Application.CreateItemFromTemplate(xFilePath)
xNewItem.Display True
Set xNewItem = Nothing
End Sub

Note: In the code, "\Microsoft\Templates\template test.oft" is the default template saving path, and template test is the name of the template you will open. Please change them as you need.

3. Click Tools > References. Then enable the Microsoft Excel Object Library box as below screenshot shown.

4. Press the Alt + Q keys to close the Microsoft Visual Basic for Applications window.

5. Click the Customize Quick Access Toolbar > More Commands. See screenshot:

6. In the Outlook Options dialog box, you need to:

6.1 Select Macros from the Choose commands from drop-down list;

6.2 Select the Project1.MakeTamplate in the commands list box;

6.3 Click the Add button;

6.4 Click the OK button. See screenshot:

7. Then the macro button is added on the Quick Access Toolbar. Click on the button will open the specified template immediately. See screenshot:


Related articles:


Kutools for Outlook - Brings 100 Advanced Features to Outlook, and Make Work Much Easier!

  • Auto CC/BCC by rules when sending email; Auto Forward Multiple Emails by custom; Auto Reply without exchange server, and more automatic features...
  • BCC Warning - show message when you try to reply all if your mail address is in the BCC list; Remind When Missing Attachments, and more remind features...
  • Reply (All) With All Attachments in the mail conversation; Reply Many Emails in seconds; Auto Add Greeting when reply; Add Date into subject...
  • Attachment Tools: Manage All Attachments in All Mails, Auto Detach, Compress All, Rename All, Save All... Quick Report, Count Selected Mails...
  • Powerful Junk Emails by custom; Remove Duplicate Mails and Contacts... Enable you to do smarter, faster and better in Outlook.
shot kutools outlook kutools tab 1180x121
shot kutools outlook kutools plus tab 1180x121
 
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.