Événement Items.ItemChange (Outlook)

  • Article

Survient lorsqu’un élément de la collection spécifiée subit des modifications. Cet événement n'est pas disponible dans Microsoft Visual Basic Scripting Edition (VBScript).

Syntaxe

expression. ItemChange( _Item_ )

Expression Variable qui représente un objet Items .

Parameters

Nom Requis/Facultatif Type de données Description
Item Obligatoire Object Élément modifié.

Exemple

Cet exemple utilise la propriété Start de l’objet AppointmentItem pour déterminer si le rendez-vous commence après les heures d’ouverture normales. Si c’est le cas, et si la propriété Sensitivity de l’objet AppointmentItem n’est pas déjà définie sur olPrivate, l’exemple propose de marquer le rendez-vous comme privé.

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

Voir aussi

Éléments, objet

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.