通过

Attachments.Remove 方法 (Outlook)

  • 项目

从集合中删除对象。

语法

表达式。删除 (索引)

表达 一个代表 Attachments 对象的变量。

参数

名称 必需/可选 数据类型 说明
Index 必需 Long 对象在集合中的索引值，索引从 1 开始编号。

示例

此 Visual Basic for Applications (VBA) 示例使用 Remove 方法之前将其发送到 Dan Wilson 转发的邮件中删除所有附件。 运行此示例之前，请使用有效的收件人姓名替换 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。