Forward message

The following example shows you how to find messages by subject and forward 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
            {
                IsEqualTo restriction = new IsEqualTo(MessagePropertyPath.Subject, "Test");

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

                for (int i = 0; i < inboxResponse.Items.Count; i++)
                {
                    ItemId currentMessageId = inboxResponse.Items[i].ItemId;

                    ForwardItem forwardItem = new ForwardItem(currentMessageId);
                    forwardItem.NewBody = new Body("John, please see message below:");
                    forwardItem.ToRecipients.Add(new Mailbox("John@mydomain.com"));

                    ItemInfoResponse response = service.Forward(forwardItem);
                }
            }
            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

                Dim restriction As New IsEqualTo(MessagePropertyPath.Subject, "Test")

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

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

                    Dim currentMessageId As ItemId = inboxResponse.Items(i).ItemId

                    Dim forwardItem As New ForwardItem(currentMessageId)
                    forwardItem.NewBody = New Body("John, please see message below:")
                    forwardItem.ToRecipients.Add(New Mailbox("John@mydomain.com"))

                    Dim response As ItemInfoResponse = service.Forward(forwardItem)
                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