Cannot change reminder time

[netrusher]

Below is the code I am using to send outlook appointments. My
issue is I cannot change the "Reminder Minutes Before Start"
No matter what value I put in at this location it comes up
"18 hours". Anyone have any adivce? I am stuck.

Private Sub TestAppointment_Click()

       Dim SL As String, DL As String
       SL = vbNewLine
       DL = SL & SL

Dim outMail As Outlook.AppointmentItem
Set outMail = Outlook.CreateItem(olAppointmentItem)
outMail.Subject = "Form #" & Me.FormId.Value & "; Finance, Please Approve or Disapprove this Form."
outMail.Location = ""
outMail.MeetingStatus = olNonMeeting
outMail.AllDayEvent = True
outMail.Start = Me.DateEffective.Value
outMail.ReminderMinutesBeforeStart = "1"
outMail.ReminderSet = True
'outMail.ReminderOverrideDefault = True
'outMail.End = #2/8/2008# & " " & #10:15:00 AM#
outMail.RequiredAttendees = ""
outMail.OptionalAttendees = "abchill@nmhg.com"
outMail.Body = "ATTENTION!" & DL & _
       "Please make sure you view all parts called out on Form to be changed." & SL & _
       "You might have to scroll to the right to see all parts." & DL & _
       "Form Type= " & DLookup("FormNameLong", "FormShortNameTbl", "FormName='" & Me.FormType & "'") & DL & _
       "Special Instructions:" & SL & _
       Me.SpecialInstructions.Value & DL & _
       "Form #" & Me.FormId.Value & DL & _
       "1. Please go to appropriate Form (Purchase To Make) and then to the Form Number Listed above" & SL & _
       "2. Complete your Checklist" & SL & _
       "3. Next, Click Finance1 CheckBox in Routing above to Forward Form to ECN Analyst" & DL & _
       "Thank you for your help" & DL & _
       DLookup("ActualName", "ChangeFormUserNameTbl", "LoginName='" & GetCurrentUserName() & "'") & SL & _
       "Engineering Manager"
outMail.Send

Set outMail = Nothing

End Sub

 

[netrusher]

I found out my own answer. I need to make AllDayEvent False