Свойство MailItem.Attachments (Outlook)
Возвращает объект Attachments , представляющий все вложения для указанного элемента. Только для чтения.
Синтаксис
выражение. Attachments
Выражение Переменная, представляющая объект MailItem .
Пример
В этом примере Visual Basic для приложений (VBA) метод Attachments.Remove используется для удаления всех вложений из пересылаемого почтового сообщения перед отправкой в "Дэн Уилсон". Чтобы запустить этот пример, замените "Dan Wilson" допустимым именем получателя и сохраните элемент с вложениями открытыми в окне инспектора.
Sub RemoveAttachmentBeforeForwarding()
Dim myinspector As Outlook.Inspector
Dim myItem As Outlook.MailItem
Dim myattachments As Outlook.Attachments
Set myinspector = Application.ActiveInspector
If Not TypeName(myinspector) = "Nothing" Then
Set myItem = myinspector.CurrentItem.Forward
Set myattachments = myItem.Attachments
While myattachments.Count > 0
myattachments.Remove 1
Wend
myItem.Display
myItem.Recipients.Add "Dan Wilson"
myItem.Send
Else
MsgBox "There is no active inspector."
End If
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.