'List all the items from the inbox folder

 Private Function ListFolderItems(ByRef esb As ExchangeServiceBinding) As List(Of MessageType)

        Dim Messages As New List(Of MessageType)

        Messages = Nothing

        ' Form the FindItem request

        Dim findRequest As FindItemType = New FindItemType()

        findRequest.Traversal = ItemQueryTraversalType.Shallow

        ' Define which item properties are returned in the response

        Dim itemProperties As ItemResponseShapeType = New ItemResponseShapeType()

        itemProperties.BaseShape = DefaultShapeNamesType.AllProperties

        ' Add properties shape to request

        findRequest.ItemShape = itemProperties

        ' Identify which folders to search to find items

        Dim folderIDArray() As DistinguishedFolderIdType = New DistinguishedFolderIdType(1) {}

        folderIDArray(0) = New DistinguishedFolderIdType()

        folderIDArray(0).Id = DistinguishedFolderIdNameType.inbox

        ' Add folders to request

        findRequest.ParentFolderIds = folderIDArray

        'Send the listing (find) request and get the response

        Dim findResp As New FindItemResponseType

        findResp = esb.FindItem(findRequest)

        ' Get the response messages

        Dim responseMessage As ResponseMessageType

        For Each responseMessage In findResp.ResponseMessages.Items

            ' Cast to the correct response message type

            Dim findItemResponseMessage As FindItemResponseMessageType = responseMessage

            If findItemResponseMessage.ResponseClass = ResponseClassType.Success Then

                ' Get the actual payload of items

                Dim realItems As ArrayOfRealItemsType = findItemResponseMessage.RootFolder.Item

                If Not realItems.Items Is Nothing Then

                    ' Initialize list of messages and fill

                    Messages = New List(Of MessageType)(realItems.Items.Length)

                    Dim message As MessageType = Nothing

                    Dim item As ItemType = Nothing

                    For Each item In realItems.Items

                        If TypeOf item Is MessageType Then

                            message = item

                            Messages.Add(message)

                        End If

                    Next

                End If

            End If

        Next

        Return Messages

    End Function

'To get a specific item based on ItemId

