By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
425,940 Members | 614 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 425,940 IT Pros & Developers. It's quick & easy.

Open Outlook Calendar from Access?

P: n/a
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

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!

Nov 12 '05 #1
Share this Question
Share on Google+
1 Reply

P: n/a
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...
Nov 12 '05 #2

This discussion thread is closed

Replies have been disabled for this discussion.