Evento MailItem.AttachmentAdd (Outlook)

Artículo
04/07/2023

Se produce cuando se han agregado datos adjuntos a una instancia del objeto primario.

Sintaxis

expresión. AttachmentAdd( _Attachment_ )

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 ha agregado al elemento.

Ejemplo:

En este ejemplo de Visual Basic para Aplicaciones (VBA) se comprueba el tamaño de un elemento después de agregar datos adjuntos y se muestra un aviso si el tamaño excede de 500.000 bytes. El código de ejemplo debe colocarse en un módulo de clase como ThisOutlookSession, y se debe llamar al TestAttachAdd() procedimiento antes de que Microsoft Outlook pueda llamar al procedimiento de evento.

Public WithEvents newItem As Outlook.MailItem 
 
 
 
Private Sub newItem_AttachmentAdd(ByVal newAttachment As Attachment) 
 
 If newAttachment.Type = olByValue Then 
 
 newItem.Save 
 
 If newItem.Size > 500000 Then 
 
 MsgBox "Warning: Item size is now " & newItem.Size & " bytes." 
 
 End If 
 
 End If 
 
End Sub 
 
 
 
Public Sub TestAttachAdd() 
 
 Dim atts As Outlook.Attachments 
 
 Dim newAttachment As Outlook.Attachment 
 
 
 
 Set newItem = Application.CreateItem(olMailItem) 
 
 newItem.Subject = "Test attachment" 
 
 Set atts = newItem.Attachments 
 
 Set newAttachment = atts.Add("C:\Test.txt", olByValue) 
 
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.