VBScript

From CDYNE Wiki
Jump to navigation Jump to search

Assign Incoming Number

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<AssignIncomingNumber xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<IncomingPhoneNumber>15551234567</IncomingPhoneNumber>" & _
 9 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
10 "</AssignIncomingNumber>" & _
11 "</soap:Body>" & _
12 "</soap:Envelope>"
13 
14 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
15 oXMLHttp.open "POST", url, False
16 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
17 oXMLHttp.send request
18 response = oXMLHttp.responseText
19 
20 MsgBox oXMLHTTP.responseText

Cancel Conference

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<CancelConference xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<ConferenceKey>CONFERENCE KEY</ConferenceKey>" & _
 9 "</CancelConference>" & _
10 "</soap:Body>" & _
11 "</soap:Envelope>"
12 
13 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
14 oXMLHttp.open "POST", url, False
15 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
16 oXMLHttp.send request
17 response = oXMLHttp.responseText

Cancel Notify

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<CancelNotify xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<QueueID>012345678</QueueID>" & _
 9 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
10 "</CancelNotify>" & _
11 "</soap:Body>" & _
12 "</soap:Envelope>"
13 
14 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
15 oXMLHttp.open "POST", url, False
16 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
17 oXMLHttp.send request
18 response = oXMLHttp.responseText
19 
20 MsgBox oXMLHTTP.responseText

Cancel Notify By Reference ID

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<CancelNotifyByReferenceID xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<ReferenceID>123</ReferenceID>" & _
 9 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
10 "</CancelNotifyByReferenceID>" & _
11 "</soap:Body>" & _
12 "</soap:Envelope>"
13 
14 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
15 oXMLHttp.open "POST", url, False
16 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
17 oXMLHttp.send request
18 response = oXMLHttp.responseText
19 
20 MsgBox oXMLHTTP.responseText
21 
22 'Return code of 0 indicates the notification was not cancelled.
23 'Return code of 1 indicates the notification was cancelled.

Get Assigned Numbers

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<GetAssignedNumbers xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
 9 "</GetAssignedNumbers>" & _
10 "</soap:Body>" & _
11 "</soap:Envelope>"
12 
13 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
14 oXMLHttp.open "POST", url, False
15 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
16 oXMLHttp.send request
17 response = oXMLHttp.responseText
18 
19 MsgBox oXMLHTTP.responseText

Get Available Area Codes

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<GetAvailableAreaCodes xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "</GetAvailableAreaCodes>" & _
 9 "</soap:Body>" & _
10 "</soap:Envelope>"
11 
12 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
13 oXMLHttp.open "POST", url, False
14 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
15 oXMLHttp.send request
16 response = oXMLHttp.responseText
17 
18 MsgBox oXMLHTTP.responseText

Get Available Incoming Numbers

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<GetAvailableIncomingNumbers xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<AreaCodeFilter>757</AreaCodeFilter>" & _
 9 "</GetAvailableIncomingNumbers>" & _
10 "</soap:Body>" & _
11 "</soap:Envelope>"
12 
13 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
14 oXMLHttp.open "POST", url, False
15 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
16 oXMLHttp.send request
17 response = oXMLHttp.responseText
18 
19 MsgBox oXMLHTTP.responseText

Get Incoming Call Script

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<GetIncomingCallScript xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<PhoneNumber>YOUR DID</PhoneNumber>" & _
 9 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
10 "</GetIncomingCallScript>" & _
11 "</soap:Body>" & _
12 "</soap:Envelope>"
13 
14 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
15 oXMLHttp.open "POST", url, False
16 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
17 oXMLHttp.send request
18 response = oXMLHttp.responseText
19 
20 MsgBox oXMLHTTP.responseText

Get Multiple Queue ID Status

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<GetMultipleQueueIdStatus xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<QueueIDs>012345678;876543210</QueueIDs>" & _
 9 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
10 "</GetMultipleQueueIdStatus>" & _
11 "</soap:Body>" & _
12 "</soap:Envelope>"
13 
14 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
15 oXMLHttp.open "POST", url, False
16 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
17 oXMLHttp.send request
18 response = oXMLHttp.responseText
19 
20 MsgBox oXMLHTTP.responseText

Get Queue ID Status

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<GetQueueIDStatus xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<QueueID>012345678</QueueID>" & _
 9 "</GetQueueIDStatus>" & _
