Evento Items.ItemChange (Outlook)

Se produce cuando se cambia un elemento de la colección especificada. Este evento no está disponible en Microsoft Visual Basic Scripting Edition (VBScript).

Sintaxis

expresión. ItemChange( _Item_ )

Expresión Variable que representa un objeto Items .

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Item	Obligatorio	Object	Elemento que se ha modificado.

Ejemplo:

En este ejemplo se utiliza la propiedad Start del objeto AppointmentItem para determinar si la cita comienza después del horario laboral. En caso afirmativo, y si la propiedad Sensitivity del objeto AppointmentItem no está aún establecida en olPrivate, el ejemplo ofrece la posibilidad de marcar la cita como privada.

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

Consulte también

Objeto Items

Soporte técnico y comentarios

¿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.