ISPatientSMS.DeliveryResult

Description

The result of the patient's SMS message delivery.

Syntax

object.DeliveryResult

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

Restriction: This property is readonly.

Return Value

TSSMSDeliveryResult

Example

Send a new SMS message, display its text and delivery result.

Dim aPatient
Dim aPhoneNumber
Dim aPatientSms
Dim aMessage 

Set aPatient = Profile.SelectPatient
aPhoneNumber = aPatient.CellPhone
 
set aPatientSms = Profile.SendPatientSMS(aPatient.ID, aPhoneNumber, "Hello!") 

aMessage = "Text: " & aPatientSms.Text & " (delivery result: " &_ 
  aPatientSms.DeliveryResult & ")" 
  
Profile.MsgBox(aMessage)

Note:

In Profile Client v8 on User Interface Delivery Result can be found in Organisation > Control Centre > Manage > SMS Log > Status.

Version information

Added in v7.8.0