Results.ItemChange-Ereignis (Outlook)
Tritt ein, wenn ein Element in der angegebenen Auflistung geändert wird.
Syntax
Ausdruck.
ItemChange( _Item_ )
Ausdruck Eine Variable, die ein Results-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Item | Erforderlich | Objekt | Das geänderte Element. |
Hinweise
Dieses Ereignis ist in Microsoft Visual Basic Scripting Edition (VBScript) nicht verfügbar.
Beispiel
In diesem Beispiel wird die Start -Eigenschaft des AppointmentItem -Objekts, um festzustellen, ob der Termin Geschäftszeiten beginnt. Wenn dies der Fall ist, und die Sensitivity -Eigenschaft des AppointmentItem -Objekts nicht bereits auf OlPrivate festgelegt ist, bietet das Beispiel den Termin als privat zu kennzeichnen.
Public WithEvents myOlItems As Outlook.Items
Public Sub Initialize_handler()
Set myOlItems = Application.GetNamespace("MAPI").GetDefaultFolder(olFolderCalendar).Items
End Sub
Private Sub myOlItems_ItemChange(ByVal Item As Object)
Dim prompt As String
If VBA.Format(Item.Start, "h") >= "17" And Item.Sensitivity <> olPrivate Then
prompt = "Appointment occurs after hours. Mark it private?"
If MsgBox(prompt, vbYesNo + vbQuestion) = vbYes Then
Item.Sensitivity = olPrivate
Item.Display
End If
End If
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.