Opening to Calendar

  • Thread starter Thread starter Tammy
  • Start date Start date
T

Tammy

I currently have some code which opens outlook to a
specific appointment. I am hoping to be able to open
outlook just to the calendar page. The user is using an
Access application to set some appointments, and instead
of having them check/review each individually, I would
like for them to set them all (this is done
w/VBA;automation) - then bring up Outlook to the calendar
so that they may click on each appointment to make
notes/additions if necessary. The appointments will
likely occur on different dates. Hope this makes
sense!!!!
 
I have this working. For anyone who may be interested;
this is what I did:
Sub ShowCal()

Dim objOutlkApp As Outlook.Application
Dim objMyNameSpace As Object
Dim objMyCalendar As Object

Set objOutlkApp = CreateObject("Outlook.Application")
Set objMyNameSpace = objOutlkApp.GetNamespace("MAPI")
Set objMyCalendar = objMyNameSpace.GetDefaultFolder
(olFolderCalendar)
objMyCalendar.Display

End Sub
 
Could you use this same method if I wanted to add an appointment to a
shared calendar? I set up a generic automation in access to add
appointments in outlook, but it adds the appointment to my personal
calendar. I want it posted to a specified shared calendar.

Thanks
Tom
 
Back
Top