display error

hi
getting "a dialog box is open.Close it and try again" , while running the code :

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

the error occurs on .Display .
how should i fix it, or there is another way to load/show/display my template form?

10x

Quote:

---

Originally Posted by nastya

hi
getting "a dialog box is open.Close it and try again" , while running the code :

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

the error occurs on .Display .
how should i fix it, or there is another way to load/show/display my template form?

10x

---

Well, you could try myOlApp.Visible = True. If that does not work then can you tell me the name of the reference so, I cna add it and try it myself?

Cheers,

RyanJ

what is the dialogbox that is open?

pete