Public Shared Function GetItem(ByVal serviceBinding As ExchangeServiceBinding, ByVal itemID As String) As ItemType

        ' Form the GetItem request

        Dim getRequest As GetItemType = New GetItemType()

        ' Define which item properties are returned in the response

        Dim itemProperties As ItemResponseShapeType = New ItemResponseShapeType()

        itemProperties.BaseShape = DefaultShapeNamesType.AllProperties

        ' Add properties shape to request

        getRequest.ItemShape = itemProperties

        ' Set the itemID of the desired item to retrieve

        Dim id As ItemIdType = New ItemIdType()

        id.Id = itemID

        getRequest.ItemIds = New ItemIdType() {id}

        ' Send the listing (find) request and get the response

        Dim getResp As New GetItemResponseType

        getResp = serviceBinding.GetItem(getRequest)

        ' Get the response message

        If getResp.ResponseMessages.Items(0).ResponseClass = ResponseClassType.Success Then

            Dim iirmt As ItemInfoResponseMessageType = getResp.ResponseMessages.Items(0)

            If iirmt.Items.Items.Length > 0 Then

                Return iirmt.Items.Items(0)

            Else

                Return Nothing

            End If

        Else

            Return Nothing

        End If

    End Function

   1:  Sub CreateTestAppointment()

   2:      Dim myOlApp As Outlook.Application

   3:      Dim myItem As Outlook.AppointmentItem

   4:      Dim myPattern As Outlook.RecurrencePattern

   5:      Set myOlApp = CreateObject("Outlook.Application")

   6:      Set myItem = myOlApp.CreateItem(olAppointmentItem)

   7:      Set myPattern = myItem.GetRecurrencePattern

   8:      myPattern.RecurrenceType = 1

   9:      myPattern.DayOfWeekMask = 62 

  10:      myPattern.StartTime = "12:00 pm" 'Time each appointment begins

  11:      myPattern.EndTime = "1:00 pm" 'Time each appointment ends

  12:      myPattern.PatternStartDate = #7/1/2009# 'Earliest date appt can  Occur

  13:      myPattern.PatternEndDate = #9/2/2009# 'Latest date appt can occur

  14:   

  15:      myItem.Subject = "TestAppointment"

  16:      myItem.Save

  17:      myItem.Display

  18:  End Sub

   1:          try

   2:              {

   3:                  Outlook.Application oApp =(Outlook.Application) new Outlook.Application();

   4:                  Outlook.AppointmentItem newAppointment =(Outlook.AppointmentItem) oApp.CreateItem(Outlook.OlItemType.olAppointmentItem);

   5:                  Outlook.RecurrencePattern oRecurr = newAppointment.GetRecurrencePattern() ;

   6:                  

   7:                  oRecurr.RecurrenceType = Outlook.OlRecurrenceType.olRecursWeekly;

   8:                  oRecurr.DayOfWeekMask = (Outlook.OlDaysOfWeek)62;

   9:                  oRecurr.StartTime = DateTime.Now.AddHours(2);

  10:                  oRecurr.EndTime = DateTime.Now.AddHours(3);

  11:                  oRecurr.PatternStartDate = DateTime.Now.Date;

  12:                  oRecurr.PatternEndDate = DateTime.Now.Date.AddDays(3);

  13:                  

  14:                  newAppointment.Body = "Test Appointment";

  15:                  newAppointment.AllDayEvent = false;

  16:                  newAppointment.Subject = "Test Appointment";

  17:                  newAppointment.Save();

  18:                  newAppointment.Display(true);

  19:              }

  20:              catch (Exception ex)

  21:              {

  22:                  MessageBox.Show("The following error occurred: " + ex.Message);

  23:              }

   1:  using System;

   2:  using System.Windows.Forms;

   3:  using Microsoft.VisualStudio.Tools.Applications.Runtime;

   4:  using Outlook = Microsoft.Office.Interop.Outlook;

   5:  using Office = Microsoft.Office.Core;

   6:   

   7:  namespace OutlookAddin1

   8:  {

   9:      public partial class ThisApplication

  10:      {

  11:          private void ThisApplication_Startup(object sender, System.EventArgs e)

  12:          {

  13:              this.ItemSend +=new Microsoft.Office.Interop.Outlook.ApplicationEvents_11_ItemSendEventHandler(ThisApplication_ItemSend);   

  14:          }

  15:   

  16:          private void ThisApplication_Shutdown(object sender, System.EventArgs e)

  17:          {

  18:          }

  19:          private Office.CommandBarButton EncButton = null;

  20:          private Office.CommandBarButton DigButton = null;

  21:          private void ThisApplication_ItemSend(object Item, ref bool Cancel)

  22:          {

  23:              Outlook.MailItem mItem = null;

  24:    

  25:              try

  26:              {

  27:                  mItem = Item as Outlook.MailItem;

  28:   

  29:                  EncButton = (Office.CommandBarButton) mItem.GetInspector.CommandBars.FindControl(Office.MsoControlType.msoControlButton , 718, Type.Missing, true);

  30:                  if (EncButton.State ==  Office.MsoButtonState.msoButtonDown )

  31:                  {

  32:                      MessageBox.Show ("Mail will be Encrypted");

  33:                  }

  34:   

  35:                  DigButton = (Office.CommandBarButton)mItem.GetInspector.CommandBars.FindControl(Office.MsoControlType.msoControlButton, 719, Type.Missing, true);

  36:                  if (DigButton.State == Office.MsoButtonState.msoButtonDown)

  37:                  {

  38:                      MessageBox.Show ("Mail will be Digitally signed");

  39:                  }

  40:                  

  41:              }

  42:              catch (Exception ex)

  43:              {

  44:                  System.Windows.Forms.MessageBox.Show(ex.Message);

  45:                  Cancel = true;

  46:              }

  47:   

  48:          }

  49:          #region VSTO generated code

  50:   

  51:          /// <summary>

  52:          /// Required method for Designer support - do not modify

  53:          /// the contents of this method with the code editor.

  54:          /// </summary>

  55:          private void InternalStartup()

  56:          {

  57:              this.Startup += new System.EventHandler(ThisApplication_Startup);

  58:              this.Shutdown += new System.EventHandler(ThisApplication_Shutdown);

  59:          }

  60:   

  61:          #endregion

  62:      }

  63:  }

Sub SendMail()

Dim filepath As String

filepath = "\\server\test\Excel 2007 Chart.pdf" 'TODO:change filepath for the temp pdf file

 'Exporting range of the excel contents which need to sent out

    Range("A1:I22").Select

    Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

        filepath, _

        Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas _

        :=False, OpenAfterPublish:=False

 'Setting up CDOSYS configuration to send out the email 

Set iMsg = CreateObject("CDO.Message")

    Set iConf = CreateObject("CDO.Configuration")

    Set Flds = iConf.Fields

    With Flds

        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'send via port

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ServerName" 'TODO:update the SMTP server name here

        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

        .Update

    End With

    With iMsg

        Set .Configuration = iConf

        .From = "xyz@domain.com" 'TODO:change email address here

        .To = "abc@domain.com" 'TODO:change email address here

        .Subject = "Test message with PDF Attachment"

        .HTMLBody = "Please find the attache excel pdf contents report"

        .AddAttachment (filepath)

        .Send

    End With

    Set iMsg = Nothing

    Set iConf = Nothing

End Sub

private void fnGetCalItem()

        {

            // Form the GetItem request

            GetItemType getRequest = new GetItemType();

            // Define which item properties are returned in the response

            ItemResponseShapeType itemProperties = new ItemResponseShapeType();

            itemProperties.BaseShape = DefaultShapeNamesType.AllProperties;

            // Add properties shape to request

            getRequest.ItemShape = itemProperties;

            // Set the itemID of the desired item to retrieve

            ItemIdType id = new ItemIdType();

            id.Id = itemID;

            getRequest.ItemIds = new ItemIdType[] { id };

            PathToExtendedFieldType[] pteft = new PathToExtendedFieldType[1];

            pteft[0] = new PathToExtendedFieldType();

            //Add CleanGlobalObjectID extended property 

            pteft[0].PropertyId = 35;

            pteft[0].PropertyIdSpecified = true;

            pteft[0].PropertySetId  = "6ED8DA90-450B-101B-98DA-00AA003F1305" ; 

            pteft[0].PropertyType = MapiPropertyTypeType.Binary;

            itemProperties.AdditionalProperties = pteft;

            // Send the listing (find) request and get the response

            GetItemResponseType getResp = binding.GetItem(getRequest);

            // Get the response message

            if (getResp.ResponseMessages.Items[0].ResponseClass == ResponseClassType.Success)

            {

                ItemInfoResponseMessageType iirmt = getResp.ResponseMessages.Items[0] as ItemInfoResponseMessageType;

                itemGCOID = iirmt.Items.Items[0].ExtendedProperty[0].Item.ToString() ;

             }

            else

            {

                Console.WriteLine(getResp.ResponseMessages.Items[0]);

            }

        }

    private void SelectRecordByCGOID()

        {

            //prepare the find item request: we have to use FindItem because

            //this is the only way to search by CleanGlobalObjectID; GetItem does not allow us

            //to search with Restrictions

            FindItemType findItemRequest = new FindItemType();

            DistinguishedFolderIdType[] folderIDArray = new DistinguishedFolderIdType[1];

            folderIDArray[0] = new DistinguishedFolderIdType();

            folderIDArray[0].Id = DistinguishedFolderIdNameType.calendar;

            folderIDArray[0].Mailbox = new EmailAddressType();

            folderIDArray[0].Mailbox.EmailAddress = "brijs@msglab.com";

            // Add folders to the request.

            findItemRequest.ParentFolderIds = folderIDArray;

            findItemRequest.Traversal = ItemQueryTraversalType.Shallow;

            //Prepare an Item shape type that defines how the items in view will be returned.

            ItemResponseShapeType itemShapeDefinition = new ItemResponseShapeType();

            itemShapeDefinition.BaseShape = DefaultShapeNamesType.AllProperties  ;

            //filter the results by the CleanGlobalObjectID passed in

            PathToExtendedFieldType path = new PathToExtendedFieldType();

            path.PropertyId = 35;

            path.PropertyIdSpecified = true;

            path.PropertySetId = "6ED8DA90-450B-101B-98DA-00AA003F1305";

            path.PropertyType = MapiPropertyTypeType.Binary;

            FieldURIOrConstantType constant = new FieldURIOrConstantType();

            ConstantValueType constantValue = new ConstantValueType();

            constantValue.Value = itemGCOID ;

            constant.Item = constantValue;

            RestrictionType restriction = new RestrictionType();

            IsEqualToType equal = new IsEqualToType();

            equal.Item = path;

            equal.FieldURIOrConstant = constant;

            restriction.Item = equal;

            //Add the itemShape definition and restriction to the FindItem request

            findItemRequest.ItemShape = itemShapeDefinition;

            findItemRequest.Restriction = restriction;

            FindItemResponseType findItemResponse = binding.FindItem(findItemRequest);

            for (int i = 0; i < findItemResponse.ResponseMessages.Items.Length; i++)

            {

                //verify the FindItem request was successfull

                if (findItemResponse.ResponseMessages.Items[i].ResponseClass != ResponseClassType.Success)

                {

                    throw new Exception(string.Format(

                        "Unable to find calendar view by CleanGlobalObjectID \r\n{0}\r\n{1}",

                        findItemResponse.ResponseMessages.Items[i].ResponseCode,

                        findItemResponse.ResponseMessages.Items[i].MessageText));

                }

                else

                {

                        //Success

                        //get the calendar items contained in the response

                        FindItemResponseMessageType findItemResponseMessage = (FindItemResponseMessageType)findItemResponse.ResponseMessages.Items[i];

                        ArrayOfRealItemsType findItemResponseItems = (ArrayOfRealItemsType)findItemResponseMessage.RootFolder.Item;

                        for (int x = 0; x < findItemResponseMessage.RootFolder.TotalItemsInView; x++)

                        {

                            if (findItemResponseItems.Items[x] is CalendarItemType)

                            {

                                CalendarItemType calendar = (CalendarItemType)findItemResponseItems.Items[x];

                                Console.WriteLine( "Item found ");

                                Console.WriteLine( calendar.Subject);

                            }

                        }

                 }

            }

        }

