ISToDoListFilters.Item

Description

Each of the To Do List filters within the collection.

Syntax

object.Item(Index)

Part	Attribute	Type	Description
`object`	Required	ISToDoListFilters	The `object` always implements the ISToDoListFilters interface
`Index`	In, Required	int	The index of the To Do List filter

Restriction: This property is readonly.

Return Value

ISClientFilter

Example

Display the index of the To Do List default filter, the number of the To Do List filters, the number of To Do items, their dates and descriptions.

Dim aFilters
Dim aClientFilter
Dim aFilter
Dim aToDoItems 
Dim aToDoItem
Dim aMessage  

Set aFilters = Profile.GetToDoFilters
aMessage = "To Do List Filters Count = " & aFilters.Count & " (Default Index is " &_ 
  aFilters.DefaultFilterIndex & ")" 
  
for i = 0 to aFilters.Count - 1
  set aClientFilter = aFilters.Item(i)
  aMessage = aMessage & vbNewLine & "  -" & aClientFilter.Description   
next

set aFilter = aFilters.ToDoListFilter(0)
aFilter.MaxNumber = 6
aFilter.StartFrom = 1
set aToDoItems = Profile.LoadToDoItems(aFilter)

aMessage = aMessage & vbNewLine & "To Do Items Count = " & aToDoItems.Count

for each aToDoItem in aToDoItems
  aMessage = aMessage & vbNewLine & aToDoItem.ToDoDate & "; " & aToDoItem.Description 
next 
 
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface To Do List Filters can be found in Organisation > Work Centre > To Do List > Edit Filters.

Version information

Added in v7.8.0