I have been combing the web looking for a way to set a recurring calendar invite, the invite is generated via excel, then sent to the party, this specific instance needs to have the same invite sent for the following day.
I inherited this form from a predecessor.
Is there any way to set this item without doing a complete re-write?
Using outlook 2013 and excel 2013
Current code is pasted below.
This is being run in outlook 2013 under vba for applications
Appreciate the help because I am totally stumped.
Sub CreateMeeting(emAry As Variant, x As Variant)
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Const olBusy = 2
Const olMeeting = 1
Set OutMail = OutApp.CreateItem(olAppointmentItem)
'For x = 1 To 2
'For x = LBound(emAry) To UBound(emAry)
emadd = Split(emAry(x, 2), "; ")
.Subject = emAry(x, 4)
.Location = emAry(x, 3)
.Start = emAry(x, 0)
.Duration = emAry(x, 1)
For y = LBound(emadd) To UBound(emadd)
.MeetingStatus = olMeeting
.AllDayEvent = False
.BusyStatus = olBusy
'.BodyFormat = 2
.Body = emAry(x, 5)
'i = i + 1