VBScript

From CDYNE Wiki
Jump to: navigation, search

Contents

Assign Incoming Number

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<AssignIncomingNumber xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<IncomingPhoneNumber>15551234567</IncomingPhoneNumber>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</AssignIncomingNumber>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Cancel Conference

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<CancelConference xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<ConferenceKey>CONFERENCE KEY</ConferenceKey>" & _
"</CancelConference>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText

Cancel Notify

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<CancelNotify xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<QueueID>012345678</QueueID>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</CancelNotify>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Cancel Notify By Reference ID

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<CancelNotifyByReferenceID xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<ReferenceID>123</ReferenceID>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</CancelNotifyByReferenceID>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText
 
'Return code of 0 indicates the notification was not cancelled.
'Return code of 1 indicates the notification was cancelled.

Get Assigned Numbers

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<GetAssignedNumbers xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</GetAssignedNumbers>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Get Available Area Codes

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<GetAvailableAreaCodes xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"</GetAvailableAreaCodes>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Get Available Incoming Numbers

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<GetAvailableIncomingNumbers xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<AreaCodeFilter>757</AreaCodeFilter>" & _
"</GetAvailableIncomingNumbers>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Get Incoming Call Script

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<GetIncomingCallScript xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<PhoneNumber>YOUR DID</PhoneNumber>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</GetIncomingCallScript>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Get Multiple Queue ID Status

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<GetMultipleQueueIdStatus xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<QueueIDs>012345678;876543210</QueueIDs>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</GetMultipleQueueIdStatus>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Get Queue ID Status

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<GetQueueIDStatus xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<QueueID>012345678</QueueID>" & _
"</GetQueueIDStatus>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Get Queue ID Statuses By Phone Number

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<GetQueueIDStatusesByPhoneNumber xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<PhoneNumber>17575449510</PhoneNumber>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</GetQueueIDStatusesByPhoneNumber>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Get Queue ID Status With Advanced Info

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<GetQueueIDStatusWithAdvancedInfo xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<QueueID>012345678</QueueID>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</GetQueueIDStatusWithAdvancedInfo>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Get Response Codes

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<GetResponseCodes xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"</GetResponseCodes>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Get Sound File

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<GetSoundFile xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<SoundFileID>testsoundfile_wav</SoundFileID>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</GetSoundFile>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Get Sound File Length

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<GetSoundFileLength xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<SoundFileID>testsoundfile_wav</SoundFileID>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</GetSoundFileLength>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Get Sound File URL

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<GetSoundFileURL xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<SoundFileID>testsoundfile_wav</SoundFileID>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</GetSoundFileURL>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Get Version

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<GetVersion xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"</GetVersion>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Get Voices

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<getVoices xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"</getVoices>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

License Key Variable Load

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<LicenseKeyVariableLoad xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<VariableName>Test Variable</VariableName>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</LicenseKeyVariableLoad>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

License Key Variable Save

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<LicenseKeyVariableSave xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<VariableName>Test Variable</VariableName>" & _
"<VariableValue>123456789</VariableValue>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</LicenseKeyVariableSave>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

LM Add List Member

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<LM_AddListMember xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<ListID>12345</ListID>" & _
"<ClientID>1</ClientID>" & _
"<PhoneNumber>17575449510</PhoneNumber>" & _
"<FirstName>CDYNE</FirstName>" & _
"<LastName>Corporation</LastName>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</LM_AddListMember>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

LM Add New List

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<LM_AddNewList xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<ListName>Test List</ListName>" & _
"<ParentListID>0</ParentListID>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</LM_AddNewList>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

LM Alter List ID

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<LM_AlterListID xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<ListID>12345</ListID>" & _
"<ParentListID>0</ParentListID>" & _
"<ListName>New Test List</ListName>" & _
"<Licensekey>YOUR LICENSE KEY</Licensekey>" & _
"</LM_AlterListID>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

