Sub Example
Dim xmlhttp As Variant
Dim url As String
url = "http://www.mymobileapi.com/xxxx/xxxx.aspx?type=sendparam&username=" & StrUrlEncode("", "xxxxxxx") & "&password=" & StrUrlEncode("", "xxxxxxx") & "&numto=" & StrUrlEncode("", "+279999999999@SMSDEV") & "&data1=" & StrUrlEncode("", "hello world") & "?&date=" & StrUrlEncode("", "29/Sep/2009") & "&time=" & StrUrlEncode("", "07:18")
Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
Call xmlhttp.Open("GET", url, False)
Call xmlhttp.Send()
End Sub
|