Yes this is odd:

[vba]
Set objApp = CreateObject("Outlook.Application")[/vba]

Could understand the use of getobject but not createobject. Should use:

[vba]Set objApp = New Outlook.Application[/vba]