How to: Create a Custom Calendar
This example creates a new Calendar folder named PersonalCalendar, and then creates a new Appointment item and adds it to the Calendar folder. The code then displays the Calendar folder.
Applies to: The information in this topic applies to application-level projects for Outlook 2007 and Outlook 2010. For more information, see Features Available by Office Application and Project Type.
Example
Private Sub CreateCustomCalendar()
Const newCalendarName As String = "PersonalCalendar"
Dim primaryCalendar As Outlook.MAPIFolder = _
Me.Application.ActiveExplorer().Session.GetDefaultFolder(Outlook _
.OlDefaultFolders.olFolderCalendar)
Dim needFolder As Boolean = True
For Each personalCalendar As Outlook.MAPIFolder In _
primaryCalendar.Folders()
If personalCalendar.Name = newCalendarName Then
needFolder = False
End If
Next
If needFolder Then
Dim personalCalendar As Outlook.MAPIFolder = _
primaryCalendar.Folders.Add(newCalendarName)
Dim newEvent As Outlook.AppointmentItem = _
personalCalendar.Items.Add _
(Outlook.OlItemType.olAppointmentItem)
With newEvent
.Start = Date.Now.AddHours(1)
.End = Date.Now.AddHours(1.25)
.Subject = "New plan"
.Body = "Meet to discuss new plan."
.Save()
End With
End If
Me.Application.ActiveExplorer().SelectFolder(primaryCalendar _
.Folders(newCalendarName))
Me.Application.ActiveExplorer().CurrentFolder.Display()
End Sub
private void CreateCustomCalendar()
{
const string newCalendarName = "PersonalCalendar";
Outlook.MAPIFolder primaryCalendar = (Outlook.MAPIFolder)
this.Application.ActiveExplorer().Session.GetDefaultFolder
(Outlook.OlDefaultFolders.olFolderCalendar);
bool needFolder = true;
foreach (Outlook.MAPIFolder personalCalendar
in primaryCalendar.Folders)
{
if (personalCalendar.Name == newCalendarName)
{
needFolder = false;
break;
}
}
if (needFolder)
{
Outlook.MAPIFolder personalCalendar = primaryCalendar
.Folders.Add(newCalendarName,
Outlook.OlDefaultFolders.olFolderCalendar);
Outlook.AppointmentItem newEvent =
personalCalendar.Items.Add
(Outlook.OlItemType.olAppointmentItem)
as Outlook.AppointmentItem;
newEvent.Start = DateTime.Now.AddHours(1);
newEvent.End = DateTime.Now.AddHours(1.25);
newEvent.Subject = "New plan";
newEvent.Body = " Meet to discuss new plan.";
newEvent.Save();
}
Application.ActiveExplorer().SelectFolder(primaryCalendar
.Folders[newCalendarName]);
Application.ActiveExplorer().CurrentFolder.Display();
}
See Also
Tasks
How to: Create a Meeting Request