OUTLOOK:SUB Mở 1 email template

 Sub OpenTemplate()

    Dim olApp As Object

    Dim olItem As Object

    Set olApp = CreateObject("Outlook.Application")

    Set olItem = olApp.CreateItemFromTemplate("C:\Users\PKUser\AppData\Roaming\Microsoft\Templates\Daily Report W12.oft")'change your template file adress here

    olItem.Display

    Set olItem = Nothing

    Set olApp = Nothing

End Sub