Via excel - need to set recurrence for outlook appointment

  • Hello all,

    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), "; ")
    With OutMail
    .Subject = emAry(x, 4)
    .Location = emAry(x, 3)
    .Start = emAry(x, 0)
    .Duration = emAry(x, 1)
    For y = LBound(emadd) To UBound(emadd)
    .Recipients.Add (emadd(y))
    .MeetingStatus = olMeeting
    .AllDayEvent = False
    .BusyStatus = olBusy
    '.BodyFormat = 2
    .Body = emAry(x, 5)
    End With
    'i = i + 1
    End Sub