using macro to send sms using http api

[shahabm]

greetings

i am trying to send out sms using an api
http://bulksms.mysmsmantra.com:8080/WebSMS/SMSAPI.jsp?username=username&password=password&sendername=sender id&mobileno=919999999999&message=Hello

i want to get the mobileno from a cell in sheet7 of the workbook from "d" the cursor will be in the same row. just want the value from "d" to be picked up and used as mobile no
i found a code which works well with hard coded number in the mobileno, but getting an error when i try to pull the value . any help will be [FONT=Arial, Helvetica, sans-serif]appreciated

[/COLOR][/FONT]Sub SendSms()

    Dim URL As String
    Dim rng As Range
    
 
    URL = "[COLOR=#000000][FONT=Arial]http://bulksms.mysmsmantra.com:8080/WebSMS/SMSAPI.jsp?username=username&password[/FONT][/COLOR][COLOR=#000000][FONT=Arial]=password&sendername=sender id[/FONT][/COLOR]&mobileno=& ThisWorkbook.Worksheets(7).rng.Row("d:d").Value & "&message=Hi test"
        
    Dim xml As Object
    Set xml = CreateObject("MSXML2.XMLHTTP")
    xml.Open "GET", URL, False
    xml.Send
End Sub


[FONT=Arial, Helvetica, sans-serif][COLOR=#000000]

thanks[/FONT]

 

[John_w]

Try:

    URL = "http://bulksms.mysmsmantra.com:8080/WebSMS/SMSAPI.jsp?username=username&password=password&sendername=sender id&mobileno=" & Cells(ActiveCell.Row, "D").Value & "&message=Hi test"