none
Easy way to create and make available Outlook templates RRS feed

  • Question

  • Outlook 2013

    I would like to create and make available Outlook templates

    One idea I thought of is

    to add my own Outlook templates in the New Items drop down list. The templates will be located in a central location on the users machined with a deployment update mechanism that already exists eg

    C:\Program Files (x86)\<CompanyTemplateshere>\Templates

    Can shortcut keys be added to the list for quick access to the templates for secretaries.

    Can the Outlook templates be pinned to the taskbar again for quick access for the secretaries

    Is there a simple easy way to do this.

    or is there a better solution

    Many thanks

    Monday, May 1, 2017 6:37 AM

All replies

  • Hi dd_,

    from your description of the thread, it looks like you want to do it by user interface.

    if you want to do it by user interface then there is no way to do it.

    other option is that you can try to add button in ribbon and then call the vba code on the click event of that button.

    you can use code below to create item from template.

    Sub CreateFromTemplate()
    	Dim myOlApp As Outlook.Application
    	Dim MyItem As Outlook.MailItem
    	Set myOlApp = CreateObject("Outlook.Application")
    	Set MyItem = myOlApp.CreateItemFromTemplate("C:\statusrep.oft")
    	MyItem.Display
    End Sub
    
    Sub CreateTemplate()
    	Dim myOlApp As Outlook.Application
    	Dim MyItem As Outlook.MailItem
    	Set myOlApp = CreateObject("Outlook.Application")
    	Set MyItem = myOlApp.CreateItem(olMailItem)
    	MyItem.Subject = "Status Report"
    	MyItem.To = "Dan Wilson"
    	MyItem.Display
    	MyItem.SaveAs "C:\statusrep.oft", OlSaveAsType.olTemplate
    End Sub

    Reference:

    CreateItemFromTemplate Method

    Regards

    Deepak


    MSDN Community Support
    Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact MSDNFSF@microsoft.com.


    Tuesday, May 2, 2017 2:45 AM
    Moderator
  • Thank you Deepak, that is now working for me.

    Thank you again


    Wednesday, May 3, 2017 12:16 AM
  • Hi dd_,

    from your last post I can see that your issue is solved now.

    but this thread is still open.

    to help to close this thread you need to mark the answer.

    if you do not mark the answer then we are not able to close this thread and it will remain open.

    if you had found the solution by yourself then try to post your solution and mark it as an answer.

    if above suggestion helped you to solve the issue then mark it as an answer.

    so that we can close this thread.

    Regards

    Deepak


    MSDN Community Support
    Please remember to click "Mark as Answer" the responses that resolved your issue, and to click "Unmark as Answer" if not. This can be beneficial to other community members reading this thread. If you have any compliments or complaints to MSDN Support, feel free to contact MSDNFSF@microsoft.com.

    Wednesday, May 3, 2017 12:39 AM
    Moderator