Search for messages with attachments

The following example shows you how to search for messages with attachments and then download attachments.

C# example

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

namespace ConsoleApplication1
{
    class Class1
    {
        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[6];
            propertyName[0] = MessageProperty.ContentClass;
            propertyName[1] = MessageProperty.Subject;
            propertyName[2] = MessageProperty.Body;
            propertyName[3] = MessageProperty.FromEmail;
            propertyName[4] = MessageProperty.DateReceived;
            propertyName[5] = MessageProperty.HasAttachment;

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

            Condition condition1 = new Condition(MessageProperty.ContentClass, Operator.Equals, ContentClassType.Message);
            Condition condition2 = new Condition(MessageProperty.HasAttachment, 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++)
            {
                //message URL
                string messageUrl = allRecords[i].Address;
                Console.WriteLine("messageUrl=" + messageUrl);

                //message's properties
                Property[] property = allRecords[i].Property;
                string subject = HttpUtility.HtmlDecode(property[1].Value);
                string body = HttpUtility.HtmlDecode(property[2].Value);
                string fromEmail = HttpUtility.HtmlDecode(property[3].Value);

                //download attachments
                Attachment[] attachment = resource.GetAttachment(messageUrl);

                for (int k = 0; k < attachment.Length; k++)
                {
                    string atachmentUrl = attachment[k].Address;
                    string atachmentFileName = attachment[k].FileName;

                    if (atachmentFileName == null)
                    {
                        atachmentFileName = atachmentUrl.Substring(atachmentUrl.LastIndexOf("/") + 1);
                    }

                    FileStream file = new FileStream("c:\\temp\\" + atachmentFileName, FileMode.CreateNew);
                    Stream stream = resource.GetInputStream(attachment[k].Address);

                    byte[] buffer = new byte[4096];
                    int len = 0;

                    while ((len = stream.Read(buffer, 0, buffer.Length)) > 0)
                    {
                        file.Write(buffer, 0, len);
                    }

                    file.Close();
                    stream.Close();
                }
            }
        }
    }
}

VB example

Imports System
Imports System.IO
Imports System.Net
Imports System.Web
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(5) {}
        propertyName(0) = MessageProperty.ContentClass
        propertyName(1) = MessageProperty.Subject
        propertyName(2) = MessageProperty.Body
        propertyName(3) = MessageProperty.FromEmail
        propertyName(4) = MessageProperty.DateReceived
        propertyName(5) = MessageProperty.HasAttachment

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

        Dim condition1 As Condition = New Condition(MessageProperty.ContentClass, [Operator].Equals, ContentClassType.Message)
        Dim condition2 As Condition = New Condition(MessageProperty.HasAttachment, [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
            'message URL
            Dim messageUrl As String = allRecords(i).Address
            Console.WriteLine("messageUrl=" & messageUrl)

            'message's properties
            Dim properties() As Independentsoft.Webdav.Exchange.Property = allRecords(i).Property
            Dim subject As String = HttpUtility.HtmlDecode(properties(1).Value)
            Dim body As String = HttpUtility.HtmlDecode(properties(2).Value)
            Dim fromEmail As String = HttpUtility.HtmlDecode(properties(3).Value)

            'download attachments
            Dim attachment() As Attachment = resource.GetAttachment(messageUrl)

            Dim k As Integer
            For k = 0 To attachment.Length - 1
                Dim atachmentUrl As String = attachment(k).Address
                Dim atachmentFileName As String = attachment(k).FileName

                If atachmentFileName Is Nothing Then
                    atachmentFileName = atachmentUrl.Substring(atachmentUrl.LastIndexOf("/") + 1)
                End If

                Dim file As FileStream = New FileStream("c:\\temp\\" + atachmentFileName, FileMode.CreateNew)
                Dim stream As Stream = resource.GetInputStream(attachment(k).Address)

                Dim buffer() As Byte = New Byte(4096) {}
                Dim len As Integer = stream.Read(buffer, 0, buffer.Length)

                While (len > 0)
                    file.Write(buffer, 0, len)
                    len = stream.Read(buffer, 0, buffer.Length)
                End While

                file.Close()
                stream.Close()
            Next
        Next

        Console.Read()

    End Sub
End Module

Independentsoft - any library, any programming language

WebDAV .NET for Exchange > Tutorial > Search for messages with attachments