Evento MailItem.AttachmentRead (Outlook)
Se produce cuando se han abierto datos adjuntos en una instancia del objeto primario para escribir en ellos.
Sintaxis
expresión. AttachmentRead( _Attachment_ )
expresión Variable que representa un objeto MailItem.
Parámetros
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| Dato adjunto | Obligatorio | Datos adjuntos | Objeto Attachment que se ha abierto. |
Ejemplo:
En este ejemplo de Visual Basic para Aplicaciones (VBA), se muestra un mensaje cuando el usuario intenta leer un archivo de datos adjuntos. El código de ejemplo debe colocarse en un módulo de clase como ThisOutlookSession, y se debe llamar al TestAttachRead() procedimiento antes de que Microsoft Outlook pueda llamar al procedimiento de evento. Para ejecutar este ejemplo, debe haber al menos un elemento con el tema "Test" que contenga al menos un archivo de datos adjuntos en la Bandeja de entrada.
Public WithEvents myItem As outlook.MailItem
Private Sub myItem_AttachmentRead(ByVal myAttachment As Outlook.Attachment)
If myAttachment.Type = olByValue Then
MsgBox "If you change this file, also save your changes to the original file."
End If
End Sub
Public Sub TestAttachRead()
Dim atts As Outlook.Attachments
Dim myAttachment As Outlook.Attachment
Set myItem = Application.ActiveExplorer.CurrentFolder.Items("Test")
Set atts = myItem.Attachments
myItem.Display
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.