No announcement yet.

Via excel - need to set recurrence for outlook appointment

  • Filter
  • Time
  • Show
Clear All
new posts

  • 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

  • #2


    You should take a look at following link :

    Hope this will help
    If you feel like saying "Thank You" for the help received ...You can click on the "Like" icon ...just underneath ... ... in the bottom right corner ...