ISToDoListFilters.DefaultFilterIndex

Description

The index of the default To Do List filter in the list.

Syntax

object.DefaultFilterIndex

Part	Attribute	Type	Description
`object`	Required	ISToDoListFilters	The `object` always implements the ISToDoListFilters interface

Restriction: This property is readonly.

Return Value

int

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