Glad the code helped. I think the problem you are encountering may be with the Profile setting, you cut that part of the code out from mine. The profile can be found in Outlook by (from the MS Outlook help):
On the Tools menu, click Options, and then click the General tab
Look at the Startup Settings and you should see a Profile listed. Then add the following to your code:
This.Session1.UserName = "
"
Before the Signon call. If this doesn't work, please write back and I'll take a further look into it.
Oct 31 = Dec 25