Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
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
Vea también
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.