Custom Appointment Macro locks rest of Outlook when run

Tue, 08 Dec 2009 09:39:10 -0700

I've created a basic macro and assigned it to a toolbar button. The macro opens the new calendar appointment window with a default template (I know there are other ways to do this via personal and organizational templates etc. but for a handful of users with limited access rights this is the way we want to go). The problem is that when the macro is activated the appointment window stays on top and locks out everything else in outlook - so users cannot refer to other emails or calendar entries (which they need to do) unless the new appointment window is closed:

Sub Engineers_Template()

Dim oApp As Outlook.Application
Dim oMsg As Outlook.AppointmentItem

Set oApp = New Outlook.Application

Set oMsg = oApp.CreateItemFromTemplate("H:\Install Team Job Template - TEST\Install Team - New Job Details.oft")

If Not oMsg Is Nothing Then
oMsg.Display vbModal
Else
MsgBox "Template Not Found. Contact I.T team"
End If

End Sub

Any ideas on how I make it so the rest of outlook isn't locked when the macro is running?
Thanks

'Custom Appointment Macro locks rest of Outlook when run' Thread RSS Feed

Custom Appointment Macro locks rest of Outlook when run