Unsure why this automatic Calendar reminder is not working.

[PaulOPTC]

Sub COOutlookReminder()

    Dim OutApp As Object
    Dim OutMail As Object
    Dim strbody As String
    Dim myRequiredAttendee As Variant
    



    Dim Address             As Variant
    


    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(olAppointmentItem)
    
    
    
   strbody = "<H5>Good Afternoon,</H5> " & _
              "This is an automated e-mail. It has been Two weeks since you sent out this change order, please follow up.<br>" & _
              "<br><br>Thank you, Have a great day!" & _
              "<br><br>"
  
  

    With OutMail
        .MeetingStatus = olMeeting
        .Start = Cells(15, 26).Value
        .Duration = 15
        .Subject = Cells(14, 26).Value
        .Location = Cells(14, 26).Value
        .Body = strbody
        .BusyStatus = olBusy
        .ReminderMinutesBeforeStart = 15
        .ReminderSet = True
        .Save
        For Each Address In Split(Range("Z23"), ";")
            Set myRequiredAttendee = .Recipients.Add(Address)
            myRequiredAttendee.Type = olRequired
        Next
        .Send
    End With


    Set OutMail = Nothing
    Set OutApp = Nothing
    
End Sub

Hoping you can help me figure this out, Looking to send a reminder to myself and my coworker two weeks after I run this code to follow up with it.

Any ideas why this isn't working?

Its getting caught on
With OutMail
.MeetingStatus = olMeeting

 

[rollis13]

You need to activate reference to "Micosoft Outlook 1x.0 Object Library" from VBE menu Settings / Reference.

 

[PaulOPTC]

You need to activate reference to "Micosoft Outlook 1x.0 Object Library" from VBE menu Settings / Reference.

Wow, would have never thought of that! Thanks so much!

 

[rollis13]

That is what you always need to check when using an Object (see first part of your macro) not integrated in Excel.
Thanks for the positive feedback, glad having been of some help.