VBA

We offer code samples to make it easy for you to plug in SMS functionality into your applications.

Download our SDK that contains sample projects in many languages or go straight to the language you need with our code samples.

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

Scroll to Top