VBA发送短信的问题

Question

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

我使用 "ActiveWorkbook.FollowHyperlink "方法来发送短信，但它却发送了2次短信。谁能告诉我为什么这个方法会发送2次短信？

我写了以下程序。

Sub Macro1()

Dim murl As String

murl = "<< SMS API HERE >>"

ActiveWorkbook.FollowHyperlink Address:=murl

End Sub

Answer 1

考虑使用一个原始的GET请求到你的API，这里有一个例子，使用后期绑定发送一个GET请求到google页面--的 MsgBox 行是简单地显示来自google的响应，你可以用你自己的API URL替换google.co.uk 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 "的引用，你就可以摆脱 "Microsoft XML v6.0"。Object 和 CreateObject 部件 - 发送这样的请求是非常有用的。

不要忘了把一个答案标记为正确，如果它有助于解决你的问题。