Private Sub cmdMove_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdMove.Click

        Try

            If lstMails.SelectedItems.Count = 1 Then

                Dim itemID As New ItemIdType

                itemID.Id = lstMails.SelectedItems(0).SubItems(3).Text

                'Find the folderId to which we want to move item

                Dim parentFolder As New DistinguishedFolderIdType

                parentFolder.Id = DistinguishedFolderIdNameType.root

                Dim tfTargetFolder As New FolderIdType

                'Change the name of the folder we are searching for FolderID

                tfTargetFolder = FindFolder(ServiceBinding, parentFolder, "Test")

                Dim newItemID As New ItemIdType

                'Move am Item based on ItemId and FolderID

                newItemID = MoveItemtoTest(ServiceBinding, itemID.Id, tfTargetFolder)

                Dim strId As String

                strId = "New ItemID " + newItemID.Id.ToString

                MessageBox.Show(strId, "Item Moved", MessageBoxButtons.OK, MessageBoxIcon.Information)

            Else

                MessageBox.Show("Please select a item in list to move", "Item to Move", MessageBoxButtons.OK, MessageBoxIcon.Information)

            End If

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

Public Shared Function FindFolder(ByVal serviceBinding As ExchangeServiceBinding, ByVal fiFolderID As DistinguishedFolderIdType, ByVal fnFldName As String) As FolderIdType

        Dim rvFolderID As New FolderIdType

        ' Create the request and specify the travesal type

        Dim findFolderRequest As FindFolderType = New FindFolderType()

        findFolderRequest.Traversal = FolderQueryTraversalType.Deep

        ' Define the properties returned in the response

        Dim responseShape As FolderResponseShapeType = New FolderResponseShapeType()

        responseShape.BaseShape = DefaultShapeNamesType.Default

        findFolderRequest.FolderShape = responseShape

        ' Identify which folders to search

        Dim folderIDArray() As DistinguishedFolderIdType = New DistinguishedFolderIdType(1) {}

        folderIDArray(0) = New DistinguishedFolderIdType()

        folderIDArray(0).Id = fiFolderID.Id

        'Add Restriction for DisplayName

        Dim ffRestriction As New RestrictionType

        Dim ieToType As New IsEqualToType

        Dim diDisplayName As New PathToUnindexedFieldType

        diDisplayName.FieldURI = UnindexedFieldURIType.folderDisplayName

        Dim ciConstantType As New FieldURIOrConstantType

        Dim cvConstantValueType As New ConstantValueType

        cvConstantValueType.Value = fnFldName

        ciConstantType.Item = cvConstantValueType

        ieToType.Item = diDisplayName

        ieToType.FieldURIOrConstant = ciConstantType

        ffRestriction.Item = ieToType

        findFolderRequest.Restriction = ffRestriction

        ' Add the folders to search to the request

        findFolderRequest.ParentFolderIds = folderIDArray

        Try

            ' Send the request and get the response

            Dim findFolderResponse As FindFolderResponseType = serviceBinding.FindFolder(findFolderRequest)

            ' Get the response messages

            If findFolderResponse.ResponseMessages.Items(0).ResponseClass = ResponseClassType.Error Then

                MessageBox.Show("Error Occured")

                MessageBox.Show(findFolderResponse.ResponseMessages.Items(0).MessageText)

                Return Nothing

            Else

                Dim rmta() As ResponseMessageType = findFolderResponse.ResponseMessages.Items

                Dim rmt As ResponseMessageType

                For Each rmt In rmta

                    ' Cast to the correct response message type

                    Dim ffResponse As FindFolderResponseMessageType = rmt

                    Dim fFoundFolder As FolderType

                    For Each fFoundFolder In ffResponse.RootFolder.Folders

                        rvFolderID = fFoundFolder.FolderId

                        'MessageBox.Show(fFoundFolder.DisplayName)

                    Next

                Next

                'Return the FolderID of the last folder found

                Return (rvFolderID)

            End If

        Catch e As Exception

            MessageBox.Show(e.Message)

            Return Nothing

        End Try

    End Function

