please review code to send appoint from within Access 97

[burgesse]

This code is intended to send an appointment. When I double click my command button,in Access 97, nothing happens, and the appointment that I am send to myself does not appear. Any ideas, here is the code:

Private Sub Command94_Click()
Dim objOutlook As New Outlook.Application
Dim objAppoint As Outlook.AppointmentItem


Set objAppoint = objOutlook.Session.GetDefaultFolder(olFolderCalendar).Items.Add
objAppoint.Recipients.Add "burgesse"
objAppoint.Subject = "Subject-test appointment"
objAppoint.Body = "test appointment body"
objAppoint.Location = "Test Location"
objAppoint.Start = "6/6/02 2:00 pm"
objAppoint.End = "6/6/02 3:00 pm"
objAppoint.Send

End Sub


Thanks

 

[StarPassing]

Change your last line "objAppoint.Send" to "objAppoint.Save".
Works for me.