[AccessD] Picking Alternate Calendar

Yes, please shoot me the code.  Can't hurt.  I'm making progress.  The
appointments are being added.  But still can't direct them to the right
calendar.  I'm using Colby's C2dbAutomation routine to add.  I'm having
trouble deleting the appointments in a date range - deletes some, leaves
some.  Very strange. 

R.  

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

Rocky, I *think* I have an answer for you, but  I have not done this  before
and it is quite tricky. Do you want me to send on what I have?

If you have anything better, go with that...mine is just a realy hack  but
seems  to work.

I set a  new  Calendar up by clicking on the Calendar  folder and selecting
new. It  is then seen  as  a sub calendar to the main one and  the code runs
against that.



Max
 

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

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

--
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