ms-access access-vba ms-access-2010 twilio

¿Cómo enviar un mensaje desde MS Access usando twilio?



ms-access access-vba (1)

Twilio evangelista aquí.

La respuesta corta es que debe enviar a la API REST de Twilio usando VBA.

Aquí hay un poco de código de muestra que muestra cómo hacer esto usando 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

Devin

He investigado mucho, pero no he encontrado nada. De todos modos ya ha hecho esto? ¿Algún ejemplo?

Quiero enviar un mensaje usando un botón en un formulario, por lo que debe llamar a un código vba y usar cierta información en el mismo formulario para enviar el mensaje. ¡Cualquier idea sería genial!

Estoy usando Access 2010