Solution: Consuming Sharepoint Lists web service to export Notes data

HCL Notes/Domino 8.5 Forum (includes Notes Traveler)

Subject: Solution: Consuming Sharepoint Lists web service to export Notes data

Feedback Type: Suggestion

Product Area: Notes Client

Technical Area: Application Development

Platform: Windows

Release: 8.5.3

Reproducible: Always

I created a Notes agent to send Notes data to SharePoint using the sharePoint Lists web service. Hope users can find this useful.

Here is the code:

Set docNew = viewNew.GetFirstDocument
nName = docNew.FirstName(0) + " " + docNew.LastName(0)
nAddress1 = docNew.StreetAddress(0)
nAddress2 = docNew.StreetAddress_1(0)
nCity = docNew.City(0)
nState = docNew.State(0)
nZip = docNew.Zip(0)

'url=|http://<MySite>/_vti_bin/lists.asmx?op=UpdateListItems|
Set objHttp = CreateObject("Microsoft.XMLHTTP")
soap = "<?xml version='1.0' encoding='utf-8'?>"
soap =soap & "<soap12:Envelope xmlns:xsi='http://www.w3.org/2001/XMLSchema-instance' xmlns:xsd='http://www.w3.org/2001/XMLSchema' xmlns:soap12='http://www.w3.org/2003/05/soap-envelope'>"
soap =soap & "<soap12:Body>"
soap =soap & "<UpdateListItems xmlns='http://schemas.microsoft.com/sharepoint/soap/'>"
soap =soap & "<listName>" + <MyList> + "</listName>"
soap =soap & "<updates>"
soap =soap & "<Batch OnError='Continue'>"
soap =soap & "<Method ID='1' Cmd='New'>"
soap =soap & "<Field Name='ID'>New</Field>"
soap =soap & "<Field Name='Title'>" + nName + "</Field>"
soap =soap & "<Field Name='Street_x0020_Address_x0020_1'>" + nAddress1 + "</Field>"
soap =soap & "<Field Name='Street_x0020_Address_x0020_2'>" + nAddress2 + "</Field>"
soap =soap & "<Field Name='City'>" + nCity + "</Field>"
soap =soap & "<Field Name='City'>" + nZip+ "</Field>"
soap =soap & "</Method>"
soap =soap & "</Batch>"
soap =soap & "</updates>"
soap =soap & "</UpdateListItems>"
soap =soap & "</soap12:Body>"
soap =soap & "</soap12:Envelope>"

objhttp.Open "POST", url, False
objhttp.setRequestHeader "Content-Type", "application/soap+xml; charset=utf-8"
objhttp.send(soap)

Feedback number WEBB95SLQK created by ~Justin Asaboosipulakoi on 03/14/2013

Status: Open
Comments: