Delete item

The following example shows you how to find old items in the Drafts folder and delete them.

C# example

using System;
using System.Net;
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
            {
                //Delete Draft items older then 1 month

                IsLessThan restriction = new IsLessThan(ItemPropertyPath.CreatedTime, DateTime.Today.AddMonths(-1));

                FindItemResponse draftsItems = service.FindItem(StandardFolder.Drafts, restriction);

                for (int i = 0; i < draftsItems.Items.Count; i++)
                {
                    Response response = service.DeleteItem(draftsItems.Items[i].ItemId, DeleteType.MoveToDeletedItems);
                }

                //Empty DeletedItems folder
                
                ItemShape itemShape = new ItemShape(ShapeType.Id);
                FindItemResponse deletedItems = service.FindItem(StandardFolder.DeletedItems, itemShape);

                ItemIdCollection itemIds = new ItemIdCollection();

                for (int i = 0; i < deletedItems.Items.Count; i++)
                {
                    itemIds.Add(deletedItems.Items[i].ItemId);
                }

                ResponseCollection responses = service.DeleteItem(itemIds, DeleteType.HardDelete);
            }
            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 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

                'Delete Draft items older then 1 month 

                Dim restriction As New IsLessThan(ItemPropertyPath.CreatedTime, DateTime.Today.AddMonths(-1))

                Dim draftsItems As FindItemResponse = service.FindItem(StandardFolder.Drafts, restriction)

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

                    Dim response As Response = service.DeleteItem(draftsItems.Items(i).ItemId, DeleteType.MoveToDeletedItems)
                Next

                'Empty DeletedItems folder 

                Dim itemShape As New ItemShape(ShapeType.Id)
                Dim deletedItems As FindItemResponse = service.FindItem(StandardFolder.DeletedItems, itemShape)

                Dim itemIds As New ItemIdCollection()

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

                    itemIds.Add(deletedItems.Items(i).ItemId)
                Next

                Dim responses As ResponseCollection = service.DeleteItem(itemIds, DeleteType.HardDelete)

            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