VBA Code for Outlook reminder

[howard]

I have written code to reminder me of the due date in cell C6. I would like to amend the code so that reminder are sent to Outlook calender for C7 onwards where there is no blank cell


See Sample Data and code

Excel 2012
	A	B	C	D	E	F
1	23/08/2017
2	No.	Branch	Reminder Due Date-10	Due Date	Duration	Subject
3	1	BR1	20/11/2017 8:00	30/11/2017	30	BR1 is due on 30/11/2017
4	2	BR2	10/01/2018 8:00	20/01/2018	30	BR2 is due on 20/01/2018
5	3	BR3	10/01/2018 8:00	20/01/2018	30	BR3 is due on 20/01/2018
6	4	BR4	10/01/2018 8:00	20/01/2018	30	BR4 is due on 20/01/2018
7	5	BR5	20/11/2017 8:00	30/11/2017	30	BR5 is due on 30/11/2017
License Due Dates

 Sub Reminders()
    Dim appOL As Object
     Dim objReminder As Object
     
    Set appOL = GetObject(, "Outlook.application")
     Set objReminder = appOL.CreateItem(1) ' olAppointmentItem
     
     objReminder.Start = Range("C6")
     objReminder.Duration = Range("E6") ' 30
     objReminder.Subject = Range("F6") ' subject text
     objReminder.ReminderSet = True
     objReminder.Save
End Sub

It would be appreciated if someone could kindly assist me


I have also posted on Sending Reminder of due date to Outlook calender via Excel

 

[Mister H]

Have a look at the link below as it may give you what you are looking for

Good Luck
Mark

Create Appointments Using Spreadsheet Data

 

[howard]

Thanks for the link


However when using the code supplied on my Workbook and running the macro, I get a compile error "Üser-defined object not defined"


It would be appreciated if you could assist me

 

[howard]

I have amended my code , but the when running the macro, it only sends a reminder for the item in the last row

It would be appreciated if someone could amend my code to send reminders to outlook calendar for all the rows containing data

 Sub Reminders()
    Dim appOL As Object
     Dim objReminder As Object
     Dim I As Long
     
    Set appOL = GetObject(, "Outlook.application")
     Set objReminder = appOL.CreateItem(1) ' olAppointmentItem
     I = 3
     Do Until Trim(Cells(I, 1).Value) = ""

     objReminder.Start = Range("C" & I)
     objReminder.Duration = Range("E" & I) ' 30
     objReminder.Subject = Range("F" & I) ' subject text
     objReminder.ReminderSet = True
     objReminder.Save
      I = I + 1
        Loop

End Sub