MailItem.AttachmentДобавить событие (Outlook)

Статья
04/07/2023

Происходит при добавлении вложения в экземпляр родительского объекта.

Синтаксис

выражение. AttachmentAdd( _Attachment_ )

Выражение Переменная, представляющая объект MailItem .

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Attachment	Обязательный	Вложения	Вложение, добавленное в элемент.

Пример

Этот пример Visual Basic для приложений (VBA) проверяет размер элемента после добавления вложения и выводит предупреждение, если размер превышает 500 000 байт. Пример кода должен быть помещен в модуль класса, например ThisOutlookSession, и процедура должна быть вызвана TestAttachAdd() , прежде чем процедура события может быть вызвана Microsoft Outlook.

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

См. также

Объект MailItem

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через