Как отправить сообщение от MS Access с помощью twilio?

Question

Я провел много исследований, но ничего не нашел. В любом случае это уже сделано? Любые примеры?

Я хочу отправить сообщение с помощью кнопки в форме, чтобы он вызывал код vba и использовал некоторую информацию в той же форме для отправки сообщения. Любые идеи были бы замечательными !!

Я использую Access 2010

Answer 1

Твилио евангелист здесь.

Короткий ответ: вам нужен POST для Twilio REST API с использованием VBA.

Вот немного примеров кода, который показывает, как это сделать с помощью XMLHTTP:

Public Function GET_MESGS() 
    Dim Message As String 
    Dim Number As String 

    On Error GoTo Error_Handler 

    Const NOINTERNETAVAILABLE = -2147012889 

    Dim objSvrHTTP As XMLHTTP 
    Dim varProjectID, varCatID, strT As String 

    Set objSvrHTTP = New XMLHTTP 
    objSvrHTTP.Open "POST", "https://api.twilio.com/2010-04-01/Accounts/[YOUR_ACCOUNT_SID]/SMS/", False, "[YOUR_ACCOUNT_SID]", "[YOUR_AUTH_TOKEN]" 

    objSvrHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
    objSvrHTTP.send "message=" & Message & "&from=15555555555&to=" & Number 

    debug.print objSvrHTTP.responseText 

    ‘If objSvrHTTP.status = 201 Then 
    ‘txtXML = objSvrHTTP.responseText 
    ‘MsgBox "Sent" 
    ElseIf objSvrHTTP.status = 400 Then 
     MsgBox "Failed with error# " & _ 
      objSvrHTTP.status & _ 
      " " & objSvrHTTP.statusText & vbCrLf & vbCrLf 
    ElseIf objSvrHTTP.status = 401 Then 
     MsgBox "Failed with error# " & objSvrHTTP.status & _ 
      " " & objSvrHTTP.statusText & vbCrLf & vbCrLf 
    Else 
     MsgBox "Failed with error# " & objSvrHTTP.status & _ 
      " " & objSvrHTTP.statusText 
    End If 

Exit_Procedure: 

    On Error Resume Next 

    Set objSvrHTTP = Nothing 

Exit Function 

Error_Handler: 

    Select Case Err.Number 

     Case NOINTERNETAVAILABLE 
      MsgBox "Connection to the internet cannot be made or " & _ 
       "Twilio website address is wrong" 

     Case Else 
      MsgBox "Error: " & Err.Number & "; Description: " & Err.Description 

      Resume Exit_Procedure 

     Resume 

    End Select 

End Function 

Девин