Search for contacts with specific Outlook custom property

The following example shows you how to search for contacts with "myproperty" property set to true. The property is set in Outlook custom form and has data type boolean.

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);
            session.UserMailbox = "https://myserver/exchange/emailaddress";

            Resource resource = new Resource(session);
            Mailbox myMailbox = resource.Mailbox;

            PropertyName[] 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] = new PropertyName("myproperty", "");

            Select select = new Select(propertyName);
            From from = new From(myMailbox.Contacts);
            Where where = new Where();

            Condition condition1 = new Condition(ContactProperty.ContentClass, Operator.Equals, ContentClassType.Person);
            Condition condition2 = new Condition(new Cast(propertyName[6], "boolean"), Operator.Equals, "true");

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

            SqlQuery sqlQuery = new SqlQuery(select, from, where);
            MultiStatus multiStatus = resource.Search(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.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)
        session.UserMailbox = "https://myserver/exchange/emailaddress"

        Dim resource As Resource = New Resource(session)
        Dim myMailbox As Mailbox = resource.Mailbox

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

        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) = New PropertyName("myproperty", "")

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

        Dim condition1 As Condition = New Condition(ContactProperty.ContentClass, [Operator].Equals, ContentClassType.Person)
        Dim condition2 As Condition = New Condition(New Cast(propertyName(6), "boolean"), [Operator].Equals, "true")

        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(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)
        Next

        Console.Read()

    End Sub
End Module

Independentsoft - any library, any programming language

WebDAV .NET for Exchange > Tutorial > Search for contacts with specific Outlook custom property