Свойство AppointmentItem.End (Outlook)
Возвращает или задает значение Date , указывающее дату и время окончания объекта AppointmentItem. Для чтения и записи.
Синтаксис
expression. Конец
Выражение Переменная, представляющая объект AppointmentItem .
Пример
В этом примере Visual Basic для приложений (VBA) для создания объекта AppointmentItem используется CreateItem. Объект RecurrencePattern получается для этого элемента с помощью метода AppointmentItem.GetRecurrencePattern. Задавая свойства RecurrencePattern , RecurrenceType, PatternStartDate и PatternEndDate, встречи теперь являются повторяющимися рядами, которые выполняются ежедневно в течение одного года.
Объект Exception создается при получении одного экземпляра этой повторяющейся встречи с помощью метода GetOccurrence , а свойства этого экземпляра изменяются. Это исключение из ряда встреч получается с помощью метода GetRecurrencePattern для доступа к коллекции Exceptions, связанной с этим рядом. В полях сообщений отображаются исходные значения AppointmentItem.Subject и Exception.OriginalDate для этого исключения, а также последовательность встреч, а также текущая дата, время и тема для этого исключения.
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#
myApptItem.Save
'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
myOddApptItem.Save
'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 & ": " & _
myException.AppointmentItem.Subject
End Sub
См. также
Практическое руководство. Импорт XML-данных встречи в объекты встречи Outlook
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.