VBA UpdateListItems SharePoint WebService

Question

Я пытаюсь создать новую задачу в списке SharePoint в VBA.Вот код, который я использую:

Public Sub AddToSharePoint(ByVal Title As String, ByVal URL As String)
  Dim oSoapClient As Object
  Const ListID As String = "{0533218A-7FD9-4A25-AB8B-640F43E99741}"
  Const ListView As String = "{805F724A-C3BD-4F26-891F-A331A469BC35}"

  Dim BatchXML As String

  BatchXML = "<Batch OnError='continue' ListVersion='1' ViewName='" & ListView & "'>"
  BatchXML = BatchXML & "<Method ID='1' Cmd='New'>"

  BatchXML = BatchXML & "<Field Name='Title'>" & Title & "</Field>"

  BatchXML = BatchXML & "</Method></Batch>"

  Set oSoapClient = CreateObject("MSSOAP.SOAPClient30")
  oSoapClient.MSSoapInit URL&"?WSDL"

  oSoapClient.UpdateListItems ListID, BatchXML

  Set oSoapClient = Nothing    
End Sub

Все работает хорошо до строки:

oSoapClient.UpdateListItems ListID, BatchXML

При переходе на эту строку я получаю сообщение об ошибке:

Превышено максимальное число повторных попыток соединения (80004005)

Не могу понять, что здесь не так.

Answer 1

Одним из первых шагов в решении вашей проблемы является рассмотрение точного характера параметров функции UpdateListItems.

=> http://msdn.microsoft.com/en-us/library/lists.lists.updatelistitems%28v=office.12%29.aspx

Как видите, - первый параметр долженбыть строкой, содержащей имя вашего списка Sharepoint. Второй должен быть XMLNode компонента (а не просто String).

Я не могу помочь больше, потому что я тоже застрял в этомпроблема немного дальше (Ошибка выполнения: возникла исключительная ситуация SoapServerException).Но это все еще первый шаг;)