Evento MailItem.Write (Outlook)
Se produce cuando se guarda una instancia del objeto primario, ya sea explícitamente (por ejemplo, mediante los métodos Save o SaveAs ) o implícitamente (por ejemplo, en respuesta a una pregunta cuando se cierra el inspector del elemento).
Sintaxis
expresión. Write( _Cancel_ )
expresión Variable que representa un objeto MailItem.
Parámetros
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Cancel | Obligatorio | Boolean | (No se utiliza en VBScript). False cuando se produce el evento. Si el procedimiento de evento establece este argumento en True, la operación de guardar no se completa la operación. |
Comentarios
En Microsoft Visual Basic Scripting Edition (VBScript), si establece el valor devuelto por esta función en False, la operación de guardar no se completa la operación.
Ejemplo:
En este ejemplo de Visual Basic para aplicaciones (VBA) se utiliza el evento Write y advierte al usuario que el elemento se va a guardar y sobrescribirá cualquier elemento ya existente y, según la respuesta del usuario, ya sea la operación continuar o se detiene. Si se cancela este evento, Microsoft Outlook muestra un mensaje de error. Por lo tanto, debe capturar este evento en el código. A continuación se muestra una forma de hacerlo. El código de ejemplo debe colocarse en un módulo de clase como ThisOutlookSession, y se debe llamar a la Initialize_Handler() subrutina antes de que Outlook pueda llamar al procedimiento de evento.
Public WithEvents myItem As Outlook.MailItem
Private Sub myItem_Write(Cancel As Boolean)
Dim myResult As Integer
myItem = "The item is about to be saved. Do you wish to overwrite the existing item?"
myResult = MsgBox(myItem, vbYesNo, "Save")
If myResult = vbNo Then
Cancel = True
End If
End Sub
Public Sub Initialize_Handler()
Const strCancelEvent = "Application-defined or object-defined error"
On Error GoTo ErrHandler
Set myItem = Application.ActiveInspector.CurrentItem
myItem.Save
Exit Sub
ErrHandler:
MsgBox Err.Description
If Err.Description = strCancelEvent Then
MsgBox "The event was cancelled."
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.