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?
 
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
V Calendar showing wrong month (bug report?) Using Outlook 2
M making a call report Using Outlook 1
J My email OUTLOOK operation has suddenly become very slow. I have followed all diagnostic checks which report ok. Nothing seems to be able to fix it. H Using Outlook 1
S Maintenance Report Exchange Server Administration 2
F hotmail accounts report an error! Using Outlook 2
M Select multiple messages and report as "Junk" mail, is that possible? Using Outlook 2
S Error Message when trying to Filter Report in bcm Using Outlook 0
I Bug Report: Outlook 2010 first-run hangs due to "Microsoft Update" dialog box Using Outlook 1
X Does Journal Report Decryption only support IRM protected message on Exchange 2010? Could it decrypte traditional solutions such as S/MIME? Exchange Server Administration 2
A Microsoft Exchange Server Mailbox Manager Report Exchange Server Administration 4
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
J Office 365 erased all of my task views Using Outlook 3
E Can't accept or decline task (no button appears) Using Outlook 4
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
Similar threads


















































Top