I have this coding but cant for the life of me set the Reminder Date
Dim appOutLook As Outlook.Application
Dim taskOutLook As Outlook.TaskItem
Set appOutLook = CreateObject("Outlook.Application"
Set taskOutLook = appOutLook.CreateItem(olTaskItem)
With taskOutLook
.Subject = Me!tasktitle
.Body = Me!taskbody
.ReminderSet = True
.ReminderOverrideDefault = True
.ReminderTime = Me!duetime
.duedate = Me!taskduedate
.ReminderPlaySound = True
.ReminderSoundFile = "C:\Windows\Media\Ding.WAV"
.Save
End With
Set taskOutLook = Nothing
Set appOutLook = Nothing
In the Reminder Date field it shows the date of 12/30/1899. I know why its setting this particular date but just do not know the proper code to actually change the Reminder Date.
I thought:
.ReminderDate
would work since there is a ReminderTime... but no that would be too easy lol
Bill
Dim appOutLook As Outlook.Application
Dim taskOutLook As Outlook.TaskItem
Set appOutLook = CreateObject("Outlook.Application"
Set taskOutLook = appOutLook.CreateItem(olTaskItem)
With taskOutLook
.Subject = Me!tasktitle
.Body = Me!taskbody
.ReminderSet = True
.ReminderOverrideDefault = True
.ReminderTime = Me!duetime
.duedate = Me!taskduedate
.ReminderPlaySound = True
.ReminderSoundFile = "C:\Windows\Media\Ding.WAV"
.Save
End With
Set taskOutLook = Nothing
Set appOutLook = Nothing
In the Reminder Date field it shows the date of 12/30/1899. I know why its setting this particular date but just do not know the proper code to actually change the Reminder Date.
I thought:
.ReminderDate
would work since there is a ReminderTime... but no that would be too easy lol
Bill