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