10 "</soap:Body>" & _
11 "</soap:Envelope>"
12 
13 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
14 oXMLHttp.open "POST", url, False
15 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
16 oXMLHttp.send request
17 response = oXMLHttp.responseText
18 
19 MsgBox oXMLHTTP.responseText

Get Queue ID Statuses By Phone Number

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<GetQueueIDStatusesByPhoneNumber xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<PhoneNumber>17575449510</PhoneNumber>" & _
 9 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
10 "</GetQueueIDStatusesByPhoneNumber>" & _
11 "</soap:Body>" & _
12 "</soap:Envelope>"
13 
14 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
15 oXMLHttp.open "POST", url, False
16 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
17 oXMLHttp.send request
18 response = oXMLHttp.responseText
19 
20 MsgBox oXMLHTTP.responseText

Get Queue ID Status With Advanced Info

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<GetQueueIDStatusWithAdvancedInfo xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<QueueID>012345678</QueueID>" & _
 9 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
10 "</GetQueueIDStatusWithAdvancedInfo>" & _
11 "</soap:Body>" & _
12 "</soap:Envelope>"
13 
14 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
15 oXMLHttp.open "POST", url, False
16 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
17 oXMLHttp.send request
18 response = oXMLHttp.responseText
19 
20 MsgBox oXMLHTTP.responseText

Get Response Codes

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<GetResponseCodes xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "</GetResponseCodes>" & _
 9 "</soap:Body>" & _
10 "</soap:Envelope>"
11 
12 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
13 oXMLHttp.open "POST", url, False
14 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
15 oXMLHttp.send request
16 response = oXMLHttp.responseText
17 
18 MsgBox oXMLHTTP.responseText

Get Sound File

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<GetSoundFile xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<SoundFileID>testsoundfile_wav</SoundFileID>" & _
 9 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
10 "</GetSoundFile>" & _
11 "</soap:Body>" & _
12 "</soap:Envelope>"
13 
14 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
15 oXMLHttp.open "POST", url, False
16 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
17 oXMLHttp.send request
18 response = oXMLHttp.responseText
19 
20 MsgBox oXMLHTTP.responseText

Get Sound File Length

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<GetSoundFileLength xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<SoundFileID>testsoundfile_wav</SoundFileID>" & _
 9 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
10 "</GetSoundFileLength>" & _
11 "</soap:Body>" & _
12 "</soap:Envelope>"
13 
14 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
15 oXMLHttp.open "POST", url, False
16 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
17 oXMLHttp.send request
18 response = oXMLHttp.responseText
19 
20 MsgBox oXMLHTTP.responseText

Get Sound File URL

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<GetSoundFileURL xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<SoundFileID>testsoundfile_wav</SoundFileID>" & _
 9 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
10 "</GetSoundFileURL>" & _
11 "</soap:Body>" & _
12 "</soap:Envelope>"
13 
14 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
15 oXMLHttp.open "POST", url, False
16 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
17 oXMLHttp.send request
18 response = oXMLHttp.responseText
19 
20 MsgBox oXMLHTTP.responseText

Get Version

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<GetVersion xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "</GetVersion>" & _
 9 "</soap:Body>" & _
10 "</soap:Envelope>"
11 
12 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
13 oXMLHttp.open "POST", url, False
14 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
15 oXMLHttp.send request
16 response = oXMLHttp.responseText
17 
18 MsgBox oXMLHTTP.responseText

Get Voices

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<getVoices xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "</getVoices>" & _
 9 "</soap:Body>" & _
10 "</soap:Envelope>"
11 
12 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
13 oXMLHttp.open "POST", url, False
14 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
15 oXMLHttp.send request
16 response = oXMLHttp.responseText
17 
18 MsgBox oXMLHTTP.responseText

License Key Variable Load

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<LicenseKeyVariableLoad xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<VariableName>Test Variable</VariableName>" & _
 9 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
10 "</LicenseKeyVariableLoad>" & _
11 "</soap:Body>" & _
12 "</soap:Envelope>"
13 
14 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
15 oXMLHttp.open "POST", url, False
16 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
17 oXMLHttp.send request
18 response = oXMLHttp.responseText
19 
20 MsgBox oXMLHTTP.responseText

