Items.ItemChange-Ereignis (Outlook)

Artikel
04/07/2023

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

Items-Objekt

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.

Freigeben über