Anmerkung
Der Zugriff auf diese Seite erfordert eine Genehmigung. Du kannst versuchen, dich anzumelden oder die Verzeichnisse zu wechseln.
Der Zugriff auf diese Seite erfordert eine Genehmigung. Du kannst versuchen , die Verzeichnisse zu wechseln.
Tritt ein, wenn ein Element in der angegebenen Auflistung geändert wird. Dieses Ereignis ist in Microsoft Visual Basic Scripting Edition (VBScript) nicht verfügbar.
Syntax
Ausdruck.
ItemChange( _Item_ )
Ausdruck Eine Variable, die ein Items-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Item | Erforderlich | Objekt | Das geänderte Element. |
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.