lotus调用webservice解决办法

lotus调用webservice
Sub Initialize

Dim result As String
Dim arrayarg(0 To 3) As Variant
arrayarg(0)= "5311898"
arrayarg(1)= "4680003"
arrayarg(2)= "ddddddddddddddddddddddddd"
arrayarg(3)= "<?xml version=\'1.0\' encoding=\'gb2312\'?><root><number>15846182069</number></root>"

sWSDL =" http://218.9.19.165/SMSExportService.jws?wsdl"

Set Client =CreateObject("MSSOAP.SoapClient30")

Call Client.mssoapinit(sWSDL)

Msgbox("&yyyyyyyyyyyyyyy")
result= Client.sendShortMessage(arrayarg) //错误在这
'result= Client.sendShortMessage(arrayarg)

Messagebox result, MB_OK, "Get Email"
End Sub
错误提示：client:incorrect number of paramrters supplied for soap request result:0x80070057:参数不正确
这个webservice在java中调用
ret=(String)call.invoke(newObject[]{username,password,content,numbersXml});
这是java调用的写法没错的
但是用lotusscript应该怎么写



------解决方案--------------------
很多种方式 xmlhttp

Dom

soap