MailItem.Attachments Property (Outlook)
Returns an Attachments object that represents all the attachments for the specified item. Read-only.
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