Create appointment

The following example shows you how to create an appointment. Appointment will be created in Calendar folder inside user's mailbox.

C# example

using System;
using System.Net;
using Independentsoft.Webdav.Exchange;
using Independentsoft.Webdav.Exchange.ContentClass;

namespace Sample
{
    class Program
    {
        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);

            Appointment appointment1 = new Appointment();
            appointment1.Subject = "appointment1";
            appointment1.Body = "Here is a body text.";
            appointment1.StartDate = DateTime.Now;
            appointment1.EndDate = DateTime.Now.AddHours(2);
            appointment1.IsRecurring = false;

            MultiStatus multiStatus = resource.CreateItem(appointment1);
            string appointmentUrl = multiStatus.Response[0].HRef;

            Console.WriteLine("Url of just created appointment = " + appointmentUrl);
            Console.WriteLine("Press ENTER to exit");
            Console.Read();
        }
    }
}

VB example

Imports System
Imports System.Net
Imports Independentsoft.Webdav.Exchange
Imports Independentsoft.Webdav.Exchange.ContentClass

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 appointment1 As Appointment = New Appointment
        appointment1.Subject = "appointment1"
        appointment1.Body = "Here is a body text."
        appointment1.StartDate = DateTime.Now
        appointment1.EndDate = DateTime.Now.AddHours(2)
        appointment1.IsRecurring = False

        Dim multiStatus As MultiStatus = resource.CreateItem(appointment1)
        Dim appointmentUrl As String = multiStatus.Response(0).HRef

        Console.WriteLine("Url of just created appointment = " & appointmentUrl)
        Console.WriteLine("Press ENTER to exit")
        Console.Read()

    End Sub
End Module

Independentsoft - any library, any programming language

WebDAV .NET for Exchange > Tutorial > Create appointment