VBA проблемы с отправкой SMS

Question

У меня есть код для моего приложения Excel. Он генерирует счет-фактуру продукта, и каждый раз, когда сгенерированный счет-фактура отправляет текущую сумму счета вместе с сообщением с благодарностью. Я купил оптовую учетную запись SMS, и они предоставили мне API.

Я использую метод «ActiveWorkbook.FollowHyperlink» для отправки SMS, но он отправляет SMS 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, и вы можете заменить Google. URL co.uk с вашим собственным URL API.

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

Я использовал позднее связывание, но если вы хотите изучить подходящие объекты и свойства, добавьте ссылку на «Microsoft XML v6.0» в своем проекте VBA, и вы можете избавиться от частей Object и CreateObject - отправка запросов, как это, НАСТОЛЬКО ПОЛЕЗНА.

Не забудьте пометить ответ как правильный, если он поможет решить вашу проблему .