Globally Unique Identifier of the letter.
object.GUID
Part | Attribute | Type | Description |
---|---|---|---|
object |
Required | The object always implements the
ISLetter interface |
string
Display some information about the letter, including its GUID.
Dim aPatient
Dim aLetters, aLetter
Dim i
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
for i = 0 to aLetters.Count - 1
set aLetter = aLetters.Item(i)
aMessage = aMessage & vbNewLine &_
"Letter Date: " & aLetter.Date & vbNewLine &_
"Letter Subject: " & aLetter.Subject2 & vbNewLine &_
"Letter ID: " & aLetter.ID & vbNewLine
next
Profile.MsgBox(aMessage)