LM Alter List Member

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<LM_AlterListMember xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<ListMemberID>98765</ListMemberID>" & _
"<ClientID>1</ClientID>" & _
"<PhoneNumber>17575449510</PhoneNumber>" & _
"<FirstName>CDYNE</FirstName>" & _
"<LastName>Corp</LastName>" & _
"<licensekey>YOUR LICENSE KEY</licensekey>" & _
"</LM_AlterListMember>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

LM Delete List

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<LM_DeleteList xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<ListID>12345</ListID>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</LM_DeleteList>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

LM Delete List Member

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<LM_DeleteListMember xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<ListMemberID>98765</ListMemberID>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</LM_DeleteListMember>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

LM Get List IDs By License Key

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<LM_GetListIDsByLicensekey xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<licensekey>YOUR LICENSE KEY</licensekey>" & _
"</LM_GetListIDsByLicensekey>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

LM Get List Members By List ID

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<LM_GetListMembersByListID xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<ListID>12345</ListID>" & _
"<Licensekey>YOUR LICENSE KEY</Licensekey>" & _
"</LM_GetListMembersByListID>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Notify Multiple Phone Advanced

Dim request, xmlHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<NotifyMultiplePhoneAdvanced xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<MultipleANR>" & _
"<AdvancedNotifyRequest>" & _
"<PhoneNumberToDial>17575449510</PhoneNumberToDial>" & _
"<VoiceID>1</VoiceID>" & _
"<CallerIDNumber>15551234567</CallerIDNumber>" & _
"<CallerIDName>CDYNE</CallerIDName>" & _
"<TextToSay>Hello, this is a test.</TextToSay>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"<UTCScheduledDateTime>2008-01-28T00:53:06.608Z</UTCScheduledDateTime>" & _
"<StatusChangePostUrl>'http://www.yourpostbackurl.com'</StatusChangePostUrl>" & _
"</AdvancedNotifyRequest>" & _
"<AdvancedNotifyRequest>" & _
"<PhoneNumberToDial>18009843710</PhoneNumberToDial>" & _
"<VoiceID>1</VoiceID>" & _
"<CallerIDNumber>15551234567</CallerIDNumber>" & _
"<CallerIDName>CDYNE</CallerIDName>" & _
"<TextToSay>Hello, this is a test.</TextToSay>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"<UTCScheduledDateTime>2008-01-28T00:53:06.608Z</UTCScheduledDateTime>" & _
"<StatusChangePostUrl>'http://www.yourpostbackurl.com'</StatusChangePostUrl>" & _
"</AdvancedNotifyRequest>" & _
"</MultipleANR>" & _
"</NotifyMultiplePhoneAdvanced>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set xmlHttp = CreateObject("MSXML2.ServerXMLHTTP")
xmlHttp.open "POST", url, False
xmlHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
xmlHttp.send request
response = xmlhttp.responseText
 
MsgBox xmlHttp.responseText

Notify Multiple Phone Basic

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<NotifyMultiplePhoneBasic xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<PhoneNumbersToDial>17575449510;18009843710</PhoneNumbersToDial>" & _
"<TextToSay>Hello, this is a test.</TextToSay>" & _
"<CallerID>15551234567/CallerID>" & _
"<CallerIDname>CDYNE</CallerIDname>" & _
"<VoiceID>1</VoiceID>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</NotifyMultiplePhoneBasic>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Notify Multiple Phone Basic With CPM

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<NotifyMultiplePhoneBasicWithCPM xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<PhoneNumbersToDial>17575449510;18009843710</PhoneNumbersToDial>" & _
"<TextToSay>Hello, this is a test.</TextToSay>" & _
"<CallerID>15551234567/CallerID>" & _
"<CallerIDname>CDYNE</CallerIDname>" & _
"<VoiceID>1</VoiceID>" & _
"<CallsPerMinute>1</CallsPerMinute>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</NotifyMultiplePhoneBasicWithCPM>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Notify Multiple Phone Basic With CPM and ReferenceID

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<NotifyMultiplePhoneBasicWithCPMandReferenceID xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<PhoneNumbersToDial>17575449510;18009843710</PhoneNumbersToDial>" & _
"<TextToSay>Hello, this is a test.</TextToSay>" & _
"<CallerID>15551234567/CallerID>" & _
"<CallerIDname>CDYNE</CallerIDname>" & _
"<VoiceID>1</VoiceID>" & _
"<CallsPerMinute>1</CallsPerMinute>" & _
"<ReferenceID>123</ReferenceID>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</NotifyMultiplePhoneBasicWithCPMandReferenceID>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Notify Phone Advanced

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<NotifyPhoneAdvanced xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<anr>" & _
"<PhoneNumberToDial>17575449510</PhoneNumberToDial>" & _
"<VoiceID>1</VoiceID>" & _
"<CallerIDNumber>18009843710</CallerIDNumber>" & _
"<CallerIDName>CDYNE</CallerIDName>" & _
"<TextToSay>Hello, this is a test.</TextToSay>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"<UTCScheduledDateTime>2013-07-29T17:25:06.608Z</UTCScheduledDateTime>" & _
"</anr>" & _
"</NotifyPhoneAdvanced>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Notify Phone Basic

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<NotifyPhoneBasic xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<PhoneNumberToDial>17575449510</PhoneNumberToDial>" & _
"<CallerID>18009843710</CallerID>" & _
"<CallerIDname>CDYNE</CallerIDname>" & _
"<VoiceID>1</VoiceID>" & _
"<TextToSay>Hello, this is a test.</TextToSay>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</NotifyPhoneBasic>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Notify Phone Basic With Transfer

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<NotifyPhoneBasicWithTransfer xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<PhoneNumberToDial>17575449510</PhoneNumberToDial>" & _
"<TransferNumber>18009843710</TransferNumber>" & _
"<TextToSay>Hello, this is a test.</TextToSay>" & _
"<CallerID>15551234567</CallerID>" & _
"<CallerIDname>CDYNE</CallerIDname>" & _
"<VoiceID>1</VoiceID>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</NotifyPhoneBasicWithTransfer>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Notify Phone Basic With Try Count

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<NotifyPhoneBasicWithTryCount xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<PhoneNumberToDial>17575449510</PhoneNumberToDial>" & _
"<TransferNumber>18009843710</TransferNumber>" & _
"<TextToSay>Hello, this is a test.</TextToSay>" & _
"<CallerID>15551234567</CallerID>" & _
"<CallerIDname>CDYNE</CallerIDname>" & _
"<VoiceID>1</VoiceID>" & _
"<TryCount>1</TryCount>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</NotifyPhoneBasicWithTryCount>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Notify English Basic

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<NotifyPhoneEnglishBasic xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<PhoneNumberToDial>17575449510</PhoneNumberToDial>" & _
"<TextToSay>Hello, this is a test.</TextToSay>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</NotifyPhoneEnglishBasic>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

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

class WebService
public Url
public Method
public Response
public Parameters
 
public function execute()
dim xmlhttp
Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
xmlhttp.open "POST", Url & "/" & Method, false
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send Parameters.toString
response = xmlhttp.responseText
set xmlhttp = nothing
end function
 
Private Sub Class_Initialize()
Set Parameters = new wsParameters
End Sub
 
Private Sub Class_Terminate()
Set Parameters = Nothing
End Sub
End class
 
class wsParameters
public mCol
public function toString()
dim nItem
dim buffer
buffer = ""
for nItem = 1 to Count
buffer = buffer & Item(nItem).toString & "&"
next
if right(buffer,1)="&" then
buffer = left(buffer,len(buffer)-1)
end if
toString = buffer
end function
public sub Clear
set mcol = nothing
Set mCol = CreateObject("Scripting.Dictionary")
end sub
public sub Add(pKey,pValue)
dim newParameter
 
