Événement MailItem.Read (Outlook)
Survient lorsque l'utilisateur ouvre une instance de l'objet parent en vue d'une modification.
Syntaxe
expression. Read
expression Variable qui représente un objet MailItem.
Remarques
L’événement Read diffère de l’événement Open dans la mesure où Read survient dès que l’utilisateur sélectionne l’élément dans un affichage gérant la modification du contenu des cellules ou que l’élément est en cours d’ouverture dans un objet Inspector.
Exemple
Cet exemple Visual Basic pour Applications (VBA) utilise l’événement Read pour incrémenter un compteur qui suit la fréquence de lecture d’un élément.
Public WithEvents myItem As Outlook.MailItem
Sub Initialize_handler()
Set myItem = Application.ActiveExplorer.CurrentFolder.Items(1)
myItem.Display
End Sub
Sub myItem_Read()
Dim myProperty As Outlook.UserProperty
Set myProperty = myItem.UserProperties("ReadCount")
If (myProperty Is Nothing) Then
Set myProperty = myItem.UserProperties.Add("ReadCount", olNumber)
End If
myProperty.Value = myProperty.Value + 1
myItem.Save
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.