ISMessage.RtfText

Description

The message text in Rtf format.

Syntax

object.RtfText

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

Restriction: This property is readonly.

Return Value

string

Example

Convert the message text from RTF to plain text format and display it.

Dim aMes
Dim aRecipients
Dim aPatient
Dim aProvider 
Dim aExProvider

Set aMes = Profile.CreateMessage
set aRecipients = aMes.Recipients
aMes.Text = aMes.AddText("Hello! Come to my birthday party!")
aMes.Subject = "Birthday party"  

set aPatient = Profile.SelectPatient
if aPatient.Email <> "" then 
  aMes.Recipients.AddPatient(aPatient)
end if
  
set aProvider = Profile.LoadProvider("MM")
if aProvider.Email <> "" then 
  aMes.Recipients.AddProvider(aProvider)
end if
  
set aExProvider = Profile.LoadExternalProvider("MILLEJ")
if aExProvider.Email <> "" then
  aMes.Recipients.AddExternalProvider(aExProvider)
end if
 
aMes.Send

aInfo = "Message Text: " & vbNewLine & aMes.Text & vbNewLine &_
  "Message RTF Text (converted): " & vbNewLine & Profile.Rtf2Plain(aMes.RtfText)
 
Profile.MsgBox aInfo

Note:

In Profile Client v8 on User Interface Rtf Text format cannot be found, but Messages can be found in Organisation > Work Centre > Communication > Email.

Version information

Added in v7.8.0