I am trying to automatically place a telephone call from within Access13.
If I place the following URL (used in the sub), the call is placed
"http://admin:q0FBzy4G4M@192.168.90.23/command.htm?number=99407373&outgoing_uri=URI"
I get the error message indicated in the attachment. A similar code for incoming calls are identified by A13. I can show this code if it would help.
If I place the following URL (used in the sub), the call is placed
"http://admin:q0FBzy4G4M@192.168.90.23/command.htm?number=99407373&outgoing_uri=URI"
I get the error message indicated in the attachment. A similar code for incoming calls are identified by A13. I can show this code if it would help.
Code:
Private Sub imgOut_Click()
Dim xhr As Object
Dim webServiceURL As String
Dim actionType As String
Dim thisRequest As String
Dim targetWord As String
'Dim strURL As String
'strURL = funGetStrOut()
webServiceURL = "http://admin:q0FBzy4G4M@192.168.90.23/command.htm?number=99407373&outgoing_uri=URI" 'strURL
thisRequest = webServiceURL
'use late binding
Set xhr = CreateObject("Microsoft.XMLHTTP")
xhr.Open "GET", thisRequest, False
xhr.Send
If xhr.Status = 200 Then
Debug.Print xhr.responseText
MsgBox xhr.getAllResponseHeaders
Else
MsgBox xhr.Status & ": " & xhr.statusText
End If
End Sub