Courtesy of EE I have adapted a piece of code which creates an outlook calendar appointment - this works all ok, but what I am keen to do is is be able to automatically send out meeting requests as part of the code.
I've managed to create the outlook appointment and put in the required attendees (these do appear when I open the appointment in Oulook) - this all works ok, but the invitations arent sent
The code I'm using is below:
Private Sub CreateiCal_Click()
Dim InvoiceDate1 As String
InvoiceDate1 = Me.Invoice_Date_1 - 2
Dim objOutlook As Outlook.Application
Dim objAppt As Outlook.AppointmentItem
Set objOutlook = CreateObject("Outlook.Application")
Set objAppt = objOutlook.CreateItem(olAppointmentItem)
.Start = InvoiceDate1 & " " & "09:00"
.Duration = 0
.Subject = "Invoice for " & Me.HeaderLabel1 & " for " & Me.title & " at " & Me.Firm & " due to be sent in 2 days"
.Body = Me.HeaderLabel1 & " fee is due in 2 days for the following assignment: " & vbCr & "Firm: " & "Role: " & Me.title & vbCr & "Amount: " & Me.Date_Invoice_Amount_1
.Location = "Desk"
.RequiredAttendees = "email@example.com"
'Release the AppointmentItem object variable.
Set objAppt = Nothing
'Release the Outlook object variable.
Set objOutlook = Nothing
MsgBox "Appointment Added!"
Can anybody help?