Set Outlook reminder from Access form

[Valerie]

I am attempting to put a reminder in my Outlook calendar from a button on a form. Below is the code I am using, but I am getting

"compile error: Method or Data member not found" on the CreateItem.


Dim objOutlook As Application
Dim objAppt As Object

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

With objAppt
.Start = #12/23/2005#
.Subject = "Call Client: Jones"
.ReminderSet = True
.ReminderMinutesBeforeStart = 15
.Save
End With

I would be grateful for any pointers to solve this. Thanks

 

[lobodava]

Try to use the following object variable initialization:
Set objOutlook = GetObject("", "Outlook.Application")

instead of this:
Set objOutlook = CreateObject("Outlook.Application")