У меня проблемы с созданием нового элемента в списке SharePoint 2013. Я действительно могу создать элемент, хотя внешние данные (службы подключения к бизнесу [bcs]) не заполняются автоматически, как это было бы при создании элемента через пользовательский интерфейс SharePoint. Есть ли способ на самом деле сделать это, или отправить функцию, которая должна запускаться через POST? Я вставил свой текущий подпункт создания элемента ниже.
Dim oXMLHTTP As Object
Dim sListNameOrGuid As String
Dim sBatchXml As String
sWTF As String
Set oXMLHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
sCurrentUser = fGetUserID
With oXMLHTTP
.Open "POST", "MYSPSITE.COM/_api/web/lists/GetByTitle('THELIST')/items", True
.setRequestHeader "Accept", "application/json;odata=verbose"
.setRequestHeader "Content-Type", "application/json;odata=verbose"
' .setRequestHeader "X-HTTP-Method", "PATCH"
' .setRequestHeader "If-Match", "*"
.setRequestHeader "X-RequestDigest", fGetLoginToken
sWTF = "{ 'User': " & Int(sCurrentUser) & ", 'newComment': 'TESTING TESTING'}"
.send (sWTF)
Do While .readyState <> 4:
DoEvents
Loop
Debug.Print (.responseText)
.abort
End With
Set oXMLHTTP = Nothing
End Sub