License Key Variable Save

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<LicenseKeyVariableSave xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<VariableName>Test Variable</VariableName>" & _
 9 "<VariableValue>123456789</VariableValue>" & _
10 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
11 "</LicenseKeyVariableSave>" & _
12 "</soap:Body>" & _
13 "</soap:Envelope>"
14 
15 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
16 oXMLHttp.open "POST", url, False
17 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
18 oXMLHttp.send request
19 response = oXMLHttp.responseText
20 
21 MsgBox oXMLHTTP.responseText

LM Add List Member

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<LM_AddListMember xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<ListID>12345</ListID>" & _
 9 "<ClientID>1</ClientID>" & _
10 "<PhoneNumber>17575449510</PhoneNumber>" & _
11 "<FirstName>CDYNE</FirstName>" & _
12 "<LastName>Corporation</LastName>" & _
13 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
14 "</LM_AddListMember>" & _
15 "</soap:Body>" & _
16 "</soap:Envelope>"
17 
18 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
19 oXMLHttp.open "POST", url, False
20 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
21 oXMLHttp.send request
22 response = oXMLHttp.responseText
23 
24 MsgBox oXMLHTTP.responseText

LM Add New List

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<LM_AddNewList xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<ListName>Test List</ListName>" & _
 9 "<ParentListID>0</ParentListID>" & _
10 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
11 "</LM_AddNewList>" & _
12 "</soap:Body>" & _
13 "</soap:Envelope>"
14 
15 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
16 oXMLHttp.open "POST", url, False
17 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
18 oXMLHttp.send request
19 response = oXMLHttp.responseText
20 
21 MsgBox oXMLHTTP.responseText

LM Alter List ID

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<LM_AlterListID xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<ListID>12345</ListID>" & _
 9 "<ParentListID>0</ParentListID>" & _
10 "<ListName>New Test List</ListName>" & _
11 "<Licensekey>YOUR LICENSE KEY</Licensekey>" & _
12 "</LM_AlterListID>" & _
13 "</soap:Body>" & _
14 "</soap:Envelope>"
15 
16 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
17 oXMLHttp.open "POST", url, False
18 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
19 oXMLHttp.send request
20 response = oXMLHttp.responseText
21 
22 MsgBox oXMLHTTP.responseText

LM Alter List Member

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<LM_AlterListMember xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<ListMemberID>98765</ListMemberID>" & _
 9 "<ClientID>1</ClientID>" & _
10 "<PhoneNumber>17575449510</PhoneNumber>" & _
11 "<FirstName>CDYNE</FirstName>" & _
12 "<LastName>Corp</LastName>" & _
13 "<licensekey>YOUR LICENSE KEY</licensekey>" & _
14 "</LM_AlterListMember>" & _
15 "</soap:Body>" & _
16 "</soap:Envelope>"
17 
18 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
19 oXMLHttp.open "POST", url, False
20 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
21 oXMLHttp.send request
22 response = oXMLHttp.responseText
23 
24 MsgBox oXMLHTTP.responseText

LM Delete List

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<LM_DeleteList xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<ListID>12345</ListID>" & _
 9 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
10 "</LM_DeleteList>" & _
11 "</soap:Body>" & _
12 "</soap:Envelope>"
13 
14 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
15 oXMLHttp.open "POST", url, False
16 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
17 oXMLHttp.send request
18 response = oXMLHttp.responseText
19 
20 MsgBox oXMLHTTP.responseText

LM Delete List Member

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<LM_DeleteListMember xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<ListMemberID>98765</ListMemberID>" & _
 9 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
10 "</LM_DeleteListMember>" & _
11 "</soap:Body>" & _
12 "</soap:Envelope>"
13 
14 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
15 oXMLHttp.open "POST", url, False
16 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
17 oXMLHttp.send request
18 response = oXMLHttp.responseText
19 
20 MsgBox oXMLHTTP.responseText

LM Get List IDs By License Key

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<LM_GetListIDsByLicensekey xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<licensekey>YOUR LICENSE KEY</licensekey>" & _
 9 "</LM_GetListIDsByLicensekey>" & _
10 "</soap:Body>" & _
11 "</soap:Envelope>"
12 
13 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
14 oXMLHttp.open "POST", url, False
15 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
16 oXMLHttp.send request
17 response = oXMLHttp.responseText
18 
19 MsgBox oXMLHTTP.responseText

LM Get List Members By List ID

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<LM_GetListMembersByListID xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<ListID>12345</ListID>" & _
 9 "<Licensekey>YOUR LICENSE KEY</Licensekey>" & _
10 "</LM_GetListMembersByListID>" & _
11 "</soap:Body>" & _
12 "</soap:Envelope>"
13 
14 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
15 oXMLHttp.open "POST", url, False
16 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
17 oXMLHttp.send request
18 response = oXMLHttp.responseText
19 
20 MsgBox oXMLHTTP.responseText

Notify Multiple Phone Advanced

 1 Dim request, xmlHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<NotifyMultiplePhoneAdvanced xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<MultipleANR>" & _
 9 "<AdvancedNotifyRequest>" & _ 
10 "<PhoneNumberToDial>17575449510</PhoneNumberToDial>" & _
11 "<VoiceID>1</VoiceID>" & _
12 "<CallerIDNumber>15551234567</CallerIDNumber>" & _
13 "<CallerIDName>CDYNE</CallerIDName>" & _
14 "<TextToSay>Hello, this is a test.</TextToSay>" & _
15 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
16 "<UTCScheduledDateTime>2008-01-28T00:53:06.608Z</UTCScheduledDateTime>" & _
17 "<StatusChangePostUrl>'http://www.yourpostbackurl.com'</StatusChangePostUrl>" & _
18 "</AdvancedNotifyRequest>" & _
19 "<AdvancedNotifyRequest>" & _ 
20 "<PhoneNumberToDial>18009843710</PhoneNumberToDial>" & _
21 "<VoiceID>1</VoiceID>" & _
22 "<CallerIDNumber>15551234567</CallerIDNumber>" & _
23 "<CallerIDName>CDYNE</CallerIDName>" & _
24 "<TextToSay>Hello, this is a test.</TextToSay>" & _
25 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
26 "<UTCScheduledDateTime>2008-01-28T00:53:06.608Z</UTCScheduledDateTime>" & _
27 "<StatusChangePostUrl>'http://www.yourpostbackurl.com'</StatusChangePostUrl>" & _
28 "</AdvancedNotifyRequest>" & _
29 "</MultipleANR>" & _
30 "</NotifyMultiplePhoneAdvanced>" & _
31 "</soap:Body>" & _
32 "</soap:Envelope>"
33 
34 Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP")
35 xmlHttp.open "POST", url, False
36 xmlHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
37 xmlHttp.send request
38 response = xmlhttp.responseText
39 
40 MsgBox xmlHttp.responseText

Notify Multiple Phone Basic

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<NotifyMultiplePhoneBasic xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<PhoneNumbersToDial>17575449510;18009843710</PhoneNumbersToDial>" & _
 9 "<TextToSay>Hello, this is a test.</TextToSay>" & _
10 "<CallerID>15551234567/CallerID>" & _
11 "<CallerIDname>CDYNE</CallerIDname>" & _
12 "<VoiceID>1</VoiceID>" & _
13 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
14 "</NotifyMultiplePhoneBasic>" & _
15 "</soap:Body>" & _
16 "</soap:Envelope>"
17 
18 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
19 oXMLHttp.open "POST", url, False
20 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
21 oXMLHttp.send request
22 response = oXMLHttp.responseText
23 
24 MsgBox oXMLHTTP.responseText

Notify Multiple Phone Basic With CPM

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<NotifyMultiplePhoneBasicWithCPM xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<PhoneNumbersToDial>17575449510;18009843710</PhoneNumbersToDial>" & _
 9 "<TextToSay>Hello, this is a test.</TextToSay>" & _
10 "<CallerID>15551234567/CallerID>" & _
11 "<CallerIDname>CDYNE</CallerIDname>" & _
12 "<VoiceID>1</VoiceID>" & _
13 "<CallsPerMinute>1</CallsPerMinute>" & _
14 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
15 "</NotifyMultiplePhoneBasicWithCPM>" & _
16 "</soap:Body>" & _
17 "</soap:Envelope>"
18 
19 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
20 oXMLHttp.open "POST", url, False
21 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
22 oXMLHttp.send request
23 response = oXMLHttp.responseText
24 
25 MsgBox oXMLHTTP.responseText

