使用VBA通过VoipBuster发送短信

我完全是初学者，但我正在尝试在VBA中制作一个宏，以便在条件完成时使用VoipBuster平台发送SMS

可能吗？使用安装在PC或网页（）上的应用程序是否更容易

---

请帮忙

对于从voipbuster发送短信，您可以通过php变量发送它。。。

“$USER&password=$PASS&from=$from&to=\”$to\“&text=$SMS\u text”

因此，您需要像这样从vba访问iexplore，创建变量使用、传递、文本etcc和concat，就像前面的URL一样

要从VBA调用iexplore，您将发现许多使用google的方法，这里有一个示例

Private Sub IE_Autiomation()
    Dim i As Long 
    Dim IE As Object 
    Dim objElement As Object
    Dim objCollection As Object

    ' Create InternetExplorer Object
    Set IE = CreateObject("InternetExplorer.Application")

    ' You can uncoment Next line To see form results
    IE.Visible = False

    ' Send the form data To URL As POST binary request
    IE.Navigate "https://www.voipbuster.com/myaccount/sendsms.php?username=$USER&password=$PASS&from=$FROM&to=\"$TO\"&text=$SMS_TEXT"

---

试试下面的代码。您还可以通过将URL变量中的值放入浏览器来进行测试

Sub SendSms()

    Dim username As String
    Dim password As String
    Dim sendTo As String
    Dim msg As String

    username = "test" 'enter username here
    password = "test" 'enter password here
    sendTo = "9999999999"
    msg = "Hello"

    Dim URL As String
    URL = "https://www.voipbuster.com/myaccount/sendsms.php?username=" & username & "&password=" & password & "&to=" & sendTo & "&text=" & msg

    Dim xml As Object
    Set xml = CreateObject("MSXML2.XMLHTTP")
    xml.Open "GET", URL, False
    xml.send
End Sub

---

只需向voipbuster.com查询，他们在哪里为您提供了从excel调用发送短信功能的API。嗨，Santosh，在web上，我看到这是可能的，但我无法确定到底要查找什么…Santosh我收到了以下错误：自动化错误（错误440）或系统错误：0214669702，有什么问题吗？并突出显示“xml.send”请将详细信息替换为“correct”，并直接放在您的浏览器中，然后让我知道响应。我无法访问此信息，因为我正在工作，访问权限有限，稍后我会通知您，谢谢！我可以问您是否在线”URL吗=“我是否需要将password=和other替换为我用于登录和发送短信的实际密码？是的，您需要替换为acutal密码，因为网站需要身份验证。当然，手机号码必须与信息一起正确。我只是想，如果我们通过上面的DIM声明它们，那么它们就被认为已经在URL行中了……但我会试试这个，谢谢！