Independentsoft
- any library, any programming language
Home
Purchase
Support
Company
Contact
Exchange Web Services .NET
>
Tutorial
> Archive item
The following example shows you how to archive items.
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); service.RequestServerVersion = RequestServerVersion.Exchange2013; try { IList
items = new List
(); IsLessThanOrEqualTo restriction = new IsLessThanOrEqualTo(MessagePropertyPath.ReceivedTime, DateTime.Now.AddMonths(-1)); FindItemResponse response = service.FindItem(StandardFolder.Inbox, new ItemShape(ShapeType.Id), restriction); for (int i = 0; i < response.Items.Count; i++) { if (response.Items[i] is Message) { items.Add(response.Items[i].ItemId); } } if (items.Count > 0) { IList
archiveResponse = service.ArchiveItem(items, StandardFolder.Inbox); } } 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.Generic 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) service.RequestServerVersion = RequestServerVersion.Exchange2013 Try Dim items As IList(Of ItemId) = New List(Of ItemId)() Dim restriction As IsLessThanOrEqualTo = New IsLessThanOrEqualTo(MessagePropertyPath.ReceivedTime, DateTime.Now.AddMonths(-1)) Dim response As FindItemResponse = service.FindItem(StandardFolder.Inbox, New ItemShape(ShapeType.Id), restriction) For Each item As Item In response.Items If TypeOf item Is Message Then items.Add(item.ItemId) End If Next If (items.Count > 0) Then Dim archiveResponse As IList(Of ItemInfoResponse) = service.ArchiveItem(items, StandardFolder.Inbox) End If 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
Need help? Ask our developers:
Name*
Email*
Message*