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
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.