Accept meeting request and send meeting response

Here is an example how to search Inbox folder and accept incoming meeting requests and send meeting response.

C# example

using System;
using System.Net;
using System.Web;
using Independentsoft.Webdav.Exchange;
using Independentsoft.Webdav.Exchange.ContentClass;
using Independentsoft.Webdav.Exchange.Properties;
using Independentsoft.Webdav.Exchange.Sql;

namespace Sample
{
    class Program
    {
        [STAThread]
        static void Main(string[] args)
        {
            NetworkCredential credential = new NetworkCredential("username", "password");
            WebdavSession session = new WebdavSession(credential);
            session.UserMailbox = "https://myserver/exchange/emailaddress";

            Resource resource = new Resource(session);
            Mailbox myMailbox = resource.Mailbox;

            PropertyName[] propertyName = new PropertyName[1];
            propertyName[0] = AppointmentProperty.ContentClass;

            Select select = new Select(propertyName);
            From from = new From(myMailbox.Inbox);
            Where where = new Where();

            Condition condition1 = new Condition(DavProperty.ContentClass, Operator.Equals, ContentClassType.CalendarMessage);
            where.Add(condition1);

            SqlQuery sqlQuery = new SqlQuery(select, from, where);
            MultiStatus multiStatus = resource.Search(sqlQuery);

            SearchResult searchResult = new SearchResult(multiStatus, propertyName);
            SearchResultRecord[] allRecords = searchResult.Record;

            for (int i = 0; i < allRecords.Length; i++)
            {
                //meeting request URL
                string meetingRequestUrl = allRecords[i].Address;
                Console.WriteLine("Meeting Request URL=" + meetingRequestUrl);

                //Accept meeting
                Appointment appointment = resource.GetAppointment(meetingRequestUrl);

                appointment.ContentClass = ContentClassType.Appointment;
                appointment.MessageClass = "IPM.Appointment";
                appointment.MeetingStatus = MeetingStatus.Confirmed;
                appointment.ResponseStatus = ResponseStatus.Accepted;

                resource.SaveItem(appointment);

                //Move to Calendar folder
                string appointmentUrl = myMailbox.Calendar + "/" + appointment.Subject + ".eml";
                resource.Move(meetingRequestUrl, appointmentUrl, false, true);

                //Send meeting response
                CalendarMessage responseMessage = new CalendarMessage();
                responseMessage.Subject = "Accepted: " + appointment.Subject;
                responseMessage.MessageClass = "IPM.Schedule.Meeting.Resp.Pos";
                responseMessage.StartDate = appointment.StartDate;
                responseMessage.EndDate = appointment.EndDate;
                responseMessage.Location = appointment.Location;
                responseMessage.CalendarUID = appointment.CalendarUID;
                responseMessage.To = HttpUtility.HtmlDecode(appointment.Organizer);

                resource.SendMessage(responseMessage);
            }
        }
    }
}

VB example

Imports System
Imports System.Net
Imports System.Web
Imports Independentsoft.Webdav.Exchange
Imports Independentsoft.Webdav.Exchange.ContentClass
Imports Independentsoft.Webdav.Exchange.Properties
Imports Independentsoft.Webdav.Exchange.Sql

Module Module1
    Sub Main(ByVal args() As String)

        Dim credential As NetworkCredential = New NetworkCredential("username", "password")
        Dim session As WebdavSession = New WebdavSession(credential)
        session.UserMailbox = "https://myserver/exchange/emailaddress"

        Dim resource As Resource = New Resource(session)
        Dim myMailbox As Mailbox = resource.Mailbox

        Dim propertyName() As PropertyName = New PropertyName(0) {}
        propertyName(0) = AppointmentProperty.ContentClass

        Dim selectStatement As Independentsoft.Webdav.Exchange.Sql.Select = New Independentsoft.Webdav.Exchange.Sql.Select(propertyName)
        Dim from As From = New From(myMailbox.Inbox)
        Dim where As Where = New Where

        Dim condition1 As Condition = New Condition(DavProperty.ContentClass, [Operator].Equals, ContentClassType.CalendarMessage)
        where.Add(condition1)

        Dim sqlQuery As SqlQuery = New SqlQuery(selectStatement, from, where)
        Dim multiStatus As MultiStatus = resource.Search(sqlQuery)

        Dim searchResult As SearchResult = New SearchResult(multiStatus, propertyName)
        Dim allRecords() As SearchResultRecord = searchResult.Record

        Dim i As Integer
        For i = 0 To allRecords.Length - 1
            'meeting request URL
            Dim meetingRequestUrl As String = allRecords(i).Address
            Console.WriteLine("Meeting Request URL=" + meetingRequestUrl)

            'Accept meeting
            Dim appointment As Appointment = resource.GetAppointment(meetingRequestUrl)

            appointment.ContentClass = ContentClassType.Appointment
            appointment.MessageClass = "IPM.Appointment"
            appointment.MeetingStatus = MeetingStatus.Confirmed
            appointment.ResponseStatus = ResponseStatus.Accepted

            resource.SaveItem(appointment)

            'Move to Calendar folder
            Dim appointmentUrl As String = myMailbox.Calendar & "/" & appointment.Subject + ".eml"
            resource.Move(meetingRequestUrl, appointmentUrl, False, True)

            'Send meeting response
            Dim responseMessage As CalendarMessage = New CalendarMessage()
            responseMessage.Subject = "Accepted: " + appointment.Subject
            responseMessage.MessageClass = "IPM.Schedule.Meeting.Resp.Pos"
            responseMessage.StartDate = appointment.StartDate
            responseMessage.EndDate = appointment.EndDate
            responseMessage.Location = appointment.Location
            responseMessage.CalendarUID = appointment.CalendarUID
            responseMessage.To = HttpUtility.HtmlDecode(appointment.Organizer)

            resource.SendMessage(responseMessage)

        Next
    End Sub
End Module

Independentsoft - any library, any programming language

WebDAV .NET for Exchange > Tutorial > Accept meeting request and send meeting response