Dim xmlHTTP, strResponse
Dim oXMLDoc
Set oXMLDoc = CreateObject("MSXML2.DOMDocument")
SET xmlHTTP = CreateObject ("Msxml2.ServerXMLHTTP")
Dim lResolve, lConnect, lSend, lReceive
lResolve = 10000
lConnect = 10000
lSend = 30000
lReceive = 0
xmlhttp.setTimeouts lResolve, lConnect, lSend, lReceive
'1. Inserting New Lead Fails:
'''''(Replace XXXXXXXXXXXXXX with the authcode)
Call xmlhttp.open("POST", "https://crm.zoho.com/crm/private/xml/Leads/insertRecords?newFormat=1&authtoken=XXXXXXXXXXXXXX &scope=crmapi&xmlData=" & strXMLDATA, false)
call xmlHTTP.setRequestHeader ("Content-Type","application/x-www-form-urlencoded")
xmlHttp.send ()