VBA 发送短信的问题

Question

我的 Excel 应用程序有一个代码。它会生成一张产品发票，每次生成发票时，它都会发送当前的账单金额以及感谢信息。我已经购买了群发 SMS 帐户，他们为我提供了 API。

我用的是"ActiveWorkbook.FollowHyperlink"方式发短信，但是发了2次。谁能告诉我为什么这个方法发送短信2次？？

我写了下面的程序：

Sub Macro1()

Dim murl As String

murl = "<< SMS API HERE >>"

ActiveWorkbook.FollowHyperlink Address:=murl

End Sub

Answer 1

考虑对 API 使用原始 GET 请求，这是一个使用后期绑定向 google 页面发送 GET 请求的示例 - MsgBox 行很简单显示来自 google 的响应，您可以将 google.co.uk URL 替换为您自己的 API URL.

Public Sub Send_GET()
    Dim con As Object ' MSXML2.ServerXMLHTTP60
    Set con = CreateObject("MSXML2.ServerXMLHTTP") ' New MSXML2.ServerXMLHTTP60
    con.Open "GET", "https://www.google.co.uk", False
    con.setRequestHeader "Content-type", "application/x-www-form-urlencoded"
    con.send
    MsgBox con.responsetext
End Sub

我使用了后期绑定，但如果您想探索正确的对象和属性，请在您的 VBA 项目中添加对 "Microsoft XML v6.0" 的引用，然后您可以删除 Object 和 CreateObject 部分 - 像这样发送请求非常有用。

如果答案有助于解决您的问题，请不要忘记将其标记为正确答案。

VBA 发送短信的问题

VBA issues with sending SMS

api

excel

sms

vba