O2007, ThisAddIn_Startup and custom calendar creation

[senglory]

I'm trying to create custom calendar in Startup handler in my VSTO. It
creates successfully:

_ns = Me.Application.GetNamespace("MAPI")
Me._colCalendar =
_ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)
nf = Me._colCalendar.Folders.Add("MY CALENDAR NAME",
Outlook.OlDefaultFolders.olFolderCalendar)

but I don't see it in calendars list after Outlook showed up on my monitor.
What's wrong to my code?

 

[Brian Tillman [MVP-Outlook]]

I'm trying to create custom calendar in Startup handler in my VSTO. It
creates successfully:

_ns = Me.Application.GetNamespace("MAPI")
Me._colCalendar =
_ns.GetDefaultFolder(Outlook.OlDefaultFolders.olFolderCalendar)
nf = Me._colCalendar.Folders.Add("MY CALENDAR NAME",
Outlook.OlDefaultFolders.olFolderCalendar)

but I don't see it in calendars list after Outlook showed up on my monitor.
What's wrong to my code?

Ask in the programming group microsoft.public.outlook.program_addins