Carole,
  Try the SendObject function.
Al Camp

Stolen from an old post by Cheryl Fischer... needs a reference to the
Outlook library.  Works for me except pops up a warning saying that a
program is about to send a message on my behalf...
Sub SendReq()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
   .RequiredAttendees = "Addressee(s) Name(s)"
   .Subject = "Subject of Meeting/Appointment"
   .Importance = 2         ' high
   .Start = YourDateField & " " & IIf(IsNull(YourTimeField), " 8:00",
YourTimeField)
   .Location = "Location of Meeting"
   .Body = "Additional information to appear in body"
   .MeetingStatus = 1
   .ResponseRequested = True
   '.Save  'Uncomment if you want message saved to your sent items folder
   .Send
   MsgBox "Item sent."
End With

Exit_btnSendItem_Click:
   Set objOApp = Nothing
   Set objAppt = Nothing
   Set oExp = Nothing
End Sub