SMS Auto Reply Help

[mre58]

I am working on a program that will auto reply to text messages with an automated message. The program is working as far as displaying a message with the incoming number of each incoming text message. I tried the following code, but it doesn't send an auto reply back when a text message comes in to my phone. In the MessageReceived procedure I added the code below. The From variable of MessageReceived does contain the incoming phone number for the incoming text message.

Dim smstxt as PhoneSms
smstxt.Send(From,"Test Autoreply")

Thank you

 

[Erel]

Are you sure that the code executes? Add a log message or use the debugger.

Are there any error messages?

 

[mre58]

Hi Erel,

Great to me you. Below is my MessageReceived function. It does display a popup message on my phone with the phone number of the person that sent the text whenever one comes in, but no autoreply is ever sent back to the person. There are no error messages.

Sub SI_MessageReceived (From As String, Body As String) As Boolean
Log("Message From: " & From)
ToastMessageShow(From, True)
Log("Message Was Shown")
Dim smstxt As PhoneSms
smstxt.Send(From,"Test Autoreply")
End Sub

 

[Erel]

You can try using CallSubDelayed or a short timer to send the message.

 

[mre58]

It does seem to work. When I used compile and run it wasn't working. I tried compile and run(background) and I am getting the autoreplies.

Thank you

 

[mre58]

Thank you Erel, I am going to play around with the timer.