How to set the reminder time for the currently open Task

  • Thread starter Thread starter Scott Riddle
  • Start date Start date
S

Scott Riddle

I am trying to set the reminder time for the currently open task but I
can not get the active task figured out.
Scott

Sub TaskTimeNow()
Dim OutApp As Outlook.Application
Dim task As Outlook.TaskItem
Set OutApp = CreateObject("Outlook.application")
Set task = OutApp.Inspectors.Item(1)
task.ReminderTime = Now()

End Sub
 
Back
Top