gistfile1.vb

Function SendSMS(fromNumber As String, toNumber As String, body As String)
Dim SmsUrl As String

On Error GoTo Error_Handler

' setup the URL
SmsUrl = BASEURL & "/2010-04-01/Accounts/" & ACCOUNTSID & "/SMS/Messages"

' setup the request and authorization
Dim http As MSXML2.XMLHTTP60
Set http = New MSXML2.XMLHTTP60

http.Open "POST", SmsUrl, False, ACCOUNTSID, AUTHTOKEN
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"

Dim postData As String
postData = "From=" & fromNumber _
& "&To=" & toNumber _
& "&Body=" & body

' send the POST data
http.send postData

' optionally write out the response if you need to check if it worked
Debug.Print http.responseText

If http.Status = 201 Then

ElseIf http.Status = 400 Then
MsgBox "Failed with error# " & _
http.Status & _
" " & http.statusText & vbCrLf & vbCrLf
ElseIf http.Status = 401 Then
MsgBox "Failed with error# " & http.Status & _
" " & http.statusText & vbCrLf & vbCrLf
Else
MsgBox "Failed with error# " & http.Status & _
" " & http.statusText
End If

Exit_Procedure:

On Error Resume Next

' clean up
Set http = Nothing

Exit Function

Error_Handler:

Select Case Err.Number

Case NOINTERNETAVAILABLE
MsgBox "Connection to the internet cannot be made or " & _
"Twilio website address is wrong"

Case Else
MsgBox "Error: " & Err.Number & "; Description: " & Err.Description

Resume Exit_Procedure

Resume

End Select
End Function