Send draft message

The following example shows you how to create a message in the Drafts folder, update the message and then send it.

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
            {
                Message message = new Message();
                message.Subject = "Test";
                message.Body = new Body("Body text");

                //create message in the Drafts folder
                ItemId itemId1 = service.CreateItem(message);

                Mailbox john = new Mailbox("John@mydomain.com", "John Smith");
                Property toProperty = new Property(MessagePropertyPath.ToRecipients, john);
                
                //Update message.
                ItemId itemId2 = service.UpdateItem(itemId1, toProperty);

                //Send message
                ItemInfoResponse response = service.Send(itemId2);

            }
            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 message As New Message()
                message.Subject = "Test"
                message.Body = New Body("Body text")

                'create message in the Drafts folder 
                Dim itemId1 As ItemId = service.CreateItem(message)

                Dim john As New Mailbox("John@mydomain.com", "John Smith")
                Dim toProperty As New [Property](MessagePropertyPath.ToRecipients, john)

                'Update message. 
                Dim itemId2 As ItemId = service.UpdateItem(itemId1, toProperty)

                'Send message 
                Dim response As ItemInfoResponse = service.Send(itemId2)

            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 > Send draft message

Need help? Ask our developers: