Outlook: CreateItemFromTemplate. Why so slow

F

Filips Benoit

Dear All,

The testcode below needs 37 sec. to display the mail, WHY so slow.

Private Sub Command1_Click()
Dim ol As Object
Dim msg As Outlook.MailItem
Dim strBody As String

Set ol = CreateObject("Outlook.Application")
Set msg =
ol.CreateItemFromTemplate("C:\Documents\000FILIP\VoorAnderen\Ycomm\YcommPMS\
EmailTemplates\Template1.oft")
strBody = msg.Body
strBody = Replace(strBody, "FirstName", "Filips")
msg.Body = strBody
msg.To = "[email protected]"
msg.Display
End Sub
 
Top