Message For Allen/"aldeb": Outlook Calendar

Hi. I have managed to create a command button on my form to send a date field on the form to Outlook as a task. I know this isn't exactly what you wanted to do, but you may be able to tailor the code to suit.

Private Sub cmdOutlookRem_Click()
Dim OutlookApp As Outlook.Application
Dim OutlookTask As Outlook.TaskItem
Set OutlookApp = CreateObject("Outlook.Application")
Set OutlookTask = OutlookApp.CreateItem(olTaskItem)
With OutlookTask
.Subject = "Contact " & Me!Forename & " " & Me!Surname & ", " & Me!CompanyName
.Body = "Company Tel No: " & Me!CoTelNo & ", " & "Direct Line: " & Me!DirectLineinCo & ", " & "Mobile: " & Me!MobileNo
.ReminderSet = True
.ReminderTime = DateAdd("n", 2, Me!DateNextContact)
'Remind 2 minutes from now.
.DueDate = DateAdd("n", 5, Me!DateNextContact)
'Due 5 minutes from now.
.StartDate = DateAdd("n", 2, Me!DateNextContact)
.ReminderPlaySound = True
.ReminderSoundFile = "C:WindowsMediaDing.wav" 'Modify path.
.Save
End With
End Sub