Report For Task Recurrance

Tomohawk

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
POP3
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).

Recurrence.jpg
 

Diane Poremsky

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
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

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
Office 365 Exchange
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


Code:
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

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
POP3
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

Senior Member
Outlook version
Outlook 2016 32 bit
Email Account
POP3
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


Code:
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
 
Thread starter Similar threads Forum Replies Date
Diane Poremsky Send a Task Status Report New Slipstick.com Articles 0
F Button of Outlook Death: Send Task Report Button Using Outlook 2
F Open task from is own status report in Public Folders Outlook VBA and Custom Forms 3
HarvMan Outlook 365 PST Report Using Outlook 1
D IMP.Note Versus REPORt.IPM.NOte Outlook VBA and Custom Forms 3
C Long List Of Outlook 2016/Outlook.com Bugs // Where To Report? Using Outlook 10
S Meeting room booking report Outlook VBA and Custom Forms 1
D How to Run a Report Based on Age of Inbox Items Outlook VBA and Custom Forms 0
V Report stuck formatting page Using Outlook 1
J Outlook 2007 Rules & VBA: How to run a script on a report message (ReportItem) Using Outlook 14
D Report on mailboxes which have exceeded quota? Exchange Server Administration 1
E Rekkceiving Error Report (oX800ccc18) Your e-mail server rejected your login Using Outlook 4
J I receive the following Sending Report Error: 0X80042109 Outlook cannot connect to my outgoing serve Using Outlook 2
R Outlook reports 23MB, OWA/EMC report 2.5GB Using Outlook 20
D Keep receiving Sending' report error (0x80042109) in Outlook 2003 & 2007 on multilpe computers thru Using Outlook 4
M Tasks and Calendar Print Report Using Outlook 1
P i´ve problem with STOREDRIVER subscribing a report in reporting servicices. Exchange Server Administration 2
G Daily Activities Report in MS Outlook 2010 Business Contact Manager Using Outlook 1
T OWA Exchange 2007 usage report. Using Outlook 2
P pops.live.com sending report error 0X800CCC7D Using Outlook 2
D Outlook report the error - "Cannot display the folder. There is not enough free memory to run this p Using Outlook 34
D 0x80070057 - Error Report # sending error. Could not complete the operation. One or more parameter values are not valid. Using Outlook 2
K report of Available hours for a team of staff from OUtlook Calenda Outlook VBA and Custom Forms 2
D Report from forms Outlook VBA and Custom Forms 3
T email Access report pop up network error Outlook VBA and Custom Forms 1
K BCM 2010 report error BCM (Business Contact Manager) 6
R Using 'Company Name' in a BCM report!! BCM (Business Contact Manager) 1
F company field won't show in report BCM (Business Contact Manager) 5
T Is any body knows how to add #company name# to report? BCM (Business Contact Manager) 1
J Modifying a Business Contact Manager Report BCM (Business Contact Manager) 1
H Error in values when exporting report to Excel BCM (Business Contact Manager) 1
F Validation on custom task form after task acceptance Outlook VBA and Custom Forms 1
J Office 365 erased all of my task views Using Outlook 3
E Can't accept or decline task (no button appears) Using Outlook 3
B VBA to convert email to task, insert text of email in task notes, and attach copy of original email Outlook VBA and Custom Forms 4
B Task Filter Not Working When I add too many criteria Using Outlook 0
X If you change expiration date of repeated task it dupplicates Using Outlook 1
B How to show concatenated categories in list task view? Using Outlook 2
B VBA to Collapse Task Folder Groups Outlook VBA and Custom Forms 1
E To convert imported data to custom fields in Task list Outlook VBA and Custom Forms 1
I Help with dates in task list. Using Outlook 5
Y Outlook Task View - Table Format - Customize Reminder Time to Drop-Down Selection Using Outlook 2
M Daily Task List Minimized Cannot Display Using Outlook 2
D Using a VBA Custom Form to Send Reoccurring Email Upon Task Completion Outlook VBA and Custom Forms 4
P Add a contact to the New Task in Outlook 2016 Using Outlook 2
S Codes for "Mark Complete" the task Outlook VBA and Custom Forms 2
W Deleting Sent Task Email, Deletes the task from my list Using Outlook 1
K Task priority modification Using Outlook 4
F Search folder for tasks in all task folders Using Outlook 1
JohnViuf Export task list view settings to other pc Outlook VBA and Custom Forms 16
Similar threads


















































Top