Excel VBA to Outlook canlendar set reminder
I have this VBA code performing after a click of a button:
Dim ol As Outlook.Application
Dim olAp As Outlook.AppointmentItem
Set ol = New Outlook.Application
Set olAp = ol.CreateItem(olAppointmentItem)
With olAp
.Subject = Cells(7, 2) & " - " & Cells(7, 4) & " - " & Cells(7, 5)
.Location = Cells(7, 3)
.Start = Cells(7, 16)
.AllDayEvent = True
.ReminderSet = True
.ReminderMinutesBeforeStart = 4320
.body = Cells(7, 19)
.display
End With
The objective is that automatically the reminder is set to 3 days before the appoitment.
However Outlook Calendar keeps the reminder at 18h.
How can I solve this?