We offer code samples to make it easy for you to plug in SMS functionality into your applications.
Code Sample
Sub test()
Dim xmlstring As String
Username = “user@mailaddress.com”
Password = “yourpass”
Message = “Your Message Here”
Destination = “447777777777”
xmlstring = “<?xml version=” & Chr(34) & “1.0” & Chr(34) & “?> ” & _
“<Request xmlns:xsi=” & Chr(34) & “http://www.w3.org/2001/XMLSchema-instance” & Chr(34) & ” xsi:noNamespaceSchemaLocation=” & Chr(34) & “http://schema.2sms.us/1.0/0410_RequestSendMessage.xsd” & _
Chr(34) & ” Version = ” & Chr(34) & “1.0” & Chr(34) & “>” & _
“<Identification>” & _
“<UserID><![CDATA[” & username & “]]></UserID>” & _
“<Password>” & password & “</Password>” & _
“</Identification>” & _
“<Service>” & _
“<ServiceName>SendMessage</ServiceName>” & _
“<ServiceDetail>” & _
“<SingleMessage>” & _
“<Destination>” & Destination & “</Destination>” & _
“<Text><![CDATA[” & Message & “]]></Text>” & _
“</SingleMessage>” & _
“</ServiceDetail>” & _
“</Service>” & _
“</Request>”
Dim xmlrequest
Set xmlrequest = CreateObject(“MSXML2.XMLHTTP.6.0”)
xmlrequest.Open “post”, “https://gateway.2sms.us/xml/xml.jsp”, False
xmlrequest.setRequestHeader “content-type”, “text/xml”
xmlrequest.send xmlString
End Sub