Tasks - Is there a postponed date column?

ofw62

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
POP3
#1
Say I have task and set it to postpone, for instance, 4 days.
Is there a column that I can select that will show this postponed date?

Thanks.
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
#2
You can make a list of snoozed reminders but to add it to the task list, you'd need to do a lookup to find the correct item and create custom fields for the response.

Code:
Sub FindSnoozedReminders()
    Dim objReminder As Outlook.Reminder
    Dim objReminders As Outlook.Reminders
    Dim strList As String
    Dim i As Long
    Dim objItem As MailItem
   
    'Get all the reminders in Outlook
    Set objReminders = Outlook.Reminders

    i = 1
    For Each objReminder In objReminders
        'Get the snoozed reminders
        If (objReminder.OriginalReminderDate <> objReminder.NextReminderDate) = True Then
            strList = strList & i & ". " & " (" & Replace(TypeName(objReminder.Item), "Item", "") & ")" & objReminder.Caption & vbCrLf & " Snoozed to " & objReminder.NextReminderDate & vbCrLf & vbCrLf
           i = i + 1
        End If
    Next objReminder

    'Display the list of snoozed reminders in a message form
    Set objItem = Outlook.Application.CreateItem(olMailItem)
    With objItem
         .Body = "Snoozed Reminders" & vbCrLf & vbCrLf & strList
         .Display
    End With
End Sub
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
#3
This should work to display a message box, but my outlook 2016 (exchange account) is crashing on it (and on a lot of other things) - it works in 2007 (in a pst), so i know the code is good.

It displays a message box - you could have it write to a custom field, but would need to run it to update the field.

Code:
Sub GetNextReminderTime_TaskList()
    Dim objTasksFolder As Outlook.Folder
    Dim objTask As Outlook.TaskItem
    Dim objReminders As Outlook.Reminders
    Dim objReminder As Outlook.Reminder
 
    Set objTasksFolder = Outlook.Application.ActiveExplorer.currentFolder
    Set objReminders = Outlook.Reminders
    Set objTask = Application.ActiveExplorer.Selection.Item(1)

      For Each objReminder In objReminders
          If objReminder.Item.Class = olTask And objReminder.Caption = objTask.Subject And objReminder.OriginalReminderDate = objTask.ReminderTime Then
                MsgBox objReminder.NextReminderDate
               End If
          Next
End Sub
 

ofw62

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
POP3
#4
Thank you Diane.
There are so many fields to select, it is a bit strange that this one is missing, given the many other fields to select from.

Example:
I have a task to do something
I did so.
However, I should do it again next week and the week thereafter and thereafter, the coming 3 months.
So, I use the postpone option *
There are options for hours, 1 day, 2 days, 3 days, etc.
Now, I did postpone it and it should start reminding me after ?? days
But ... was it 3 days, 4 days .. what? (Am not sure what I selected).
I wanted to find out and noticed such column did and does not exist and the 'reminder date' remained the same, i.e. the original date,
not the postpone date.



*Note: I am not so much in favour of a recurring task.
I had a few in the past, but when I didn't need them anymore, I couldn't get rid of them, I got errors when setting them complete,
errors when changing dates, when trying to delete them, whatever.
Hence my 'workaround' - create a task and if it should be repeated, I use the postpone option.
 
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
#5
The reminders are stored in the reminders collection which makes it harder to get the value. I'll take a look at adding the field - there are ways to run it automatically.
 

Similar threads

Top