I was using this code in Outlook 2010 for deferring tasks but it doesnt work for Outlook 2013.
Can someone help?
Can someone help?
Code:
Sub Task_DueDate_Defer_DaysAdd()
Dim strDateDue As String
Dim objTask As Object
strDateDue = InputBox("Defer by X Days: ", "Task Due Date")
If IsNumeric(strDateDue) Then
For Each objTask In ActiveExplorer.Selection
With objTask
If .Class = olTask Then
> DueDate = Date + strDateDue
> Save
End If
End With
Next objTask
Else
MsgBox "Invalid Number"
End If
Set objTask = Nothing
End Sub