ISLetterTemplate.Subject

Example

Display some information about the letter templates, including their subjects.

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)