Событие MailItem.AttachmentRead (Outlook)

Статья
04/07/2023

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

Синтаксис

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

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

Параметры

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

Пример

В этом примере Visual Basic для приложений (VBA) отображается сообщение, когда пользователь пытается прочитать вложение. Пример кода должен быть помещен в модуль класса, например ThisOutlookSession, и процедура должна быть вызвана TestAttachRead() , прежде чем процедура события может быть вызвана Microsoft Outlook. Для выполнения этого примера в папке "Входящие" должен быть хотя бы один элемент с темой "Тест" и содержащий по крайней мере одно вложение.

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

См. также

Объект MailItem

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

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

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