Wrote a macro to for a one click email creation in OL2003

[Robert Issa]

This macro creates a button, that when clicked creates an
email with default information. The poblem is, after I
create one email, which it does successfully, it crashes
outlook 2003. No error, just drops to desktop.

Here is the macro, hope it pastes properly.

Sub WindUp_Email()

Dim myOlApp As Outlook.Application

Dim MyItem As Outlook.MailItem

Set myOlApp = CreateObject("Outlook.Application")

Set MyItem = myOlApp.CreateItemFromTemplate
("C:\Documents and
Settings\dcooper\Application
Data\Microsoft\Templates\WindUp Estate
Accounting & Tax software.oft")

MyItem.Display



Set myOlApp = Nothing

Set MyItem = Nothing

End Sub



Sub Estate_Admin_Email()

Dim myOlApp As Outlook.Application

Dim MyItem As Outlook.MailItem

Set myOlApp = CreateObject("Outlook.Application")

Set MyItem = myOlApp.CreateItemFromTemplate
("C:\Documents and
Settings\dcooper\Application
Data\Microsoft\Templates\WindUp Estate
Administration software.oft")

MyItem.Display



Set myOlApp = Nothing

Set MyItem = Nothing



End Sub







Sub Estate_Planning_Email()

Dim myOlApp As Outlook.Application

Dim MyItem As Outlook.MailItem

Set myOlApp = CreateObject("Outlook.Application")

Set MyItem = myOlApp.CreateItemFromTemplate
("C:\Documents and
Settings\dcooper\Application
Data\Microsoft\Templates\Estate Planning &
Vault Manager software.oft")

MyItem.Display



Set myOlApp = Nothing

Set MyItem = Nothing



End Sub

Sub Estates_Email()

Dim myOlApp As Outlook.Application

Dim MyItem As Outlook.MailItem

Set myOlApp = CreateObject("Outlook.Application")

Set MyItem = myOlApp.CreateItemFromTemplate
("C:\Documents and
Settings\dcooper\Application
Data\Microsoft\Templates\Entrust Estates
software.oft")

MyItem.Display



Set myOlApp = Nothing

Set MyItem = Nothing



End Sub

Sub Corporate_email()

Dim myOlApp As Outlook.Application

Dim MyItem As Outlook.MailItem

Set myOlApp = CreateObject("Outlook.Application")

Set MyItem = myOlApp.CreateItemFromTemplate
("C:\Documents and
Settings\dcooper\Application
Data\Microsoft\Templates\Entrust Corporate
Manager.oft")

MyItem.Display



Set myOlApp = Nothing

Set MyItem = Nothing

End Sub