Public Shared Function MoveItemtoTest(ByVal serviceBinding As ExchangeServiceBinding, ByVal itemID As String, ByVal trgfldID As FolderIdType) As ItemIdType

        'Setup FolderId and ItemId to be passed to MoveItem

        Dim tfTargetFolder As TargetFolderIdType = New TargetFolderIdType()

        tfTargetFolder.Item = trgfldID

        Dim iiItemId As ItemIdType = New ItemIdType()

        iiItemId.Id = itemID

        'Create request to move Item and specify properties

        Dim miMoveItemRequest As MoveItemType = New MoveItemType()

        miMoveItemRequest.ItemIds = New ItemIdType(1) {}

        miMoveItemRequest.ItemIds(0) = iiItemId

        miMoveItemRequest.ToFolderId = tfTargetFolder

        Dim nID As New ItemIdType

        Try

            ' Send the request and get the response

            Dim miResponse As MoveItemResponseType = serviceBinding.MoveItem(miMoveItemRequest)

            If miResponse.ResponseMessages.Items(0).ResponseClass = ResponseClassType.Error Then

                MessageBox.Show("Error Occured")

                MessageBox.Show(miResponse.ResponseMessages.Items(0).MessageText)

                Return Nothing

            Else

                Dim iirmt As ItemInfoResponseMessageType = miResponse.ResponseMessages.Items(0)

                If iirmt.Items.Items.Length > 0 Then

                    'Get updated ItemId from the Response Message

                    nID = iirmt.Items.Items(0).ItemId

                    MessageBox.Show("Item Moved")

                    'Return updated ItemID

                    Return nID

                Else

                    Return Nothing

                End If

            End If

        Catch e As Exception

            MessageBox.Show(e.Message)

            Return Nothing

        End Try

    End Function

Dim objSession 

Dim strProfileInfo 

Dim strServer 

Dim strMailbox 

Dim objFolder

Dim objMessages

Dim objMessage

Dim oFields

Dim oField1

Dim oField2

Dim oFBFolder

'TODO:Change Server and Mailbox info

strServer="Server"

strMailbox="User"

strProfileInfo = strServer & vbLf & strMailbox

Set objSession = CreateObject("MAPI.Session")

objSession.Logon , , False, False, , True, strProfileInfo

writelog( "Mailbox")

    writelog( "  ==> ")

    writelog( objSession.CurrentUser)

    writelog( vbCrLf)

Msgbox "Logged On!!!"

' Reference the root folder by passing ID of ""

Set oRoot = objSession.GetFolder("")

