AppointmentItem.End property (Outlook)

Zurück oder legt Datum, der das Enddatum und die Uhrzeit eines AppointmentItem-Objekts. Lese-/Schreibzugriff.

Syntax

Ausdruck. Ende

Ausdruck Eine Variable, die ein AppointmentItem-Objekt darstellt.

Beispiel

Visual Basic für Applikationen (VBA) wird verwendet CreateItem, um ein AppointmentItem -Objekt zu erstellen. Für dieses Element wird über die AppointmentItem.GetRecurrencePattern -Methode wird das RecurrencePattern abgerufen. RecurrencePattern -Eigenschaften, RecurrenceType, PatternStartDate und PatternEndDate festlegen, werden die Termine in einer Terminserie, die täglich für den Zeitraum von einem Jahr auftreten.

Ein Exception -Objekt wird erstellt, wenn eine Instanz dieser Terminserie mithilfe der GetOccurrence -Methode abgerufen wird und die Eigenschaften für diese Instanz geändert. Diese Ausnahme in der Terminserie wird abgerufen, verwenden die GetRecurrencePattern -Methode, um auf die Exceptions -Auflistung, die dieser Serie zugeordnet zuzugreifen. Meldungsfelder zeigen das ursprüngliche AppointmentItem.Subject und Exception.OriginalDate für diese Ausnahme auf die Datenreihe der Termine und das aktuelle Datum, Zeit und Betreff für diese Ausnahme.

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

Siehe auch

AppointmentItem-Objekt

Vorgehensweise: Importieren von Termin-XML-Daten in Outlook-Terminobjekte

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.