Open Outlook Calendar from Access?

[deko]

Does this code look correct?

Private Sub cmdCalendar_Click()
Dim mOutlookApp As Outlook.Application
Dim mNameSpace As Outlook.NameSpace
Set mOutlookApp = New Outlook.Application
Set mNameSpace = mOutlookApp.GetNameSpace("MAPI")
mNameSpace.GetDefaultFolder(olFolderCalendar).Disp lay
Set mNameSpace = Nothing
Set mOutlookApp = Nothing
End Sub

Seems to work, but I don't know how to prevent the Folder List from being
displayed.

Is there a way to programmatically open Outlook without the Folder List
visible? Perhaps a macro that simply goes to View >> Folder List and
toggles the list?

Any suggestions or comments welcome!

Thanks!

[Pieter Linden]

It's difficult to judge the "correctness" of code if you don't know
what it's intended to *do*. If the code accomplishes the goal, then
one could say it's okay. May not be ideal, but it's functional. At
the moment, I don't even know how to evaluate the code. What exactly
are you trying to do with the calendar? List the appointments? If
that's all you wanted to do, you could just create a linked table to
your Outlook calendar and be done with it. Then you can query it like
a native table. So take a step back and explain why you're trying to
do this or better what problem you're trying to solve. As stated,
there's not really a problem here...