Evento MailItem.Read (Outlook)
Ocorre quando uma instância do objeto pai é aberta para edição pelo usuário.
Sintaxe
expressão. Read
expressão Uma variável que representa um objeto MailItem.
Comentários
O evento Read difere do evento OpenRead ocorre sempre que o usuário seleciona o item em um modo de exibição que suporta a edição na célula, bem como quando o item está sendo aberto em um Inspetor.
Exemplo
Este exemplo Visual Basic for Applications (VBA) usa o evento Read para incrementar um contador que controla a freqüência com que um item é lido.
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
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.