Create outlook task from excel

[gotido]

Hello

I have a gym and i want to create a worksheet that reminds me when i should contact a member to upgrade is training plan.

This is the workbook:


The ideia is that i insert the delivery date and then it gives me automaticly the 1º contact, 2 contact, 3 contact and 4 contact, each one with 30 days diference.

then, when i click create reminder, the macro will read the last written row and creates an outlook reminder/task.

Could someone hepl me with this, please?

thanks


https://www.dropbox.com/s/ifr2k5oww7moocu/Outlook%20reminder.xlsm?dl=0

 

[Worf]

Like this:

Sub CreateTask()                                                       ' button code
Dim r, LR%, i%, c As Range
LR = Range("b" & Rows.Count).End(xlUp).Row                             ' last row
For i = 1 To 4
    Set c = Cells(LR, 3 + 2 * i)
    r = AddCal(Cells(LR, 3), "Upgrade Plan, member " & Cells(LR, 1), CDate(c))
Next
End Sub