'Connect to the Freebusy folder

Set oFBFolder = oRoot.Folders.Item("Freebusy Data")

    Set objMessages = oFBFolder.Messages

    For Each objMessage In objMessages

        If objMessage.subject = "LocalFreebusy" Then

            'Get the message fields

            Set oFields = objMessage.Fields

            On Error Resume Next

    For i = 0 to UBound(oFields.Item(&H6844101E).Value(0))

                Set oField1 = oFields.Item(&H6844101E)  ' PR_SCHDINFO_DELEGATE_NAMES

                       writelog "DELEGATE NAMES  ==> " & oField1.Value(0)(i)

                    writelog( vbCrLf)

                          Set oField2 = oFields.Item(&H686B1003) ' PR_DELEGATE_FLAGS

              writelog "Delegate can see private  ==> " & oField2.Value(0)(i)

                          writelog( vbCrLf)

       Next

    End iF

Next

objSession.Logoff

Set objSession =Nothing

Set oField1 = Nothing

Set oField2 = Nothing

Set oFBFolder = Nothing

Set oRoot = Nothing

Msgbox "Done!!!"

Sub WriteLog(ByVal strMessage)

    Dim fs

    Set fs = CreateObject("Scripting.FileSystemObject")

    Dim file

    Dim sScriptPath

    sScriptPath = Left(WScript.ScriptFullName, InstrRev(WScript.ScriptFullName, "\"))

    Set file = fs.opentextfile(sScriptPath & "DelegateListLog.txt", 8, True)

    file.Write strMessage

    file.Close

End Sub

'Sample script to remove Personal Folders files (.pst) from the current MAPI profile or session

RemoveAllPST

Sub RemoveAllPST()

Dim objOL 'As New Outlook.Application

Dim objFolders 'As Outlook.MAPIFolders

Dim objFolder 'As Outlook.MAPIFolder

Dim i 'As Interger

Dim strPrompt 'As String

Set objOL = CreateObject("Outlook.Application")

Set objFolders = objOL.Session.Folders

For i = objFolders.Count To 1 Step -1

On Error Resume Next

    Set objFolder = objFolders.Item(i)

    'Prompt the user for confirmation

    If (InStr(1, objFolder.Name, "Mailbox") = 0) And (InStr(1, objFolder.Name, "Public Folders") = 0) Then

    strPrompt = ""

    strPrompt = "Are you sure you want to remove " & objFolder.Name

    If MsgBox(strPrompt, vbYesNo + vbQuestion) = vbYes Then

        objOL.Session.RemoveStore objFolder

    End If

    End If

Next

End Sub

   1:  using System;

   2:  using System.Collections.Generic;

   3:  using System.Linq;

   4:  using System.Text;

   5:  using SendMailWithDeferredDelivery.msgex07;

   6:  using System.Net;

   7:  using System.Net.Security;

   8:  using System.Security.Cryptography.X509Certificates;

   9:   

  10:  namespace SendMailWithDeferredDelivery

  11:  {

  12:      class Program

  13:      {

  14:          static void Main(string[] args)

  15:          {

  16:              //Please change the server, domain, username, password 

  17:              ExchangeServiceBinding esb = new ExchangeServiceBinding();

  18:              esb.Credentials = new NetworkCredential("user", "pass!", "domain");

  19:              esb.Url = @"https://<FQDN Server>/EWS/Exchange.asmx";

  20:              

  21:   

  22:              System.Net.ServicePointManager.ServerCertificateValidationCallback = delegate(Object obj, X509Certificate certificate, X509Chain chain, SslPolicyErrors errors)

  23:              {

  24:                  // Replace this line with code to validate server certificate.

  25:                  return true;

  26:              };

  27:   

  28:   

  29:              esb.RequestServerVersionValue = new RequestServerVersion();

  30:              esb.RequestServerVersionValue.Version = ExchangeVersionType.Exchange2007_SP1;

  31:   

  32:              // Create a new message.

  33:              MessageType message = new MessageType();

  34:   

  35:              // Define the e-mail address of the recipient of the message.

  36:              EmailAddressType singleRecip = new EmailAddressType();

  37:              singleRecip.EmailAddress = "user@msglab.com";

  38:   

  39:              message.ToRecipients = new EmailAddressType[2];

  40:              message.ToRecipients[0] = singleRecip;

  41:   

  42:              // Set the subject and sensitivity properties.

  43:              message.Subject = "Siberian Tigers";

  44:              message.Sensitivity = SensitivityChoicesType.Personal;

  45:   

  46:              message.ExtendedProperty = new ExtendedPropertyType[2];

  47:   

  48:              message.ExtendedProperty[0] = new ExtendedPropertyType();

  49:   

  50:              message.ExtendedProperty[0].ExtendedFieldURI = new PathToExtendedFieldType();

  51:   

  52:              //NOTE: This PropertyID is equal to PropertyTag "0x3FEF" but you have to use PropertyID and not PropertyTag 

  53:              //otherwise it will NOT work as expected and this will not be visible via OOM or WebDAV, 

  54:              //you have to specify it as Integer value in PropertyTag field 

  55:              //PR_DEFERRED_SEND_TIME

  56:              message.ExtendedProperty[0].ExtendedFieldURI.PropertyTag = "16367";

  57:              

  58:              message.ExtendedProperty[0].ExtendedFieldURI.PropertyType = MapiPropertyTypeType.SystemTime;

  59:   

  60:              //Sending mail in another 5 Mins

  61:              DateTime deliverydatetime;

  62:              System.DateTime today = System.DateTime.Now;

  63:              System.TimeSpan duration = new System.TimeSpan(0,5, 0);

  64:              deliverydatetime = today.Add(duration);

  65:   

  66:              message.ExtendedProperty[0].Item = deliverydatetime.ToUniversalTime().ToString();

  67:   

  68:              //NOTE: This PropertyID is equal to PropertyTag "0x000F" but you have to use PropertyID and not PropertyTag 

  69:              //otherwise it will NOT work as expected and this will not be visible via OOM or WebDAV, 

  70:              //you have to specify it as Integer value in PropertyTag field 

  71:              //PR_DEFERRED_DELIVERY_TIME

  72:           

  73:              message.ExtendedProperty[1] = new ExtendedPropertyType();

  74:   

  75:              message.ExtendedProperty[1].ExtendedFieldURI = new PathToExtendedFieldType();

  76:   

  77:              message.ExtendedProperty[1].ExtendedFieldURI.PropertyTag = "15";

  78:             

  79:              //message.ExtendedProperty[1].ExtendedFieldURI.PropertyTag= "0x000F";

  80:   

  81:              message.ExtendedProperty[1].ExtendedFieldURI.PropertyType = MapiPropertyTypeType.SystemTime;

  82:   

  83:              message.ExtendedProperty[1].Item = deliverydatetime.ToUniversalTime().ToString();

  84:   

  85:               

  86:              // Set the body property.

  87:              message.Body = new BodyType();

  88:              message.Body.BodyType1 = BodyTypeType.HTML;

  89:              message.Body.Value =  "Did you know there are estimated to be only about 400 " +

  90:                                      "of these magnificent creatures left in the wild?";

  91:   

  92:              // Create a CreateItem request.

  93:              CreateItemType createItem = new CreateItemType();

  94:   

  95:              // Specify that the CreateItem operation should directly send the message

  96:              // and save a copy in the Sent Items folder.

  97:              createItem.MessageDisposition = MessageDispositionType.SendAndSaveCopy;

  98:              createItem.MessageDispositionSpecified = true;

  99:   

 100:              DistinguishedFolderIdType folder = new DistinguishedFolderIdType();

 101:              folder.Id = DistinguishedFolderIdNameType.outbox;

 102:   

 103:              TargetFolderIdType targetFolder = new TargetFolderIdType();

 104:              targetFolder.Item = folder;

 105:              createItem.SavedItemFolderId = targetFolder;

 106:   

 107:              createItem.Items = new NonEmptyArrayOfAllItemsType();

 108:              createItem.Items.Items = new ItemType[1] { message };

 109:   

 110:              // Call the CreateItem method and get its response. 

 111:              CreateItemResponseType response = esb.CreateItem(createItem);

 112:   

 113:              // Get the items returned by CreateItem.

 114:              ResponseMessageType[] itemsResp = response.ResponseMessages.Items;

 115:              

 116:          }

 117:      }

 118:  }

EWS Rocks!!!