OUTLOOK:SUB Mở 1 email template

 

Sub OpenTemplate()

    Dim olApp As Object

    Dim olItem As Object

    

    ' T?o m?t th? hi?n c?a ?ng d?ng Outlook

    Set olApp = CreateObject("Outlook.Application")

    

    ' T?o m?t m?c email m?i t? template

    Set olItem = olApp.CreateItemFromTemplate("C:\Users\PKUser\AppData\Roaming\Microsoft\Templates\Daily Report W12.oft")

    

    ' Hi?n th? m?c email

    olItem.Display

    

    ' Gi?i phóng b? nh?

    Set olItem = Nothing

    Set olApp = Nothing

End Sub