Search for contacts in public folder

This example shows you how to search for contacts, from public folder, created or updated in last 15 minutes.

C# example

using System;
using System.Net;
using Independentsoft.Webdav.Exchange;
using Independentsoft.Webdav.Exchange.ContentClass;
using Independentsoft.Webdav.Exchange.Properties;
using Independentsoft.Webdav.Exchange.Sql;

namespace Sample
{
    class Program
    {
        static void Main(string[] args)
        {
            NetworkCredential credential = new NetworkCredential("username", "password");
            WebdavSession session = new WebdavSession(credential);

            Resource resource = new Resource(session);

            string publicFolder = "https://myserver/public/Contacts";

            PropertyName[] propertyName = new PropertyName[8];
            propertyName[0] = ContactProperty.ContentClass;
            propertyName[1] = ContactProperty.GivenName;
            propertyName[2] = ContactProperty.Email1;
            propertyName[3] = ContactProperty.Organization;
            propertyName[4] = ContactProperty.Department;
            propertyName[5] = ContactProperty.TelephoneNumber;
            propertyName[6] = ContactProperty.LastModified;
            propertyName[7] = ContactProperty.PermanentUrl;


            Select select = new Select(propertyName);
            From from = new From(publicFolder);
            Where where = new Where();

            Condition condition1 = new Condition(ContactProperty.ContentClass, Operator.Equals, ContentClassType.Person);
            Condition condition2 = new Condition(ContactProperty.LastModified, Operator.GreatThenOrEquals, DateTime.Now.AddMinutes(-15));

            where.Add(condition1);
            where.Add(LogicalOperator.AND);
            where.Add(condition2);

            SqlQuery sqlQuery = new SqlQuery(select, from, where);
            MultiStatus multiStatus = resource.Search(publicFolder, sqlQuery);

            SearchResult searchResult = new SearchResult(multiStatus, propertyName);
            SearchResultRecord[] allRecords = searchResult.Record;

            for (int i = 0; i < allRecords.Length; i++)
            {
                string contactURL = allRecords[i].Address;
                Console.WriteLine("Contact URL = " + contactURL);

                Property[] property = allRecords[i].Property;

                Console.WriteLine("GivenName = " + property[1].Value);
                Console.WriteLine("Email1 = " + property[2].Value);
                Console.WriteLine("Organization = " + property[3].Value);
                Console.WriteLine("Department = " + property[4].Value);
                Console.WriteLine("TelephoneNumber = " + property[5].Value);
                Console.WriteLine("LastModified = " + property[6].Value);
                Console.WriteLine("PermanentUrl = " + property[7].Value);
            }

            Console.Read();
        }
    }
}

VB example

Imports System
Imports System.Net
Imports Independentsoft.Webdav.Exchange
Imports Independentsoft.Webdav.Exchange.ContentClass
Imports Independentsoft.Webdav.Exchange.Properties
Imports Independentsoft.Webdav.Exchange.Sql

Module Module1
    Sub Main(ByVal args() As String)

        Dim credential As NetworkCredential = New NetworkCredential("username", "password")
        Dim session As WebdavSession = New WebdavSession(credential)
        Dim resource As Resource = New Resource(session)

        Dim publicFolder As String = "https://myserver/public/Contacts"

        Dim propertyName() As PropertyName = New PropertyName(7) {}

        propertyName(0) = ContactProperty.ContentClass
        propertyName(1) = ContactProperty.GivenName
        propertyName(2) = ContactProperty.Email1
        propertyName(3) = ContactProperty.Organization
        propertyName(4) = ContactProperty.Department
        propertyName(5) = ContactProperty.TelephoneNumber
        propertyName(6) = ContactProperty.LastModified
        propertyName(7) = ContactProperty.PermanentUrl

        Dim selectStatement As Independentsoft.Webdav.Exchange.Sql.Select = New Independentsoft.Webdav.Exchange.Sql.Select(propertyName)
        Dim from As From = New From(publicFolder)
        Dim where As Where = New Where

        Dim condition1 As Condition = New Condition(ContactProperty.ContentClass, [Operator].Equals, ContentClassType.Person)
        Dim condition2 As Condition = New Condition(ContactProperty.LastModified, [Operator].GreatThenOrEquals, DateTime.Now.AddMinutes(-15))

        where.Add(condition1)
        where.Add(LogicalOperator.AND)
        where.Add(condition2)

        Dim query As SqlQuery = New SqlQuery(selectStatement, from, where)
        Dim multiStatus As MultiStatus = resource.Search(publicFolder, query)

        Dim searchResult As SearchResult = New SearchResult(multiStatus, propertyName)
        Dim allRecords() As SearchResultRecord = searchResult.Record

        Dim i As Integer
        For i = 0 To allRecords.Length - 1
            Dim contactURL As String = allRecords(i).Address
            Console.WriteLine("Contact URL = " + contactURL)

            Dim property1() As Independentsoft.Webdav.Exchange.Property = allRecords(i).Property

            Console.WriteLine("GivenName = " + property1(1).Value)
            Console.WriteLine("Email1 = " + property1(2).Value)
            Console.WriteLine("Organization = " + property1(3).Value)
            Console.WriteLine("Department = " + property1(4).Value)
            Console.WriteLine("TelephoneNumber = " + property1(5).Value)
            Console.WriteLine("LastModified = " + property1(6).Value)
            Console.WriteLine("PermanentUrl = " + property1(7).Value)
        Next

        Console.Read()

    End Sub
End Module

Independentsoft - any library, any programming language

WebDAV .NET for Exchange > Tutorial > Search for contacts in public folder