Notify Multiple Phone Basic With CPM and ReferenceID

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<NotifyMultiplePhoneBasicWithCPMandReferenceID xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<PhoneNumbersToDial>17575449510;18009843710</PhoneNumbersToDial>" & _
 9 "<TextToSay>Hello, this is a test.</TextToSay>" & _
10 "<CallerID>15551234567/CallerID>" & _
11 "<CallerIDname>CDYNE</CallerIDname>" & _
12 "<VoiceID>1</VoiceID>" & _
13 "<CallsPerMinute>1</CallsPerMinute>" & _
14 "<ReferenceID>123</ReferenceID>" & _
15 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
16 "</NotifyMultiplePhoneBasicWithCPMandReferenceID>" & _
17 "</soap:Body>" & _
18 "</soap:Envelope>"
19 
20 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
21 oXMLHttp.open "POST", url, False
22 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
23 oXMLHttp.send request
24 response = oXMLHttp.responseText
25 
26 MsgBox oXMLHTTP.responseText

Notify Phone Advanced

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<NotifyPhoneAdvanced xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<anr>" & _
 9 "<PhoneNumberToDial>17575449510</PhoneNumberToDial>" & _
10 "<VoiceID>1</VoiceID>" & _
11 "<CallerIDNumber>18009843710</CallerIDNumber>" & _
12 "<CallerIDName>CDYNE</CallerIDName>" & _
13 "<TextToSay>Hello, this is a test.</TextToSay>" & _
14 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
15 "<UTCScheduledDateTime>2013-07-29T17:25:06.608Z</UTCScheduledDateTime>" & _
16 "</anr>" & _
17 "</NotifyPhoneAdvanced>" & _
18 "</soap:Body>" & _
19 "</soap:Envelope>"
20 
21 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
22 oXMLHttp.open "POST", url, False
23 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
24 oXMLHttp.send request
25 response = oXMLHttp.responseText
26 
27 MsgBox oXMLHTTP.responseText

Notify Phone Basic

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<NotifyPhoneBasic xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<PhoneNumberToDial>17575449510</PhoneNumberToDial>" & _
 9 "<CallerID>18009843710</CallerID>" & _
10 "<CallerIDname>CDYNE</CallerIDname>" & _
11 "<VoiceID>1</VoiceID>" & _
12 "<TextToSay>Hello, this is a test.</TextToSay>" & _
13 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
14 "</NotifyPhoneBasic>" & _
15 "</soap:Body>" & _
16 "</soap:Envelope>"
17 
18 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
19 oXMLHttp.open "POST", url, False
20 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
21 oXMLHttp.send request
22 response = oXMLHttp.responseText
23 
24 MsgBox oXMLHTTP.responseText

Notify Phone Basic With Transfer

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<NotifyPhoneBasicWithTransfer xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<PhoneNumberToDial>17575449510</PhoneNumberToDial>" & _
 9 "<TransferNumber>18009843710</TransferNumber>" & _
10 "<TextToSay>Hello, this is a test.</TextToSay>" & _
11 "<CallerID>15551234567</CallerID>" & _
12 "<CallerIDname>CDYNE</CallerIDname>" & _
13 "<VoiceID>1</VoiceID>" & _
14 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
15 "</NotifyPhoneBasicWithTransfer>" & _
16 "</soap:Body>" & _
17 "</soap:Envelope>"
18 
19 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
20 oXMLHttp.open "POST", url, False
21 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
22 oXMLHttp.send request
23 response = oXMLHttp.responseText
24 
25 MsgBox oXMLHTTP.responseText

Notify Phone Basic With Try Count

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<NotifyPhoneBasicWithTryCount xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<PhoneNumberToDial>17575449510</PhoneNumberToDial>" & _
 9 "<TransferNumber>18009843710</TransferNumber>" & _
10 "<TextToSay>Hello, this is a test.</TextToSay>" & _
11 "<CallerID>15551234567</CallerID>" & _
12 "<CallerIDname>CDYNE</CallerIDname>" & _
13 "<VoiceID>1</VoiceID>" & _
14 "<TryCount>1</TryCount>" & _
15 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
16 "</NotifyPhoneBasicWithTryCount>" & _
17 "</soap:Body>" & _
18 "</soap:Envelope>"
19 
20 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
21 oXMLHttp.open "POST", url, False
22 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
23 oXMLHttp.send request
24 response = oXMLHttp.responseText
25 
26 MsgBox oXMLHTTP.responseText

