Sync to outlook

[James]

I know that this is the wrong newgroup but I didn't get a reply on the
outlook.vba newgroup. And is has a little to do with forms coding. How
would I have a calendar item in Outlook that was added from Access synced to
the Calendar item in access. Could I do this by the ID number? There is a
EntryID that is in oulook and I know how to put that in the code but I don't
know what to write. IE EntryID = Me.EntryID and if it exists then change to
the new information, else add to calendar. If anyone could at least get me
started I can probably figure it out. This is what I have right now.
Any help is greatful.


Private Sub btnOutlook_Click()
On Error GoTo Err_btnOutlook_Click

Dim objOApp As New Outlook.Application
Dim objAppt As AppointmentItem
Dim oExp As Outlook.Explorer

Set objOApp = New Outlook.Application
Set objAppt = objOApp.CreateItem(olAppointmentItem)
Set oExp = objOApp.Session.GetDefaultFolder(olFolderInbox).GetExplorer

With objAppt
.ReminderOverrideDefault = True
.ReminderSet = True
.ReminderMinutesBeforeStart = 1440 '1 Day
.Subject = LimoID.Column(1)
.Importance = 2 ' high
.Start = PUDate
.End = DODate
.Body = PULocation & " - " & DOLocation & " - " & Notes & " - " &
EventDescription
.MeetingStatus = 1
.ResponseRequested = False
.Save
.Send
MsgBox "The event has been sent."
End With

Set objOApp = Nothing
Set objAppt = Nothing
Set oExp = Nothing

Exit_btnOutlook_Click:
Exit Sub

Err_btnOutlook_Click:
MsgBox Err.Description
Resume Exit_btnOutlook_Click
End Sub