Create recurring appointment - relative yearly recurrence

The following example shows you how to create recurring appointment. Appointment occurs on the first monday in september and has no end date. When creating recurring appointment important is to set the MeetingTimeZone property.

C# example

using System;
using System.Net;
using System.Collections.Generic;
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);

            service.RequestServerVersion = RequestServerVersion.Exchange2010SP1;

            try
            {
                TimeZoneDefinition timeZone = GetTimeZone(service, "Berlin"); //find time zone based on name
                //TimeZoneDefinition timeZone = GetTimeZone(service, "UTC-08:00"); //find time zone based on offset

                //Yearly recurrence. The first monday of september.  
                IList<Independentsoft.Exchange.DayOfWeek> days = new List<Independentsoft.Exchange.DayOfWeek>();
                days.Add(Independentsoft.Exchange.DayOfWeek.Monday);

                Recurrence recurrence = new Recurrence();
                recurrence.Pattern = new RelativeYearlyRecurrencePattern(Month.September, days, DayOfWeekIndex.First);
                recurrence.Range = new NoEndRecurrenceRange(DateTime.Today);

                Appointment appointment = new Appointment();
                appointment.Subject = "The first monday of september";
                appointment.Body = new Body("Body text");
                appointment.StartTime = DateTime.Today.AddHours(15);
                appointment.EndTime = DateTime.Today.AddHours(16);
                appointment.Recurrence = recurrence;
                appointment.StartTimeZone = timeZone;
                appointment.EndTimeZone = timeZone;

                ItemId itemId = service.CreateItem(appointment);
            }
            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();
            }
        }

        private static TimeZoneDefinition GetTimeZone(Service service, string name)
        {
            GetServerTimeZonesResponse response = service.GetServerTimeZones();

            foreach (TimeZoneDefinition timeZone in response.TimeZoneDefinitions)
            {
                if (timeZone.Name.IndexOf(name) > 0)
                {
                    return timeZone;
                }
            }

            return null;
        }
    }
}

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)

            service.RequestServerVersion = RequestServerVersion.Exchange2010SP1

            Try

                Dim timeZone As TimeZoneDefinition = GetTimeZone(service, "Berlin") ''find time zone based on name
                ''Dim timeZone As TimeZoneDefinition = GetTimeZone(service, "UTC-08:00") ''find time zone based on offset

                'Yearly recurrence. The first monday of september. 
                Dim days As New List(Of Independentsoft.Exchange.DayOfWeek)()
                days.Add(Independentsoft.Exchange.DayOfWeek.Monday)

                Dim recurrence As New Recurrence()
                recurrence.Pattern = New RelativeYearlyRecurrencePattern(Month.September, days, DayOfWeekIndex.First)
                recurrence.Range = New NoEndRecurrenceRange(DateTime.Today)

                Dim appointment As New Appointment()
                appointment.Subject = "The first monday of september"
                appointment.Body = New Body("Body text")
                appointment.StartTime = DateTime.Today.AddHours(15)
                appointment.EndTime = DateTime.Today.AddHours(16)
                appointment.Recurrence = recurrence
                appointment.StartTimeZone = timeZone
                appointment.EndTimeZone = timeZone

                Dim itemId As ItemId = service.CreateItem(appointment)

            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

        Private Shared Function GetTimeZone(ByVal service As Service, ByVal name As String) As TimeZoneDefinition

            Dim Response As GetServerTimeZonesResponse = service.GetServerTimeZones()

            For Each timeZone As TimeZoneDefinition In Response.TimeZoneDefinitions

                If timeZone.Name.IndexOf(name) > 0 Then
                    Return timeZone
                End If
            Next

            Return Nothing

        End Function
    End Class
End Namespace

Independentsoft - any library, any programming language

Exchange Web Services .NET > Tutorial > Create recurring appointment - relative yearly recurrence

Need help? Ask our developers: