Set Outlook Reminder to 1 Day

[DMT Dave]

Hi Guy's I wonder if anyone knows a method for VBA to set a reminder to 1 day prior to (in this case) RemDate ?

When this code adds to Outlook calendar, it auto set to something like 30 minutes

 Dim ouEvent As Outlook.AppointmentItem
    Dim ouApp As Outlook.Application
    Dim RemDate As Date
    Dim strSubject As String
    Dim strProgrammeCode
    
   RemDate = Me.txtRemDate
   
    Set ouApp = CreateObject("Outlook.Application")
    Set ouEvent = ouApp.CreateItem(olAppointmentItem)
    
    strSubject = Me.txtClientName & " " & Me.txtPostCode
    
    With ouEvent
        .Start = RemDate
        .Subject = Me.txtClientName
        .Location = Me.txtPostCode
        .Body = Me.txtMessage
        .ReminderSet = True
        .Save
        .Display
    End With
    
    
    Set ouEvent = Nothing
    Set ouApp = Nothing
    

[June7]

Perhaps with:

.ReminderMinutesBeforeStart = 1440