ISMessage.ID

Description

ID of the created message.

Syntax

object.ID

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

Restriction: This property is readonly.

Return Value

int

Example

Add a new new message and display its ID.

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)
end if
if aMessageRecipients.Count = 0 then 
  Profile.MsgBox("The massage cannot be sent, because the patient has no email") 
else  
  aMes.Send       

  Profile.MsgBox("ID of the message is " & aMes.ID)
end if

Note:

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

Version information

Added in v7.8.0