VBA

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://www.2sms.us/xml/xml.jsp”, False
    xmlrequest.setRequestHeader “content-type”, “text/xml”
    xmlrequest.send xmlString
End Sub

Scroll to Top