MailItem.Attachments property (Outlook)
Returns an Attachments object that represents all the attachments for the specified item. Read-only.
expression A variable that represents a MailItem object.
This Visual Basic for Applications (VBA) example uses the Attachments.Remove method to remove all attachments from a forwarded mail message before sending it on to 'Dan Wilson'. To run this example, replace 'Dan Wilson' with a valid recipient's name and keep an item with attachments open in an inspector window.
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
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.