ISMessage.Text

Example

Add a new message and display its text, the full name and the email address of the recipient.

Dim aMes
Dim aMessageRecipients
Dim aPatient

Set aMes = Profile.CreateMessage
aMes.Text = aMes.AddText("Hello! Come to my birthday party!")
aMes.Subject = "Birthday party"     
set aMessageRecipients = aMes.Recipients
set aPatient = Profile.SelectPatient
if aPatient.Email <> "" then 
  aMessageRecipients.AddPatient(aPatient)
else  
  Profile.MsgBox("The massage cannot be sent, because the patient has no email")
  exit sub
end if  
  
aMes.Send
Profile.MsgBox("The message with the text '" & aMes.Text &_
  "' was sent to " & aMes.Destination)