Свойство 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

См. также

Объект MailItem

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

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