如何使用来自VBA -MS访问表单的API链接发送SMS

先生

i我正在尝试使用API​​链接发送短信，所以虽然我直接在该链接中提到了手机号码和按摩，但它是成功的。

但当我更换在API链接中使用对象代替细胞数量和按摩它不起作用，看看我做了什么..

Dim strURL As String

Dim neMb As String

Dim msGe As String



设置appIE = CreateObject（InternetExplorer.Application）

neMb = Me.number .Value

msGe = Me.massage.Value





strURL =http：// bhashsms。 com / api / sendmsg.php？user = success&pass = 654321&sender = BSHSMS&phone =&neMb&text =&msGe&priority = ndnd&stype = normal







使用appIE

。导航strURL

'如果你想看代码执行，取消注释下面一行，或用于调试

'.Visible = True

结束

'循环直到页面完成加载

做appIE.busy

DoEvents

循环



appIE.Quit

/////////

请愿。找到我所做的数据库文件链接..

https://drive.google.com/open?id=0B3t4kDZkt9nAbFVSUFVYYURsbmM

请帮助我...

Sir
i am trying to send SMS using with API link, So While i mention Cell number and Massage in that link directly it was successful.
But When i replaced with object in the place of Cell number and massage in API Link it was not working, see what i did ..
Dim strURL As String
Dim neMb As String
Dim msGe As String

Set appIE = CreateObject("InternetExplorer.Application")
neMb = Me.number.Value
msGe = Me.massage.Value


strURL = "http://bhashsms.com/api/sendmsg.php?user=success&pass=654321&sender=BSHSMS&phone=" & neMb & "text=" & msGe & "priority=ndnd&stype = normal"



With appIE
.Navigate strURL
' uncomment the line below if you want to watch the code execute, or for debugging
'.Visible = True
End With
' loop until the page finishes loading
Do While appIE.busy
DoEvents
Loop

appIE.Quit
/////////
pls. find the database file link what i did..
https://drive.google.com/open?id=0B3t4kDZkt9nAbFVSUFVYYURsbmM
Pls. help me...