|Determine the "identity" of your emails. Set with SAM the sender and the folder folder for sent items with the help of rules.|
Whether you select just one email or more, there's no function in Outlook to remove all the attachments at once.
This example lists the attachments by name and deletes them if you wish.
Public Sub DeleteAttachments2() Dim coll As VBA.Collection Dim obj As Object Dim Atts As Outlook.Attachments Dim Att As Outlook.Attachment Dim Sel As Outlook.Selection Dim i&, Msg$ Set coll = New VBA.Collection If TypeOf Application.ActiveWindow Is Outlook.Inspector Then coll.Add Application.ActiveInspector.CurrentItem Else Set Sel = Application.ActiveExplorer.Selection For i = 1 To Sel.Count coll.Add Sel(i) Next End If For Each obj In coll Set Atts = obj.Attachments Msg = "" For i = Atts.Count To 1 Step -1 Msg = Msg & Atts(i).FileName & vbCrLf Next If MsgBox(Msg, vbYesNo Or vbQuestion, "Delete?") = vbYes Then For i = Atts.Count To 1 Step -1 Atts.Remove i Next obj.save End If Next End Sub
|With Category-Manager you can group your Outlook categories, share them with other users, filter a folder by category, automatically categorize new emails, and more. You can use the Addin even for IMAP.|