[AccessD] Picking Alternate Calendar

Hi Rocky,

This is what I use:

    With objAppt
        .Subject = stgSubject
        .Start = dteStartDateTime
        .Duration = intMeetingMinutes

        '-- Make it a meeting request
        .MeetingStatus = olMeeting
        .RequiredAttendees = stgAttendees
        .ReminderOverrideDefault = True
        .ReminderSet = True
        .ReminderMinutesBeforeStart = 30
        .ReminderPlaySound = True
        .Location = stgLocation
        .Body = stgMessage
    End With


Good Luck,
Dan

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin
Sent: Tuesday, March 09, 2010 11:06 AM
To: 'Access Developers discussion and problem solving'
Subject: [AccessD] Picking Alternate Calendar

Dear List:

I am trying to push dates into an outlook calendar from Access.  The
calendar will be an alternate calendar, not the default. I'd like to hard
code the calendar name but can't figure out the syntax.  So far I'm using
the following code which allows the user to select the calendar to push the
dates into:

Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Dim objRecurPattern As Outlook.RecurrencePattern

Dim nms As Outlook.NameSpace
Dim fld As Outlook.MAPIFolder

Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)

SelectCalendarFolder:
   'Allow user to select Calendar folder
   Set nms = objOutlook.GetNamespace("MAPI")
   Set fld = nms.PickFolder

 

and that works.  But does anyone know the syntax to set fld to a specific
calendar folder?

 

MTAI

 

is