ISProfile.CreateMessage

Description

This function creates a new message.

Syntax

object.CreateMessage()

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

Return Value

ISMessage

Returns the created message.

Example

Display the text of the message.

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
aMessageRecipients = aMes.Recipients.AddPatient(aPatient)
aMes.Send

Profile.MsgBox("The message with the text '" & aMes.Text & "' was successfully sent")

Note:

In Profile Client v8 on User Interface Messages can be found in Organisation > Work Centre > Communication > Email.

Version information

Added in v7.8.0