Full Version: Appointments in Redemption
UtterAccess Discussion Forums > Microsoft® Access > Access Automation
paulgreen
Hi to all, All my posts on here seem to relate to Redemption!!!

I'm trying to get our system here to plonk an appointment in the Outlook calendar and send it to the assigned engineer, but can't get it to play ball, I've tried a couple of different bits of code based on the rdo code on their web site, but it doesn't want to play. Has anybody done this before, and if so, would you mind sharing your function code?

Cheers
PG
Dionysus
Hi,

Have a look at the following. I do not know how to then send it to someone, but its a start...
Hope it helps the ball rolling for you.

Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)
With objAppt
.Start = <insert start date/time>
.Subject = <insert subject>
.Body = <insert body text>
.Location = <insert location>
.ReminderMinutesBeforeStart = <insert minutes>
.Save
.Close (olSave)
End With
This is a "lo-fi" version of our main content. To view the full version with more information, formatting and images, please click here.