Find messages with attachments

The following example shows you how to find messages with attachments.

C# example

using System;
using System.IO;
using System.Net;
using System.Collections.Generic;
using Independentsoft.Exchange;

namespace Sample
{
    class Program
    {
        static void Main(string[] args)
        {
            NetworkCredential credential = new NetworkCredential("username", "password");
            Service service = new Service("https://myserver/ews/Exchange.asmx", credential);

            try
            {
                IsEqualTo restriction = new IsEqualTo(MessagePropertyPath.HasAttachments, true);

                ItemShape itemShape = new ItemShape(ShapeType.Id);

                FindItemResponse response = service.FindItem(StandardFolder.Inbox, itemShape, restriction);

                for (int i = 0; i < response.Items.Count; i++)
                {
                    if (response.Items[i] is Message)
                    {
                        ItemId itemId = response.Items[i].ItemId;

                        Message message = service.GetMessage(itemId);

                        IList<AttachmentInfo> attachmentsInfo = message.Attachments;

                        for (int j = 0; j < attachmentsInfo.Count; j++)
                        {
                            Attachment attachment = service.GetAttachment(attachmentsInfo[j].Id);

                            if (attachment is FileAttachment)
                            {
                                FileAttachment fileAttachment = (FileAttachment)attachment;

                                byte[] buffer = fileAttachment.Content;
                                string fileName = fileAttachment.Name;

                                FileStream fileStream = new FileStream("c:\\test\\" + fileName, FileMode.Create);

                                using (fileStream)
                                {
                                    fileStream.Write(buffer, 0, buffer.Length);
                                }
                            }
                            else if (attachment is ItemAttachment)
                            {
                                ItemAttachment itemAttachment = (ItemAttachment)attachment;

                                string name = itemAttachment.Name;
                                Item attachedItem = itemAttachment.Item;
                            }
                        }
                    }
                }
            }
            catch (ServiceRequestException ex)
            {
                Console.WriteLine("Error: " + ex.Message);
                Console.WriteLine("Error: " + ex.XmlMessage);
                Console.Read();
            }
            catch (WebException ex)
            {
                Console.WriteLine("Error: " + ex.Message);
                Console.Read();
            }
        }
    }
}

VB example

Imports System
Imports System.IO
Imports System.Net
Imports Independentsoft.Exchange

Namespace Sample
    Class Module1
        Shared Sub Main(ByVal args As String())

            Dim credential As New NetworkCredential("username", "password")
            Dim service As New Service("https://myserver/ews/Exchange.asmx", credential)

            Try

                Dim restriction As New IsEqualTo(MessagePropertyPath.HasAttachments, True)

                Dim itemShape As New ItemShape(ShapeType.Id)

                Dim response As FindItemResponse = service.FindItem(StandardFolder.Inbox, itemShape, restriction)

                For i As Integer = 0 To response.Items.Count - 1

                    If TypeOf response.Items(i) Is Message Then

                        Dim itemId As ItemId = response.Items(i).ItemId

                        Dim message As Message = service.GetMessage(itemId)

                        Dim attachmentsInfo As IList(Of AttachmentInfo) = message.Attachments

                        For j As Integer = 0 To attachmentsInfo.Count - 1

                            Dim attachment As Attachment = service.GetAttachment(attachmentsInfo(j).Id)

                            If TypeOf attachment Is FileAttachment Then

                                Dim fileAttachment As FileAttachment = DirectCast(attachment, FileAttachment)

                                Dim buffer As Byte() = fileAttachment.Content
                                Dim fileName As String = fileAttachment.Name

                                Dim fileStream As New FileStream("c:\test\" + fileName, FileMode.Create)

                                Using fileStream
                                    fileStream.Write(buffer, 0, buffer.Length)
                                End Using

                            ElseIf TypeOf attachment Is ItemAttachment Then

                                Dim itemAttachment As ItemAttachment = DirectCast(attachment, ItemAttachment)

                                Dim name As String = itemAttachment.Name
                                Dim attachedItem As Item = itemAttachment.Item

                            End If
                        Next
                    End If
                Next
            Catch ex As ServiceRequestException
                Console.WriteLine("Error: " + ex.Message)
                Console.WriteLine("Error: " + ex.XmlMessage)
                Console.Read()
            Catch ex As WebException
                Console.WriteLine("Error: " + ex.Message)
                Console.Read()
            End Try

        End Sub
    End Class
End Namespace

Independentsoft - any library, any programming language

Exchange Web Services .NET > Tutorial > Find messages with attachments

Need help? Ask our developers: