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

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.