Evento MailItem.BeforeAttachmentSave (Outlook)

Se produce justo antes de guardar datos adjuntos.

Sintaxis

expresión. BeforeAttachmentSave( _Attachment_ , _Cancel_ )

expresión: Variable que representa un objeto MailItem.

Parámetros

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Dato adjunto	Obligatorio	Datos adjuntos	Datos adjuntos que se guarde.
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 y no se modifican los datos adjuntos.

Comentarios

Este evento corresponde a cuando se guardan los datos adjuntos en el almacén de mensajes. El evento BeforeAttachmentSave se produce justo antes de guardan datos adjuntos cuando se guarda un elemento. Si un usuario modifica los datos adjuntos y, a continuación, guarda los cambios, el evento BeforeAttachmentSave no se producirá en ese momento; en su lugar se producirá cuando más adelante se guarda el elemento en Sí. Tampoco producirá cuando se guarden los datos adjuntos en el disco duro mediante el método SaveAsFile.

En VBScript, si establece el valor devuelto por esta función en False, la operación de guardar se cancela la operación y no se modifican los datos adjuntos.

Ejemplo:

En este ejemplo de Visual Basic para aplicaciones (VBA) se notifica al usuario que el usuario no se permite guardar los datos adjuntos. El argumento Cancel se establece en True para cancelar la operación de guardado. El código de ejemplo debe colocarse en un módulo de clase como ThisOutlookSession, y se debe llamar al TestAttachSave() procedimiento antes de que Microsoft Outlook pueda llamar al procedimiento de evento.

Public WithEvents myItem As Outlook.MailItem 
 
Private Sub myItem_BeforeAttachmentSave(ByVal myAttachment As Attachment, Cancel As Boolean) 
 MsgBox "You are not allowed to save " & myAttachment.FileName 
 Cancel = True 
End Sub 
 
Public Sub TestAttachSave() 
 Set myItem = Application.ActiveInspector.CurrentItem 
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.