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

Objeto MailItem

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.