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

Вложение файла в почтовый элемент

  • Статья

В этом разделе показана процедура, которая присоединяет файл электронной таблицы к почтовому элементу. Процедура , предполагает, AddAttachmentчто указанная электронная таблица, Q496.xlsx, существует по указанному пути D:\Documents. AddAttachment создает новое почтовое сообщение, присоединяет Q496.xlsx к сообщению, присваивает вложению описательный заголовок и отображает сообщение с этим вложением.

Sub AddAttachment() 
 Dim myItem As Outlook.MailItem 
 Dim myAttachments As Outlook.Attachments 
 
 Set myItem = Application.CreateItem(olMailItem) 
 Set myAttachments = myItem.Attachments 
 myAttachments.Add "D:\Documents\Q496.xlsx", _ 
 olByValue, 1, "4th Quarter 1996 Results Chart" 
 myItem.Display 
End Sub

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

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