In Outlook, press Alt+F8 to bring up the Macros window. Enter a name for your macro and press the Create button.
Highlight the new macro name and press the Edit button. This will open the VBA editor. Delete the sub/end sub entries with nothing between them.
Copy and paste in the following code:
Sub DeleteAttachments() Dim lngIndex As Long Dim AttachmentCount As Long Dim itm As Object Dim att As Outlook.Attachment On Error Resume Next Set itm = Application.ActiveInspector.CurrentItem If Not itm Is Nothing Then itm.Save AttachmentCount = itm.Attachments.Count For lngIndex = AttachmentCount To 1 Step -1 Set att = itm.Attachments(lngIndex) att.Delete Next End If Set itm = Nothing Set att = Nothing End Sub
Hit Ctrl+S to save, then Alt+Q to quit the editor. Open a new email, right-click in a toolbar and select Customize. In the customize window, select Macros under Categories.
Click and drag your new macro to a toolbar where you would like the button placed.
Right-click the new button to change the name and icon, then close the customize window.
Your new button is now ready to use- a single click will delete all the attachments in the currently open email and then save the email.
Blogged with the Flock Browser