Download message as .msg file

The following example shows you how to download message from Inbox to local file system as .msg file (Outlook message file format). On the same way you can download any other item.

C# example

using System;
using System.IO;
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://myserver3/ews/Exchange.asmx", credential);

            try
            {
                ItemShape itemShape = new ItemShape(ShapeType.Id);
                FindItemResponse inboxItems = service.FindItem(StandardFolder.Inbox, itemShape);

                for (int i = 0; i < inboxItems.Items.Count; i++)
                {
                    Independentsoft.Msg.Message msgFile = service.GetMessageFile(inboxItems.Items[i].ItemId);
                    msgFile.Save("c:\\test\\message" + i + ".msg", true);
                }
            }
            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 itemShape As New ItemShape(ShapeType.Id)
                Dim inboxItems As FindItemResponse = service.FindItem(StandardFolder.Inbox, itemShape)

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

                    Dim msgFile As Independentsoft.Msg.Message = service.GetMessageFile(inboxItems.Items(i).ItemId)
                    msgFile.Save("c:\test\message" & i & ".msg", True)

                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 > Download message as .msg file

Need help? Ask our developers: