This function adds the text to the message.
object.AddText
aText
| Part | Attribute | Type | Description |
|---|---|---|---|
object |
Required | The object always implements the
ISMessage interface |
|
aText |
In, Required | string |
The text of the message |
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) In Profile Client v8 on User Interface Message Text can be found in .