Using Access to put a meeing in another user's folder

We found the code below on pg 230 in Microsoft Programming
Jumpstart for etc. This allows us to programmatically
place an appointment on another user's calendar.

Dim objOtherFolder As Outlook.MAPIFolder
Dim objAppt As Outlook.AppointmentItem

Set objOtherFolder = GetOtherUserCalendar("Emily Huie")
Set objAppt = objOtherFolder.Items.Add
(olAppointmentItem)

objAppt.Start = #11/16/2004 12:00:00 PM#
objAppt.Duration = 30
objAppt.Subject = "Lunch"
objAppt.Body = "Barb wants to buy you lunch today!"
objAppt.ReminderMinutesBeforeStart = 15
objAppt.ReminderSet = True
objAppt.Save
objAppt.Close (olSave)

Set objAppt = Nothing

'Release the object variables.
Set objOtherFolder = Nothing

Is there similar code for a meeting on someone's calendar
that still gives them the option to Accept/Decline?

Thanks,
Barb.

You can either place a meeting in someone else's calendar or you can send
them a meeting request that they can accept or decline. You can't do both,
at least not in a single item.

--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"Barb@MillerandMiller" <anonymous@discussions.microsoft.com> wrote in
message news:3cb501c4c1dd$622399d0$a301280a@phx.gbl...
> We found the code below on pg 230 in Microsoft Programming
> Jumpstart for etc. This allows us to programmatically
> place an appointment on another user's calendar.
>
> Dim objOtherFolder As Outlook.MAPIFolder
> Dim objAppt As Outlook.AppointmentItem
>
> Set objOtherFolder = GetOtherUserCalendar("Emily Huie")
> Set objAppt = objOtherFolder.Items.Add
> (olAppointmentItem)
>
> objAppt.Start = #11/16/2004 12:00:00 PM#
> objAppt.Duration = 30
> objAppt.Subject = "Lunch"
> objAppt.Body = "Barb wants to buy you lunch today!"
> objAppt.ReminderMinutesBeforeStart = 15
> objAppt.ReminderSet = True
> objAppt.Save
> objAppt.Close (olSave)
>
> Set objAppt = Nothing
>
> 'Release the object variables.
> Set objOtherFolder = Nothing
>
> Is there similar code for a meeting on someone's calendar
> that still gives them the option to Accept/Decline?
>
> Thanks,
> Barb.
>

We would want to programmatically send them a meeting
request using VBA code that they can then either Accept or
decline. My question is how would I alter the code below
to do this?
>-----Original Message-----
>You can either place a meeting in someone else's calendar
or you can send
>them a meeting request that they can accept or decline.
You can't do both,
>at least not in a single item.
>
>--
>Sue Mosher, Outlook MVP
>Author of
> Microsoft Outlook Programming - Jumpstart for
> Administrators, Power Users, and Developers
> http://www.outlookcode.com/jumpstart.aspx
>
>
>"Barb@MillerandMiller"
<anonymous@discussions.microsoft.com> wrote in
>message news:3cb501c4c1dd$622399d0$a301280a@phx.gbl...
>> We found the code below on pg 230 in Microsoft
Programming
>> Jumpstart for etc. This allows us to programmatically
>> place an appointment on another user's calendar.
>>
>> Dim objOtherFolder As Outlook.MAPIFolder
>> Dim objAppt As Outlook.AppointmentItem
>>
>> Set objOtherFolder = GetOtherUserCalendar("Emily
Huie")
>> Set objAppt = objOtherFolder.Items.Add
>> (olAppointmentItem)
>>
>> objAppt.Start = #11/16/2004 12:00:00 PM#
>> objAppt.Duration = 30
>> objAppt.Subject = "Lunch"
>> objAppt.Body = "Barb wants to buy you lunch today!"
>> objAppt.ReminderMinutesBeforeStart = 15
>> objAppt.ReminderSet = True
>> objAppt.Save
>> objAppt.Close (olSave)
>>
>> Set objAppt = Nothing
>>
>> 'Release the object variables.
>> Set objOtherFolder = Nothing
>>
>> Is there similar code for a meeting on someone's
calendar
>> that still gives them the option to Accept/Decline?
>>
>> Thanks,
>> Barb.
>>
>
>
>.
>

See http://www.outlookcode.com/codedetail.aspx?id=88 for sample VBScript
code that you should be able to adapt.

--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


"Barb@Miller&Miller" <anonymous@discussions.microsoft.com> wrote in message
news:2efd01c4c271$ae36b390$a401280a@phx.gbl...
> We would want to programmatically send them a meeting
> request using VBA code that they can then either Accept or
> decline. My question is how would I alter the code below
> to do this?
>>-----Original Message-----
>>You can either place a meeting in someone else's calendar
> or you can send
>>them a meeting request that they can accept or decline.
> You can't do both,
>>at least not in a single item.

>>
>>"Barb@MillerandMiller"
> <anonymous@discussions.microsoft.com> wrote in
>>message news:3cb501c4c1dd$622399d0$a301280a@phx.gbl...
>>> We found the code below on pg 230 in Microsoft
> Programming
>>> Jumpstart for etc. This allows us to programmatically
>>> place an appointment on another user's calendar.
>>>
>>> Dim objOtherFolder As Outlook.MAPIFolder
>>> Dim objAppt As Outlook.AppointmentItem
>>>
>>> Set objOtherFolder = GetOtherUserCalendar("Emily
> Huie")
>>> Set objAppt = objOtherFolder.Items.Add
>>> (olAppointmentItem)
>>>
>>> objAppt.Start = #11/16/2004 12:00:00 PM#
>>> objAppt.Duration = 30
>>> objAppt.Subject = "Lunch"
>>> objAppt.Body = "Barb wants to buy you lunch today!"
>>> objAppt.ReminderMinutesBeforeStart = 15
>>> objAppt.ReminderSet = True
>>> objAppt.Save
>>> objAppt.Close (olSave)
>>>
>>> Set objAppt = Nothing
>>>
>>> 'Release the object variables.
>>> Set objOtherFolder = Nothing
>>>
>>> Is there similar code for a meeting on someone's
> calendar
>>> that still gives them the option to Accept/Decline?