[E2010][EWS] How to retrieve calendar items of a defined category?

Question

Hi,
I'm trying with VBScript to retrieve calendar items of a mailbox for a category.
I managed with EWS to retrieve ALL the calendar items of a mailbox :
const TARGETURL="https://.../ews/exchange.asmx"
const USERNAME="username"
const PASSWORD="pasword"
Const strEmailAddress = "[email protected]"
Dim objXmlHttp, xmlDoc
Set objXmlHttp = CreateObject("Microsoft.XMLHTTP")
Set objXmlDoc = CreateObject("MSXML2.DOMDocument")
'XML request
strXmlData = ""
strXmlData = strXmlData & "<?xml version=""1.0"" encoding=""utf-8""?> "
strXmlData = strXmlData & "<soap:Envelope xmlns:soap=""http://schemas.xmlsoap.org/soap/envelope/"" "
strXmlData = strXmlData & " xmlns:t=""http://schemas.microsoft.com/exchange/services/2006/types""> "
strXmlData = strXmlData & " <soap:Body> "
strXmlData = strXmlData & " <FindItem xmlns=""http://schemas.microsoft.com/exchange/services/2006/messages"" "
strXmlData = strXmlData & " xmlns:t=""http://schemas.microsoft.com/exchange/services/2006/types"" "
strXmlData = strXmlData & " Traversal=""Shallow""> "
strXmlData = strXmlData & " <ItemShape> "
strXmlData = strXmlData & " <t:BaseShape>AllProperties</t:BaseShape> "
strXmlData = strXmlData & " </ItemShape> "
strXmlData = strXmlData & " <CalendarView StartDate=""2014-01-20T13:00:00"" EndDate=""2014-01-30T23:59:59""/>"
strXmlData = strXmlData & " <ParentFolderIds> "
strXmlData = strXmlData & " <t:DistinguishedFolderId Id=""calendar""> "
strXmlData = strXmlData & " <t:Mailbox><t:EmailAddress>" & strEmailAddress & "</t:EmailAddress></t:Mailbox> "
strXmlData = strXmlData & " </t:DistinguishedFolderId> "
strXmlData = strXmlData & " </ParentFolderIds> "
strXmlData = strXmlData & " </FindItem> "
strXmlData = strXmlData & " </soap:Body> "
strXmlData = strXmlData & "</soap:Envelope> "
objXmlHttp.open "POST", TARGETURL, False, USERNAME, PASSWORD
objXmlHttp.setRequestHeader "Content-Type", "text/xml"
objXmlHttp.send strXmlData
'status 200
If objXmlHttp.Status = "200" Then
If objXmlDoc.loadXML(objXmlHttp.responseText) Then
Set soap_Body = objXmlDoc.documentElement.childNodes.item(1)
Set m_FindItemResponse = soap_Body.childNodes.item(0)
Set m_ResponseMessages = m_FindItemResponse.childNodes.item(0)
Set m_FindItemResponseMessage = m_ResponseMessages.childNodes.item(0)
Set m_RootFolder = m_FindItemResponseMessage.childNodes.item(1)
Set t_Items = m_RootFolder.childNodes.item(0)
For Each calendarItem In t_Items.childNodes
Dim t_Subject
t_Subject = calendarItem.getElementsByTagName("t:Subject").item(0).text
msgbox t_Subject 'Show the subject of the item
Next
End If
Else
wscript.echo "Error: " & objXmlHttp.Status & " - " & objXmlHttp.statusText
End If
But now I would like to add a filter in the XML code to retrieve only the calendar items of a category called "TEST".
How can I do this please?
Thanks

Answer 1

>> Do you have an example with ItemView to add a filter for a category? I didn't manage to make the query.
Firstly I would suggest you use Powershell and the EWS Managed API, this will save you hours of work and many many lines of code.
Because the category field is a multivalued property the best way to query this is to use a AQS query string the SOAP would look like
<?xml version="1.0" encoding="utf-8"?>
<soap:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:m="http://schemas.microsoft.com/exchange/services/2006/messages" xmlns:t="http://schemas.microsoft.com/exchange/services/2006/types" xmlns:soap="http://schemas.xmlsoap.org/soap/envelope/">
<soap:Header>
<t:RequestServerVersion Version="Exchange2010_SP2" />
</soap:Header>
<soap:Body>
<m:FindItem Traversal="Shallow">
<m:ItemShape>
<t:BaseShape>AllProperties</t:BaseShape>
</m:ItemShape>
<m:IndexedPageItemView MaxEntriesReturned="1000" Offset="0" BasePoint="Beginning" />
<m:ParentFolderIds>
<t:DistinguishedFolderId Id="calendar" />
</m:ParentFolderIds>
<m:QueryString>System.Category:'Green Category'</m:QueryString>
</m:FindItem>
</soap:Body>
</soap:Envelope>
Because this is a 2010 feature versioning you request is critical.
Cheers
Glen