CODEWITHSUNDEEP
vbaoutlookappointment
Simon McKeown
Simon McKeown

Reputation: 1

Excel VBA creating Outlook Appointments, but the invite doesn't have 'Accept', 'Tentative' or 'Decline' options

I've written the following sub, which creates an outlook meeting invite, but the recipient can only edit or cancel the request, there isn't Accept / Decline option. I've read articles on .respond olMeetingResponseAccept, but whenever I insert any reference to that, my code won't compile:

Dim OutApp As New Outlook.Application
Dim OutInvite As AppointmentItem
Set OutInvite = CreateItem(olAppointmentItem)

With OutInvite
    .MeetingStatus = olMeeting
    '.Respond
    .Start = mydate
    .duration = duration
    .RequiredAttendees = email
    .Subject = treatment & " at The Lash Place"
   .location = location
   .Body = "Hi " & name & "," & vbNewLine & vbNewLine & _
           Sheets("Messages").Range("B8") & "     on the " & _
           Format(mydate, "dd") & " of " & Format(mydate, "mmm") & ", Sarah"
    .ReminderMinutesBeforeStart = 60
    .BusyStatus = olBusy
    .Send
End With

Upvotes: 0

Views: 49

Answers (0)

Related Questions