Sending SMS via Access Form 1

[Moonlighting2]

To keep things simple, I have stripped out the rest of the code and limited it to the main function, which is to send an SMS message on a click event, via a server that has been set up.

Error message is object required. This happens, of course, at the Set declaration. It's late, I'm tired, beginning to loose it a little and need help please.

Private Sub Command0_Click()
'On Error GoTo Err_Command0_Click
Dim sUrl
Dim sAPI_ID, sPassword, sUsername, sMobileNo, sText
Dim oXMLHTTP, sPostData, sResult
sUrl = "

http://xxx.xxxxx.xxx"

sAPI_ID = "something"
sPassword = "something"
sUsername = something"
sMobileNo = "something"
sText = "This is an example message"
sPostData = "api_id=" & sAPI_ID
sPostData = sPostData & "&user=" & sUsername
sPostData = sPostData & "&password=" & sPassword
sPostData = sPostData & "&to=" & sMobileNo
sPostData = sPostData & "&text=" & sText
Set oXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
oXMLHTTP.Open "POST", sUrl, False
oXMLHTTP.SetRequestHeader "Content-Type", "application/x-

http://www-form-urlencoded"

oXMLHTTP.Send sPostData
sResult = oXMLHTTP.responseText
Set oXMLHTTP = Nothing
MsgBox (sResult)
Exit_Command0_Click:
Exit Sub

Err_Command0_Click:
'MsgBox Err.Description
Resume Exit_Command0_Click
End Sub

 

[tsuji]

>Set oXMLHTTP = Server.CreateObject("Microsoft.XMLHTTP")
Make sure the script is run on "server", otherwise, try this to begin with.
[tt]Set oXMLHTTP = CreateObject("Microsoft.XMLHTTP")[/tt]