A recent posting on the NowSMS Discussion Board has some interesting information on sending an SMS a link within an Excel spreadsheet.
The alternative approach is to write a simple VBScript macro instead.
Today was my first attempt at writing one … but I did manage to create a button in a spreadsheet, where when you click on the button, it reads data from the spreadsheet to send out an SMS.
Here’s what I did …
From the Developer menu in Excel, I added an Active X Command Button.
I then associated the following code with my command button:
Private Sub CommandButton1_Click()
Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
URL = "http://192.168.0.222:8800/"
objHTTP.Open "POST", URL, False
objHTTP.send ("&PhoneNumber=" + Range("a9").Text + "&text=" + Range("a10").Text)
End Sub
In this particular case, I am extracting the phone number from cell A9, and the text to send from A10.
Once I exit design mode, I can click on the button, and it triggers this code, which makes the HTTP submission to NowSMS.
I’m using HTTP POST instead of GET to avoid some URL encoding issues.
It’s not as easy as using HYPERLINK, but hopefully you can adapt this to your scenario.