Événement Items.ItemChange (Outlook)
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
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.