Delete calendar

The following example shows you how to delete a calendar.

C# example

using System;
using System.Collections.Generic;
using System.Threading.Tasks;
using Independentsoft.Graph;
using Independentsoft.Graph.Users;
using Independentsoft.Graph.Calendars;

namespace Sample
{
    class Program
    {
        static async Task Main(string[] args)
        {
            try
            {
                GraphClient client = new GraphClient();

                client.ClientId = "63333333-209e-454e-b7bd-55a4d201270f";
                client.Tenant = "independentsoft.onmicrosoft.com";
                client.ClientSecret = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx";

                IList<Calendar> calendars = await client.GetCalendars(new UserId("info@independentsoft.onmicrosoft.com"));

                for (int i = 0; i < calendars.Count; i++)
                {
                    if (calendars[i].Name == "Work")
                    {
                        await client.DeleteCalendar(calendars[i].Id, new UserId("info@independentsoft.onmicrosoft.com"));
                        Console.WriteLine("Calendar deleted.");
                    }
                }

                Console.Read();
            }
            catch (GraphException ex)
            {
                Console.WriteLine("Error: " + ex.Code);
                Console.WriteLine("Message: " + ex.Message);
                Console.Read();
            }
        }
    }
}

VB example

Imports System.Collections.Generic
Imports Independentsoft.Graph
Imports Independentsoft.Graph.Users
Imports Independentsoft.Graph.Calendars

Namespace Sample
    Class Module1
        Shared Sub Main(ByVal args As String())

            Dim task = New Task(AddressOf Run)

            task.Start()
            Console.Read()

        End Sub

        Shared Async Sub Run()
            Try

                Dim client As GraphClient = New GraphClient()

                client.ClientId = "63333333-209e-454e-b7bd-55a4d201270f"
                client.Tenant = "independentsoft.onmicrosoft.com"
                client.ClientSecret = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"

                Dim calendars As IList(Of Calendar) = Await client.GetCalendars(New UserId("info@independentsoft.onmicrosoft.com"))

                For i As Integer = 0 To calendars.Count - 1
                    If calendars(i).Name = "Work" Then
                        Await client.DeleteCalendar(calendars(i).Id, New UserId("info@independentsoft.onmicrosoft.com"))
                        Console.WriteLine("Calendar deleted.")
                    End If
                Next

            Catch ex As GraphException
                Console.WriteLine("Error: " + ex.Code)
                Console.WriteLine("Error: " + ex.Message)
                Console.Read()
            End Try
        End Sub

    End Class
End Namespace

Graph .NET > Tutorial > Delete calendar

Need help? Ask our developers: