Indexed page view

The following example shows you how to use IndexedPageView to support paging in the FindItem method.

C# example

using System;
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
            {
                int offset = 0;

                while (true)
                {
                    IndexedPageView view = new IndexedPageView(offset, IndexBasePoint.Beginning, 100);

                    FindItemResponse response = service.FindItem(StandardFolder.Inbox, MessagePropertyPath.AllPropertyPaths, view);

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

                            Console.WriteLine("Subject = " + message.Subject);
                            Console.WriteLine("ReceivedTime = " + message.ReceivedTime);
                            Console.WriteLine("----------------------------------------------------------------");
                        }
                    }

                    if (response.IndexedPagingOffset < response.TotalItemsInView)
                    {
                        offset = response.IndexedPagingOffset;
                    }
                    else
                    {
                        break;
                    }
                }

                Console.Read();
            }
            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.Net
Imports System.Collections
Imports Independentsoft.Exchange

Namespace Sample
    Class Module1

        Private Shared folderTable As New Hashtable()

        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 offset As Integer = 0

                While (True)

                    Dim view As IndexedPageView = New IndexedPageView(offset, IndexBasePoint.Beginning, 100)

                    Dim response As FindItemResponse = service.FindItem(StandardFolder.Inbox, MessagePropertyPath.AllPropertyPaths, view)

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

                        If TypeOf response.Items(i) Is Message Then

                            Dim message As Message = DirectCast(response.Items(i), Message)

                            Console.WriteLine("Subject = " + message.Subject)
                            Console.WriteLine("ReceivedTime = " + message.ReceivedTime)
                            Console.WriteLine("----------------------------------------------------------------")
                        End If
                    Next

                    If (response.IndexedPagingOffset < response.TotalItemsInView) Then
                        offset = response.IndexedPagingOffset
                    Else

                        Exit While
                    End If

                End While

                Console.Read()

            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

        Private Shared Function GetFolderPath(ByVal folder As Folder) As String
            Dim path As String = ""

            path = (path & "/") + folder.DisplayName

            Dim parentId As String = folder.ParentId.Id

            If folderTable(parentId) IsNot Nothing Then
                Dim parentFolder As Folder = DirectCast(folderTable(parentId), Folder)

                Return GetFolderPath(parentFolder) + path
            End If

            Return path
        End Function

    End Class
End Namespace

Independentsoft - any library, any programming language

Exchange Web Services .NET > Tutorial > Indexed page view

Need help? Ask our developers: