Private Sub GetWebRequestButton1_Click()
'get the numbers to send to the website to get a response
Number = Sheets("texting").Range("A2").Value
Message = Sheets("texting").Range("B2").Value
'This sends a post to the website and put the response in the range supplied
With ActiveSheet.QueryTables.Add(Connection:="URL;http://yourwebsite.com/VBAtexting.php", Destination:=Range("C2"))
.PostText = "sendtext=1&number=" & Number & "&message=" & Message
.RefreshStyle = xlOverwriteCells
.SaveData = True
.Refresh
End With
End Sub
It works great.You will also need the code for texting using google voice on your website but it is pretty simple and I use it all the time to send automated texts.