Метод Attachments.Remove (Outlook)

Статья
04/07/2023

Удаляет объект из коллекции.

Синтаксис

expression. Удалить (индекс)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Индекс;	Обязательный	Long	Значение индекса из 1 объекта в коллекции.

Пример

В этом примере Visual Basic для приложений (VBA) метод 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

См. также

Объект Attachments

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

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

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