Evento Results.ItemChange (Outlook)
Ocorre quando um item na coleção especificada é alterado.
Sintaxe
expression. ItemChange( _Item_ )
Expressão Uma variável que representa um objeto Results .
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| Item | Obrigatório | Object | O item que foi alterado. |
Comentários
Esse evento não está disponível no Microsoft Visual Basic Scripting Edition (VBScript).
Exemplo
Este exemplo usa a propriedade Start do objeto AppointmentItem para determinar se o compromisso começará depois do horário de expediente. Em caso afirmativo, e se a propriedade Sensitivity do objeto AppointmentItem já não estiver definida como olPrivate, o exemplo oferece para marcar o compromisso como particular.
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
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.