Hi,

specs: Outlook 2003 - winXP

I'm developing an Acces database with some automation to Outlook. In Access
I create an appointment which I want to automate and sent via Outlook.

This is what I have so far:

Dim objApp As New Outlook.Application
Dim objAppointment As Outlook.AppointmentItem
Dim objSession As Object

Set objApp = CreateObject("Outlook.Application")
Set objAppointment = Outlook.CreateItem(olAppointmentItem)

With objAppointment
.Start = rst("StartDate") '- Extract from Access
.End = rst("EndDate")
.Recipients.Add (rst("Addressee"))
.Subject = rst("Subject")
.ReminderSet = IIf(rst("Reminder") = -1, True, False)
.Location = rst("Locatie")
.Send
End With

When I run this code the appointment seems to be made but I don't see it in
de calendar of the person I sent it to.

If I choose .Display I see the appointment and I can click Send. If I choose
Send I don't see the appointment
What piece of code am I missing here?

thanks in advance for any pointers...
--
Maurice Ausum

You will need to set item.MeetingStatus = olMeeting. You also should set the
properties of any recipients as required (olTo), or optional (olCC) or as
resources (olBCC). See the help in the Object Browser for
AppointmentItem.MeetingStatus.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Maurice" wrote in message
...
Hi,

specs: Outlook 2003 - winXP

I'm developing an Acces database with some automation to Outlook. In
Access
I create an appointment which I want to automate and sent via Outlook.

This is what I have so far:

Dim objApp As New Outlook.Application
Dim objAppointment As Outlook.AppointmentItem
Dim objSession As Object

Set objApp = CreateObject("Outlook.Application")
Set objAppointment = Outlook.CreateItem(olAppointmentItem)

With objAppointment
.Start = rst("StartDate") '- Extract from Access
.End = rst("EndDate")
.Recipients.Add (rst("Addressee"))
.Subject = rst("Subject")
.ReminderSet = IIf(rst("Reminder") = -1, True, False)
.Location = rst("Locatie")
.Send
End With

When I run this code the appointment seems to be made but I don't see it
in
de calendar of the person I sent it to.

If I choose .Display I see the appointment and I can click Send. If I
choose
Send I don't see the appointment
What piece of code am I missing here?

thanks in advance for any pointers...
--
Maurice Ausum

Hi ken,

Thanks for replying. I'll set the options as you stated. Finally I know ;-)
--
Maurice Ausum


"Ken Slovak - [MVP - Outlook]" wrote:

You will need to set item.MeetingStatus = olMeeting. You also should set the
properties of any recipients as required (olTo), or optional (olCC) or as
resources (olBCC). See the help in the Object Browser for
AppointmentItem.MeetingStatus.

--
Ken Slovak
[MVP - Outlook]
http://www.slovaktech.com
Author: Professional Programming Outlook 2007
Reminder Manager, Extended Reminders, Attachment Options
http://www.slovaktech.com/products.htm


"Maurice" wrote in message
...
Hi,

specs: Outlook 2003 - winXP

I'm developing an Acces database with some automation to Outlook. In
Access
I create an appointment which I want to automate and sent via Outlook.

This is what I have so far:

Dim objApp As New Outlook.Application
Dim objAppointment As Outlook.AppointmentItem
Dim objSession As Object

Set objApp = CreateObject("Outlook.Application")
Set objAppointment = Outlook.CreateItem(olAppointmentItem)

With objAppointment
.Start = rst("StartDate") '- Extract from Access
.End = rst("EndDate")
.Recipients.Add (rst("Addressee"))
.Subject = rst("Subject")
.ReminderSet = IIf(rst("Reminder") = -1, True, False)
.Location = rst("Locatie")
.Send
End With

When I run this code the appointment seems to be made but I don't see it
in
de calendar of the person I sent it to.

If I choose .Display I see the appointment and I can click Send. If I
choose
Send I don't see the appointment
What piece of code am I missing here?

thanks in advance for any pointers...
--
Maurice Ausum