SMS reciever

conniemalan

Member
Licensed User
Hi

I use the sample code (listed below) to receive a SMS, but no data is displayed. What are missing? :confused:

Sub App_Start
Form1.Show
Sms.New2
Intercept.New1
End Sub

Sub Intercept_MessageReceived
Sms.Value = Intercept.ReceivedMessage
textBox1.Text = sms.Body
textBox2.Text = Time(sms.DateReceived)
textBox3.Text = sms.From
End Sub
 
Top