Notify English Basic

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<NotifyPhoneEnglishBasic xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<PhoneNumberToDial>17575449510</PhoneNumberToDial>" & _
 9 "<TextToSay>Hello, this is a test.</TextToSay>" & _
10 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
11 "</NotifyPhoneEnglishBasic>" & _
12 "</soap:Body>" & _
13 "</soap:Envelope>"
14 
15 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
16 oXMLHttp.open "POST", url, False
17 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
18 oXMLHttp.send request
19 response = oXMLHttp.responseText
20 
21 MsgBox oXMLHTTP.responseText

The example below is based on code from article
Class implementation for using webservices in ASP by asanoguera

  1 class WebService
  2   public Url
  3   public Method
  4   public Response
  5   public Parameters
  6  
  7   public function execute()
  8     dim xmlhttp
  9     Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
 10     xmlhttp.open "POST", Url & "/" & Method, false
 11     xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
 12     xmlhttp.send Parameters.toString
 13     response = xmlhttp.responseText
 14     set xmlhttp = nothing
 15   end function
 16   
 17   Private Sub Class_Initialize()
 18     Set Parameters = new wsParameters
 19   End Sub
 20   
 21   Private Sub Class_Terminate()
 22     Set Parameters = Nothing
 23   End Sub
 24 End class
 25 
 26 class wsParameters
 27   public mCol
 28   public function toString()
 29     dim nItem
 30     dim buffer
 31     buffer = ""
 32     for nItem = 1 to Count
 33       buffer = buffer & Item(nItem).toString & "&"
 34     next
 35     if right(buffer,1)="&" then
 36       buffer = left(buffer,len(buffer)-1)
 37     end if
 38     toString = buffer 
 39   end function
 40   public sub Clear
 41     set mcol = nothing 
 42     Set mCol = CreateObject("Scripting.Dictionary") 
 43   end sub
 44   public sub Add(pKey,pValue)
 45     dim newParameter
 46   
 47     set newParameter = new wsParameter
 48     newParameter.Key = pKey
 49     newParameter.Value = pValue
 50     mCol.Add mCol.count+1, newParameter
 51   
 52     set newParameter = nothing
 53   end sub
 54   public function Item(nKey)
 55     set Item=mCol.Item(nKey)
 56   end function
 57   public function ExistsXKey(pKey)
 58     dim nItem
 59   
 60     for nItem = 1 to mcol.count
 61       if mCol.Item(nItem).key = pKey then
 62         ExistsXKeyword = true
 63         exit for
 64       end if
 65     next
 66   end function
 67   public sub Remove(nKey)
 68     mCol.Remove(nKey)
 69   end sub
 70   public function Count()
 71     Count=mCol.count
 72   end function
 73   Private Sub Class_Initialize()
 74     Set mCol = CreateObject("Scripting.Dictionary")
 75   End Sub
 76   Private Sub Class_Terminate()
 77     Set mCol = Nothing
 78   End Sub
 79 end class
 80 
 81 class wsParameter
 82    public Key
 83    public Value
 84    public function toString()
 85      toString = Key & "=" & Value
 86    end function
 87 end class
 88 
 89 
 90 dim ws
 91 
 92 'create web service object 
 93 set ws = new webservice
 94 'point it to CDYNE Phone Notify web service
 95 ws.Url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 96 'we want to call this method
 97 ws.Method = "NotifyPhoneEnglishBasic"
 98 'fill parameters
 99 ws.Parameters.Add "PhoneNumberToDial", 7573440000 '
100 ws.Parameters.Add "TextToSay","Hey, this is a test message"
101 ws.Parameters.Add "LicenseKey","0"
102 
103 ws.execute
104 
105 Debug.Write ws.Response
106 
107 set ws = nothing

Record Sound File Via Phone Call

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<RecordSoundViaPhoneCall xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<PhoneNumberToDial>17575449510</PhoneNumberToDial>" & _
 9 "<SoundFileID>testsoundfile.wav</SoundFileID>" & _
