AppointmentItem.End Property (Outlook)

Office 2013 and later

Contribute to this content

Use GitHub to suggest and submit changes. See our guidelines for contributing to VBA documentation.

Returns or sets a Date indicating the end date and time of an AppointmentItem. Read/write.

expression .End

expression A variable that represents an AppointmentItem object.

This Visual Basic for Applications (VBA) example uses CreateItem to create an AppointmentItem object. The RecurrencePattern is obtained for this item using the AppointmentItem.GetRecurrencePattern method. By setting the RecurrencePattern properties, RecurrenceType, PatternStartDate, and PatternEndDate, the appointments are now a recurring series that occur on a daily basis for the period of one year.

An Exception object is created when one instance of this recurring appointment is obtained using the GetOccurrence method and properties for this instance are altered. This exception to the series of appointments is obtained using the GetRecurrencePattern method to access the Exceptions collection associated with this series. Message boxes display the original AppointmentItem.Subject and Exception.OriginalDate for this exception to the series of appointments and the current date, time, and subject for this exception.

Public Sub cmdExample() 
 Dim myApptItem As Outlook.AppointmentItem 
 Dim myRecurrPatt As Outlook.RecurrencePattern 
 Dim myNamespace As Outlook.NameSpace 
 Dim myFolder As Outlook.Folder 
 Dim myItems As Outlook.Items 
 Dim myDate As Date 
 Dim myOddApptItem As Outlook.AppointmentItem 
 Dim saveSubject As String 
 Dim newDate As Date 
 Dim myException As Outlook.Exception 
 Set myApptItem = Application.CreateItem(olAppointmentItem) 
 myApptItem.Start = #2/2/2003 3:00:00 PM# 
 myApptItem.End = #2/2/2003 4:00:00 PM# 
 myApptItem.Subject = "Meet with Boss" 
 'Get the recurrence pattern for this appointment 
 'and set it so that this is a daily appointment 
 'that begins on 2/2/03 and ends on 2/2/04 
 'and save it. 
 Set myRecurrPatt = myApptItem.GetRecurrencePattern 
 myRecurrPatt.RecurrenceType = olRecursDaily 
 myRecurrPatt.PatternStartDate = #2/2/2003# 
 myRecurrPatt.PatternEndDate = #2/2/2004# 
 'Access the items in the Calendar folder to locate 
 'the master AppointmentItem for the new series. 
 Set myNamespace = Application.GetNamespace("MAPI") 
 Set myFolder = myNamespace.GetDefaultFolder(olFolderCalendar) 
 Set myItems = myFolder.Items 
 Set myApptItem = myItems("Meet with Boss") 
 'Get the recurrence pattern for this appointment 
 'and obtain the occurrence for 3/12/03. 
 myDate = #3/12/2003 3:00:00 PM# 
 Set myRecurrPatt = myApptItem.GetRecurrencePattern 
 Set myOddApptItem = myRecurrPatt.GetOccurrence(myDate) 
 'Save the existing subject. Change the subject and 
 'starting time for this particular appointment 
 'and save it. 
 saveSubject = myOddApptItem.Subject 
 myOddApptItem.Subject = "Meet NEW Boss" 
 newDate = #3/12/2003 3:30:00 PM# 
 myOddApptItem.Start = newDate 
 'Get the recurrence pattern for the master 
 'AppointmentItem. Access the collection of 
 'exceptions to the regular appointments. 
 Set myRecurrPatt = myApptItem.GetRecurrencePattern 
 Set myException = myRecurrPatt.Exceptions.item(1) 
 'Display the original date, time, and subject 
 'for this exception. 
 MsgBox myException.OriginalDate & ": " & saveSubject 
 'Display the current date, time, and subject 
 'for this exception. 
 MsgBox myException.AppointmentItem.Start & ": " & _ 
End Sub