ISLetterTemplate.KeyWords

Description

The key words of the letter template.

Syntax

object.KeyWords

Part Attribute Type Description
object Required
The object always implements the ISLetterTemplate interface

Return Value

string

Example

Display some information about the letter templates, including their key words.

Dim aPatient
Dim aLetters, aLetter
Dim i
Dim aTemplatesIds
Dim aLetterTemplate
Dim aMessage

Set aPatient = Profile.SelectPatient
set aLetters = aPatient.GetLetters (1) ' slcfWordRTF

aMessage =_
  "The number of the letters of the selected format is " & aLetters.Count

set aTemplatesIds = Profile.CreateIntCollection

for i = 0 to aLetters.Count - 1
  set aLetter = aLetters.Item(i)
  set aLetterTemplate = aLetter.Template
  
  if aTemplatesIds.IndexOf(aLetterTemplate.ID) < 0 then
    aMessage = aMessage & vbNewLine &_
      "Letter Template Information: " & vbNewLine &_ 
      "   - ID: " & aLetterTemplate.ID & vbNewLine &_                       
      "   - Subject: " & aLetterTemplate.Subject & vbNewLine &_
      "   - Category ID: " & aLetterTemplate.CategoryID & vbNewLine &_
      "   - Key Words: " & aLetterTemplate.KeyWords & vbNewLine
    aTemplatesIds.Add aLetterTemplate.ID   
  end if    
next    
Profile.MsgBox (aMessage) 
Note: In Profile Client v8 on User Interface Key Words can be found in Maintain > Templates > Documents > Open the document > Information and Recipients > KeyWords field.

Version information

Added in v7.8.0