Outlook VBA 将表单变量传递给 XMLHTTP

Question

我正在尝试将文本框值从 Outlook 用户窗体传递到 asmx Web 服务。我已经用 PHP 成功地做到了这一点，但现在需要用 VBA 来做到这一点。目前，表单在提交时完全没有任何作用。我相信我传递给 send 方法的内容或方式有问题。有什么建议我可以让它工作吗？

CliAcctNo = TicketCreateForm1.CliAcctNo.Value
ContactName = TicketCreateForm1.ContactName.Value
ContactNum = TicketCreateForm1.ContactNum.Value
Ext = TicketCreateForm1.Ext.Value
Email = TicketCreateForm1.Email.Value
TicketTitle = TicketCreateForm1.TicketTitle.Value
TicketDesc = TicketCreateForm1.Desc.Value

'DataToPost = ("cliacctno=44121&pname=John&pnum=404-223-9655&ext=0&emailaddress=john@noemail.com&tickettitle=test from vab&ticketdetails=test line item vba")
'objEvn.Parameters.Create "Test", "Test"
DataToPost = ("CliAcctNo&ContactName&ContactNum&Ext&Email&TicketTitle&TicketDesc")




Set objHttp = New MSXML2.XMLHTTP
'Set objHttp = New MSXML2.XMLHTTPRequest
objHttp.Open "POST", "http://localhost/test/test.asmx"
objHttp.setRequestHeader "Content-Type", "text/xml"
'objHttp.setRequestHeader "SOAPAction", "CreateTicket"
objHttp.setRequestHeader "SOAPAction", "tempri.org/CreateTicket"
objHttp.Send (DataToPost)

Answer 1

在您发布的代码中，您正在向 Web 服务发送一个固定字符串：您需要以某种方式在其中包含您的参数 -

CliAcctNo = TicketCreateForm1.CliAcctNo.Value
ContactName = TicketCreateForm1.ContactName.Value
ContactNum = TicketCreateForm1.ContactNum.Value
Ext = TicketCreateForm1.Ext.Value
Email = TicketCreateForm1.Email.Value
TicketTitle = TicketCreateForm1.TicketTitle.Value
TicketDesc = TicketCreateForm1.Desc.Value

'DataToPost = ("cliacctno=44121&pname=John&pnum=404-223-9655&ext=0&emailaddress=john@noemail.com&tickettitle=test from vab&ticketdetails=test line item vba")


 DataToPost = "cliacctno=" & CliAcctNo & _
             "pname=" & ContactName & _
             "pnum=" & ContactNum & _
             "ext=" & Ext & _
             "emailaddress=" & Email & _
             "tickettitle=" & TicketTitle & _
             "ticketdetails=" & TicketDesc