For what it is worth, I had a lot of trouble with this too and finally found this that works for me. It is a module that tests for Outlook being open. If not then Outlook is opened.
Sub TestOutlookIsOpen()
Dim A, B, C, D As String
A = "Outlook Is Not Open, Outlook Will Now Open."
B =...