ISCaseType.Description

Example

Display the number of case types loaded on the basis of the selected filter and some information about them, including their descriptions.

Dim aFilter
Dim aCaseTypes, aCaseType
Dim aMessage
Dim i 

Set aFilter = Profile.CreateCaseTypesFilter
aFilter.Description = "Case Type 1" 
set aCaseTypes = Profile.LoadCaseTypes(aFilter)

aMessage = "Case Types Count = " & aCaseTypes.Count
for i = 0 to aCaseTypes.Count - 1
  set aCaseType = aCaseTypes.Item(i)
  aMessage = aMessage & vbNewLine &_
    "Title: " & aCaseType.Title & vbNewLine &_
    "Code: " & aCaseType.Code & vbNewLine &_
    "Description: " & aCaseType.Description& vbNewLine &_
    "Title Enabled: " & aCaseType.TitleEnabled & vbNewLine &_
    "Color Enabled: " & aCaseType.ColorEnabled & vbNewLine &_
    "Color: " & HEX(aCaseType.Color) & vbNewLine
next      

Profile.MsgBox(aMessage)