[AccessD] Picking Alternate Calendar

Dan:

That will push the items into the default calendar, I think.  I have a
second calendar - I know the name of it - and I'd like to set fld ( Dimmed:
Dim fld As Outlook.MAPIFolder) to that fixed name.  Set fld = nms.PickFolder
works but makes the user pick the custom calendar each time.  DO you know
the syntax to set the fld to a specific calendar?

TIA

Rocky


-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Dan Waters
Sent: Tuesday, March 09, 2010 9:44 AM
To: 'Access Developers discussion and problem solving'
Subject: Re: [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

 


--
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com

No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 9.0.733 / Virus Database: 270.14.129/2605 - Release Date: 03/08/10
23:33:00