Forum

Still now, I can not read SMS in Mobile device. Any one can give me a code example for receive one or all SMS message?

&AtClient
Procedure ConnectReceiveSMS(Command)

 MessageRecipient = New NotifyDescription("ReceivingMessage", ThisForm);
 TelephonyTools.AttachSMSMessageHandler(MessageRecipient);
 Message("Processor for receiving sms - connected!");

EndProcedure


&AtClient
Procedure ReceivingMessage(NewMessage, ExtraOptions) Export

SenderSMS = NewMessage.From;
CountAttachmentsNewSMS = NewMessage.Attachments.Count();
DateNewSMS  = NewMessage.DateReceived;
TextNewSMS = NewMessage.Text;
Message("A new message has come! From" + NewMessage.From);

EndProcedure

Ninh Giang Thi,

first, ensure that you application has a permission to read SMS messages. Open the properties of the root configuration object, find "Required mobile application permissions", and add the "Telephony" permission.

Here's an example:

&AtClient
Var Handler;

&AtClient
Procedure OnOpen(Cancel)
   Handler = New NotifyDescription("OnIncomingSMS", ThisForm);   
   TelephonyTools.AttachSMSMessageHandler(Handler);
EndProcedure

&AtClient
Procedure OnClose(Exit)
   TelephonyTools.DetachSMSMessageHandler(Handler);
EndProcedure

&AtServer
Procedure OnIncomingSMSSrv(_Text, _Sender)
   
   Text = _Text;
   Sender = _Sender;
   
EndProcedure

&AtClient
Procedure OnIncomingSMS(SMSMessage, AdditionalParameter) Export 
   
   OnIncomingSMSSrv(SMSMessage.Text, SMSMessage.Sender);
   
EndProcedure

Thanks for all your helps.I am sorry for longtime to read this topic!