Using Twilio with Access to send & receive text & voice messages (1 Viewer)

Function GetReceivedSMSMessages()

'import received SMS message log from Twilio website

On Error GoTo Err_Handler

    DoCmd.SetWarnings False
    
    StatusBar "Importing new text messages . . ."
    DoCmd.Hourglass True

    Dim MessageURL As String, BaseURL As String

    BaseURL= "https://api.twilio.com"

    'setup the URL
    MessageUrl = BaseURL & "/2010-04-01/Accounts/" & [COLOR="DarkRed"][B]ACCOUNTSID[/B][/COLOR] & "/SMS/Messages"
    
    'setup the request and authorization
    Set http = New MSXML2.XMLHTTP60
    
    http.Open "GET", MessageUrl, False, [COLOR="darkred"][B]ACCOUNTSID, AUTHTOKEN[/B][/COLOR]
    
    http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    http.Send ""
    
   'Debug.Print http.responseText
   
   'populate a CSV file with downloaded data; overwrite existing file (if any)
    Dim stm As Object
    Set stm = CreateObject("ADODB.Stream")
    stm.Type = 2  ' acTypeText
    stm.Open

    stm.WriteText http.responseText
    stm.SaveToFile Application.CurrentProject.Path & "\ImportedTextMessages.csv", 2   'adSaveCreateOverWrite
    
    stm.Close
    Set stm = Nothing
    Set http = Nothing
       
  
   'import messages data to Access table
   'create your own import specification manually then use below when you know it works
    DoCmd.TransferText acImportDelim, "ImportedTextMessagesImportSpecification", _
        "tblImportedTextMessages", Application.CurrentProject.Path & "\ImportedTextMessages.csv"
        
  'add your own code here to do any other tasks as necessary
   .......
 
   
EndRoutine:
    StatusBar ""
    DoEvents
    DoCmd.Hourglass False

    'delete the CSV file
    Kill Application.CurrentProject.Path & "\ImportedTextMessages.csv"
    
Exit_Handler:
    On Error Resume Next
    ' clean up
    Set http = Nothing
    Exit Function

Err_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 & " in GetReceivedSMSMessages procedure :" & vbNewLine & _
        "Description: " & Err.Description
        Resume Exit_Handler

    End Select
    
End Function