para - vba word object model

VBA HTTP POST no funciona

Question

Estoy tratando de enviar publicaciones HTTP a través de VBA. Aquí está mi parte del código

Set objHTTP = CreateObject("MSXML2.ServerXMLHTTP")
objHTTP.Open "POST", url, False
objHTTP.setRequestHeader "User-Agent", "EPS 1.0"
objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
objHTTP.setRequestHeader "content", postString
objHTTP.setRequestHeader "Content-Length", Len(postString)
objHTTP.send

El problema es que el código solo funciona si la postString tiene menos de 65535 caracteres. Si supera 65535 caracteres, arroja un error en la línea siguiente:

ERROR: parámetro incorrecto

objHTTP.setRequestHeader "content", postString

Alguna idea sobre esto? ¿Debo configurar algún otro parámetro para que funcione?

Answer 1

Por: https://support.microsoft.com/en-us/kb/290591

Esto debería funcionar :

postString = "id=" & String(66000,"x")
Dim xmlhttp
Set xmlhttp = Createobject("MSXML2.ServerXMLHTTP")
xmlhttp.Open "POST", url, false
xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
xmlhttp.send postString

Si no funciona, entonces tal vez esté pasando algo con la configuración del lado del servidor.