set newParameter = new wsParameter
newParameter.Key = pKey
newParameter.Value = pValue
mCol.Add mCol.count+1, newParameter
 
set newParameter = nothing
end sub
public function Item(nKey)
set Item=mCol.Item(nKey)
end function
public function ExistsXKey(pKey)
dim nItem
 
for nItem = 1 to mcol.count
if mCol.Item(nItem).key = pKey then
ExistsXKeyword = true
exit for
end if
next
end function
public sub Remove(nKey)
mCol.Remove(nKey)
end sub
public function Count()
Count=mCol.count
end function
Private Sub Class_Initialize()
Set mCol = CreateObject("Scripting.Dictionary")
End Sub
Private Sub Class_Terminate()
Set mCol = Nothing
End Sub
end class
 
class wsParameter
public Key
public Value
public function toString()
toString = Key & "=" & Value
end function
end class
 
 
dim ws
 
'create web service object
set ws = new webservice
'point it to CDYNE Phone Notify web service
ws.Url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
'we want to call this method
ws.Method = "NotifyPhoneEnglishBasic"
'fill parameters
ws.Parameters.Add "PhoneNumberToDial", 7573440000 '
ws.Parameters.Add "TextToSay","Hey, this is a test message"
ws.Parameters.Add "LicenseKey","0"
 
ws.execute
 
Debug.Write ws.Response
 
set ws = nothing

Record Sound File Via Phone Call

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<RecordSoundViaPhoneCall xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<PhoneNumberToDial>17575449510</PhoneNumberToDial>" & _
"<SoundFileID>testsoundfile.wav</SoundFileID>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</RecordSoundViaPhoneCall>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Remove Sound File

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<RemoveSoundFile xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<SoundFileID>soundfile1_wav</SoundFileID>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</RemoveSoundFile>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Rename Sound File

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<RenameSoundFile xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<SoundFileID>testsoundfile_wav</SoundFileID>" & _
"<NewSoundFileID>soundfile1_wav</NewSoundFileID>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</RenameSoundFile>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Return Sound File IDs

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<ReturnSoundFileIDs xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</ReturnSoundFileIDs>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Script Delete

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<ScriptDelete xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<ScriptName>Test Script</ScriptName>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</ScriptDelete>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Script List

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<ScriptList xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<IncludeGlobalScripts>false</IncludeGlobalScripts>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</ScriptList>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Script Load

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<ScriptLoad xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<ScriptName>Test Script</ScriptName>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</ScriptLoad>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Script Save

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<ScriptSave xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<ScriptName>Test Script</ScriptName>" & _
"<ScriptText>Hello, this is a test.</ScriptText>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</ScriptSave>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText

Set Incoming Call Script

Dim request, oXMLHttp, url
url = "http://ws.cdyne.com/NotifyWS/PhoneNotify.asmx"
 
request = "<?xml version='1.0' encoding='utf-8'?>" & _
"<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/"">" & _
"<soap:Body>" & _
"<SetIncomingCallScript xmlns=""http://ws.cdyne.com/NotifyWS/"">" & _
"<PhoneNumber>18885551234</PhoneNumber>" & _
"<Script>Hello, this is a test.</Script>" & _
"<LicenseKey>YOUR LICENSE KEY</LicenseKey>" & _
"</SetIncomingCallScript>" & _
"</soap:Body>" & _
"</soap:Envelope>"
 
Set oXMLHttp = CreateObject("MSXML2.ServerXMLHTTP")
oXMLHttp.open "POST", url, False
oXMLHttp.setRequestHeader "Content-Type", "text/xml; charset=utf-8"
oXMLHttp.send request
response = oXMLHttp.responseText
 
MsgBox oXMLHTTP.responseText
Personal tools
Namespaces

Variants
Actions
Navigation
Tools

Trial Key