ASKER
Sub PreviewEmails()
Dim myOlApp As Outlook.Application
Dim oMail As Outlook.MailItem
Set myOlApp = CreateObject("Outlook.Application")
strTemplateName = "Template1"
strTemplateFolder = "C:\Samples\Sending emails\"
strPath = strTemplateFolder + strTemplateName
Set oMail = myOlApp.CreateItemFromTemplate(strPath)
oMail.Display
End Sub
ASKER
Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.
TRUSTED BY