10 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
11 "</RecordSoundViaPhoneCall>" & _
12 "</soap:Body>" & _
13 "</soap:Envelope>"
14 
15 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
16 oXMLHttp.open "POST", url, False
17 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
18 oXMLHttp.send request
19 response = oXMLHttp.responseText
20 
21 MsgBox oXMLHTTP.responseText

Remove Sound File

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<RemoveSoundFile xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<SoundFileID>soundfile1_wav</SoundFileID>" & _
 9 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
10 "</RemoveSoundFile>" & _
11 "</soap:Body>" & _
12 "</soap:Envelope>"
13 
14 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
15 oXMLHttp.open "POST", url, False
16 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
17 oXMLHttp.send request
18 response = oXMLHttp.responseText
19 
20 MsgBox oXMLHTTP.responseText

Rename Sound File

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<RenameSoundFile xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<SoundFileID>testsoundfile_wav</SoundFileID>" & _
 9 "<NewSoundFileID>soundfile1_wav</NewSoundFileID>" & _
10 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
11 "</RenameSoundFile>" & _
12 "</soap:Body>" & _
13 "</soap:Envelope>"
14 
15 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
16 oXMLHttp.open "POST", url, False
17 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
18 oXMLHttp.send request
19 response = oXMLHttp.responseText
20 
21 MsgBox oXMLHTTP.responseText

Return Sound File IDs

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<ReturnSoundFileIDs xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
 9 "</ReturnSoundFileIDs>" & _
10 "</soap:Body>" & _
11 "</soap:Envelope>"
12 
13 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
14 oXMLHttp.open "POST", url, False
15 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
16 oXMLHttp.send request
17 response = oXMLHttp.responseText
18 
19 MsgBox oXMLHTTP.responseText

Script Delete

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<ScriptDelete xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<ScriptName>Test Script</ScriptName>" & _
 9 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
10 "</ScriptDelete>" & _
11 "</soap:Body>" & _
12 "</soap:Envelope>"
13 
14 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
15 oXMLHttp.open "POST", url, False
16 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
17 oXMLHttp.send request
18 response = oXMLHttp.responseText
19 
20 MsgBox oXMLHTTP.responseText

Script List

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<ScriptList xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<IncludeGlobalScripts>false</IncludeGlobalScripts>" & _
 9 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
10 "</ScriptList>" & _
11 "</soap:Body>" & _
12 "</soap:Envelope>"
13 
14 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
15 oXMLHttp.open "POST", url, False
16 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
17 oXMLHttp.send request
18 response = oXMLHttp.responseText
19 
20 MsgBox oXMLHTTP.responseText

Script Load

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<ScriptLoad xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<ScriptName>Test Script</ScriptName>" & _
 9 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
10 "</ScriptLoad>" & _
11 "</soap:Body>" & _
12 "</soap:Envelope>"
13 
14 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
15 oXMLHttp.open "POST", url, False
16 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
17 oXMLHttp.send request
18 response = oXMLHttp.responseText
19 
20 MsgBox oXMLHTTP.responseText

Script Save

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<ScriptSave xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<ScriptName>Test Script</ScriptName>" & _
 9 "<ScriptText>Hello, this is a test.</ScriptText>" & _
10 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
11 "</ScriptSave>" & _
12 "</soap:Body>" & _
13 "</soap:Envelope>"
14 
15 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
16 oXMLHttp.open "POST", url, False
17 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
18 oXMLHttp.send request
19 response = oXMLHttp.responseText
20 
21 MsgBox oXMLHTTP.responseText

Set Incoming Call Script

 1 Dim request, oXMLHttp, url
 2 url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 3 
 4 request = "<?xml version='1.0' encoding='utf-8'?>" & _
 5 "<soap:Envelope xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"" xmlns:xsd=""http://www.w3.org/2001/XMLSchema"" xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"">" & _
 6 "<soap:Body>" & _
 7 "<SetIncomingCallScript xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
 8 "<PhoneNumber>18885551234</PhoneNumber>" & _
 9 "<Script>Hello, this is a test.</Script>" & _
10 "<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
11 "</SetIncomingCallScript>" & _
12 "</soap:Body>" & _
13 "</soap:Envelope>"
14 
15 Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
16 oXMLHttp.open "POST", url, False
17 oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
18 oXMLHttp.send request
19 response = oXMLHttp.responseText
20 
21 MsgBox oXMLHTTP.responseText