I have used the following in Access 2000 and 2002 apps...
Dim objOApp As New Outlook.Application
Dim objAppt As AppointmentItem
Dim oExp As Outlook.Explorer
Dim objRecipient As Recipient
Dim strOptionals As String
Dim strAddressee As String
Dim strSubject As String
Dim lngDuration As Long ' represents duration of event in minutes/
database has it in hours.
Dim strLocation As String
Dim strAdditCases As String
Dim strAdditInfo As String
' Initialize selected variables
strAddressee = "
[email protected]"
strSubject = "Appointment for your IRS Audit"
lngDuration = 90
strLocation = "IRS Office"
strAdditInfo = "They want you to be on time."
Set objOApp = New Outlook.Application
Set objAppt = objOApp.CreateItem(olAppointmentItem)
Set oExp = objOApp.Session.GetDefaultFolder(olFolderInbox).GetExplorer
With objAppt
.RequiredAttendees = strAddressee
.Subject = strSubject
.Importance = 2 ' high
.Start = Me!Date & " " & IIf(IsNull(Me!Time), " 8:00", Me!Time)
.Duration = lngDuration
.Location = strLocation
If Len(Trim(strAdditInfo)) > 0 Then
.Body = strAdditInfo
End If
.ResponseRequested = True
.Send
MsgBox "Item sent."
End With
hth,