Have you tried using

With CreateObject("outlook.application").createitem(0)
    '....rest of your code
End With
Even better would be posting your current code so we can check.