Exception.OriginalDate property (Outlook)
Gibt ein Datum, das ursprüngliche Datum und Uhrzeit eines AppointmentItem-Objekts angibt, bevor es geändert wurde. Diese Eigenschaft gibt das ursprüngliche Datum zurück, auch wenn das AppointmentItem gelöscht wurde. Es wird jedoch nicht die ursprüngliche Zeit zurück, wenn der Löschvorgang erfolgt ist. Schreibgeschützt.
Syntax
Ausdruck. OriginalDate
Ausdruck Eine Variable, die ein Exception-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 GetRecurrencePattern -Methode wird das RecurrencePattern abgerufen. Durch Festlegen der Eigenschaften: RecurrenceType, PatternStartDate und PatternEndDate, 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 Subject und 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
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.