This Visual Basic for Applications (VBA) example uses the Remove
method to remove all attachments from a forwarded message before sending it on to Dan Wilson.To run this example, replace 'Dan Wilson' with a valid recipient name and keep a mail item that contains at least one attachment open in the active window.
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
myItem.Recipients.Add "Dan Wilson"
MsgBox "There is no active inspector."