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

Objeto Results

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.