通过

MailItem.Attachments 属性 (Outlook)

  • 项目

返回一个表示指定项的所有附件 附件 对象。 此为只读属性。

语法

expression。 Attachments

expression 表示 MailItem 对象的变量。

示例

此 Visual Basic for Applications (VBA) 示例使用 Attachments.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

另请参阅

MailItem 对象

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。