Метод Attachments.Add (Outlook)
Создает новое вложение в коллекции Attachments .
Синтаксис
expression. Add (Source, Type, Position, DisplayName)
Выражение Переменная, представляющая объект Attachments .
Параметры
| Имя | Обязательный или необязательный | Тип данных | Описание |
|---|---|---|---|
| Source | Обязательный | Variant | Источник вложения. Это может быть файл (представленный полным путем к файловой системе с именем файла) или элемент Outlook, составляющий вложение. |
| Type | Необязательный | Long | Тип вложения. Может быть одной из констант OlAttachmentType . |
| Position | Необязательный | Long | Этот параметр применяется только к сообщениям электронной почты в формате форматированного текста: это позиция, в которой вложение должно быть помещено в основной текст сообщения. Значение 1 для параметра Position указывает, что вложение должно располагаться в начале текста сообщения. Значение "n" больше, чем число символов в тексте элемента электронной почты, указывает, что вложение должно быть размещено в конце. Значение 0 делает вложение скрытым. |
| DisplayName | Необязательный | String | Этот параметр применяется только в том случае, если почтовый элемент имеет формат форматированного текста, а для параметра Type задано значение olByValue : имя отображается в объекте Inspector для вложения или при просмотре свойств вложения. Если почтовый элемент имеет формат обычного текста или HTML, вложение отображается с именем файла в параметре Source . |
Возвращаемое значение
Объект Attachment , представляющий новое вложение.
Замечания
Когда вложение добавляется в коллекцию Attachments элемента, свойство Type объекта Attachment всегда возвращает olOLE (6) до сохранения элемента. Чтобы обеспечить согласованность результатов, всегда сохраняйте элемент перед добавлением или удалением объектов в коллекции Attachments .
Пример
В следующем примере Microsoft Visual Basic /Visual Basic для приложений (VBA) создается почтовый элемент, добавляется вложение путем его внедрения в начало текста сообщения и отображается. Чтобы запустить этот пример, убедитесь, что вложение, представляющего собой файл с именем Test.Doc, существует в C:\ Папку.
Sub AddAttachment()
Dim myItem As Outlook.MailItem
Dim myAttachments As Outlook.Attachments
Set myItem = Application.CreateItem(olMailItem)
Set myAttachments = myItem.Attachments
myAttachments.Add "C:\Test.doc", _
olByValue, 1, "Test"
myItem.Display
End Sub
См. также
Присоединение файла к почтовому элементуПрисоединение элемента контакта Outlook к сообщению EmailОграничение размера вложения в Outlook Email СообщениеИзменение вложения сообщения Email Outlook
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.