Evento Results.ItemChange (Outlook)
Se produce cuando se cambia un elemento de la colección especificada.
Sintaxis
expresión. ItemChange( _Item_ )
Expresión Variable que representa un objeto Results .
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Item | Obligatorio | Object | Elemento que se ha modificado. |
Comentarios
Este evento no está disponible en Microsoft Visual Basic Scripting Edition (VBScript).
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
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.