Report For Task Recurrance

[Tomohawk]

When setting recurrence for new tasks and depending on which "Recurrence Pattern" I select, I get different default settings in the "Range Of Recurrence", as follows:-

DAILY - "End By" radio button is selected and defaults to 84 days (have no idea why)

WEEKLY - "End By" radio button is selected and defaults to 168 days (have no idea why)

MONTHLY - "End By" radio button is selected and defaults to 12 months (have no idea why)

YEARLY - "No End Date" radio button is selected by default

I have hundreds of tasks with differing recurrences and I suspect that I have Daily, Weekly and Monthly tasks which I intended to have no end date, but saved the default, as above.

I would like a report of tasks (Daily/Weekly/Monthly) with recurrences that DO NOT have "No End Date" activated.

Just a list of tasks by Subject (ideally that I can click into and edit/save).

 

[Diane Poremsky]

I have the same weird end by defaults - i thought it was something i set using GPO. <g>

I was going to suggest using the recurrence pattern field, but tasks doing have one. You'll need a macro. I'll see if i can find one.

 

[Diane Poremsky]

The code below generates a list like this in a new message - the false at the end is no end date set - true would = end date. it needs some cleaning up, but my computer is goofy (windows updates waiting to install always makes it goofy.) so it hasn't been fully tested and needs cleaned up.

Test no (none) 6/7/2020 False
test 200 Weekly False 6/7/2020 False

Sub ShowRecurrencePattern_TaskList()
Dim objTaskFolder As Outlook.folder
Dim objRecurringTask As Outlook.TaskItem
Dim objItem As Object
Dim objRecurrencePattern As Outlook.RecurrencePattern
Dim strPattern As String
Dim objNewProperty As Outlook.UserProperty

'Get the default Tasks folder
Set objTaskFolder = Outlook.Application.Session.GetDefaultFolder(olFolderTasks)
For Each objItem In objTaskFolder.Items

If objItem.IsRecurring = True Then
Set objRecurringTask = objItem
Set objRecurrencePattern = objRecurringTask.GetRecurrencePattern

Select Case objRecurrencePattern.RecurrenceType
Case olRecursDaily
strPattern = "Daily"
strregen = objRecurrencePattern.Regenerate
strenddate = objRecurrencePattern.PatternEndDate
strnodate = objRecurrencePattern.NoEndDate

Case olRecursWeekly
strPattern = "Weekly"
strregen = objRecurrencePattern.Regenerate
strenddate = objRecurrencePattern.PatternEndDate
strnodate = objRecurrencePattern.NoEndDate

Case olRecursMonthly, olRecursMonthNth
strPattern = "Monthly"
strregen = objRecurrencePattern.Regenerate
strenddate = objRecurrencePattern.PatternEndDate
strnodate = objRecurrencePattern.NoEndDate

Case olRecursYearly, olRecursYearNth
strPattern = "Yearly"
strregen = objRecurrencePattern.Regenerate
strenddate = objRecurrencePattern.PatternEndDate
strnodate = objRecurrencePattern.NoEndDate

End Select

Else

strPattern = "(none)"
strregen = ""

End If

strTasks = objItem.Subject & vbTab & strPattern & vbTab & strregen & vbTab & strenddate & vbTab & strnodate & vbCrLf & strTasks & vbCrLf

Next

Set msgTasks = Application.CreateItem(olMailItem)

msgTasks.Body = strTasks

msgTasks.Display

End Sub

 

[Tomohawk]

Thanks very much Diane.

I have no knowledge of using code, so I will need to get step-by-step assistance on how to operationalise this. Is it OK to share your code with others and seek assistance with a) "cleaning up" and b) operationalising it?

 

[Tomohawk]

The code below generates a list like this in a new message - the false at the end is no end date set - true would = end date. it needs some cleaning up, but my computer is goofy (windows updates waiting to install always makes it goofy.) so it hasn't been fully tested and needs cleaned up.

Test no (none) 6/7/2020 False
test 200 Weekly False 6/7/2020 False

Sub ShowRecurrencePattern_TaskList()
Dim objTaskFolder As Outlook.folder
Dim objRecurringTask As Outlook.TaskItem
Dim objItem As Object
Dim objRecurrencePattern As Outlook.RecurrencePattern
Dim strPattern As String
Dim objNewProperty As Outlook.UserProperty

'Get the default Tasks folder
Set objTaskFolder = Outlook.Application.Session.GetDefaultFolder(olFolderTasks)
For Each objItem In objTaskFolder.Items

If objItem.IsRecurring = True Then
Set objRecurringTask = objItem
Set objRecurrencePattern = objRecurringTask.GetRecurrencePattern

Select Case objRecurrencePattern.RecurrenceType
Case olRecursDaily
strPattern = "Daily"
strregen = objRecurrencePattern.Regenerate
strenddate = objRecurrencePattern.PatternEndDate
strnodate = objRecurrencePattern.NoEndDate

Case olRecursWeekly
strPattern = "Weekly"
strregen = objRecurrencePattern.Regenerate
strenddate = objRecurrencePattern.PatternEndDate
strnodate = objRecurrencePattern.NoEndDate

Case olRecursMonthly, olRecursMonthNth
strPattern = "Monthly"
strregen = objRecurrencePattern.Regenerate
strenddate = objRecurrencePattern.PatternEndDate
strnodate = objRecurrencePattern.NoEndDate

Case olRecursYearly, olRecursYearNth
strPattern = "Yearly"
strregen = objRecurrencePattern.Regenerate
strenddate = objRecurrencePattern.PatternEndDate
strnodate = objRecurrencePattern.NoEndDate

End Select

Else

strPattern = "(none)"
strregen = ""

End If

strTasks = objItem.Subject & vbTab & strPattern & vbTab & strregen & vbTab & strenddate & vbTab & strnodate & vbCrLf & strTasks & vbCrLf

Next

Set msgTasks = Application.CreateItem(olMailItem)

msgTasks.Body = strTasks

msgTasks.Display

End Sub

Hi Diane.

I was wondering if we could pick this up and give me some additional instructions as to how to set up and run this code.

Thanks,
Tommy