|SAM automatically sets the sending account, or sender address, and folder for sent items based on several criteria.|
For instance, if you want to empty a junk folder, there is a command for that in the context menu. However, for most folders that command is not available.
This script deletes the content of the current folder. Create a new command on the toolbar (Outlook 2007 or older), or on the QAT since Outlook 2010 to get the Empty Folder command for any folder.
Here's another code for IMAP folder: Purge Deleted IMAP messages
Public Sub DeleteFolderContent() Dim Folder As Outlook.MAPIFolder Dim Items As Outlook.Items Dim Msg As String Dim i As Long Set Folder = Application.ActiveExplorer.CurrentFolder Set Items = Folder.Items Msg = Items.Count & " items in " & Folder.Name & ". Delete?" If MsgBox(Msg, vbYesNo) = vbYes Then For i = Items.Count To 1 Step -1 Items.Remove i Next End If End Sub
|Access the master category list in the blink of an eye, share your color categories in a network, get a reminder service, and more.|