Отправка смс из excel VBA - PullRequest
Новая
       20

Отправка смс из excel VBA

2 голосов
/ 07 марта 2019

У меня есть файл Excel с VBA уже в нем. Теперь я хочу использовать VBA, а интеграция с тем, что у меня уже есть, - отправлять SMS. Я связался с ними, откуда получил пример кода, но я не ожидал большой помощи от них, потому что они не знали, что VBA есть. Вот их пример кода: 

POST /v1/messages HTTP/1.1
Host: api.messagemedia.com
Accept: application/json
Content-Type: application/json
Authorization: Basic dGhpc2lzYWtleTp0aGlzaXNhc2VjcmV0Zm9ybW1iYXNpY2F1dGhyZXN0YXBp
{
"messages": [


{
  "content": "Hello World",
  "destination_number": "+61491570156",
  "format": "SMS"
     }  
   ]
}

Конечно, из VBA я хочу программно изменить номер назначения и контент. На данный момент я действительно не знаю, с чего начать.

1 Ответ

2 голосов
/ 07 марта 2019

Вот базовый пример, который должен сделать HTTP-запрос POST с указанными параметрами: 

Sub Test()

    Dim oXHR As Object
    Dim sPayload As String

    sPayload = _
        "{" & vbCrLf & _
        """messages"": [" & vbCrLf & vbCrLf & vbCrLf & _
        "{" & vbCrLf & _
        "  ""content"": ""Hello World""," & vbCrLf & _
        "  ""destination_number"": ""+61491570156""," & vbCrLf & _
        "  ""format"": ""SMS""" & vbCrLf & _
        "     }  " & vbCrLf & _
        "   ]" & vbCrLf & _
        "}"

    Set oXHR = CreateObject("MSXML2.XMLHTTP")
    With oXHR
        .Open "POST", "https://api.messagemedia.com/v1/messages", False
        .SetRequestHeader "Host", "api.messagemedia.com"
        .SetRequestHeader "Accept", "application/json"
        .SetRequestHeader "Content-Type", "application/json"
        .SetRequestHeader "Authorization", "Basic dGhpc2lzYWtleTp0aGlzaXNhc2VjcmV0Zm9ybW1iYXNpY2F1dGhyZXN0YXBp"
        .Send (sPayload)
        Debug.Print .ResponseText
    End With

End Sub
...