Evento MailItem.Read (Outlook)
Se produce cuando el usuario abre una instancia del objeto primario para modificarla.
expresión. Read
expresión Variable que representa un objeto MailItem.
El evento Read se diferencia del evento Open en que Read ocurre siempre que el usuario selecciona el elemento en una vista que admite la modificación de las celdas y cuando el elemento se abre en un Inspector.
En este ejemplo de Visual Basic para aplicaciones (VBA) se utiliza el evento Read para aumentar un contador que registra la frecuencia con la que se lee un elemento.
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
¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.