Lotus Notes can prompt the sender to specify what folder a message should be saved in. Outlook doesn't have the feature built in, although you can select the folder to save the message to before sending. Outlook has an option to save replies with the original when its not in the Inbox. If you want to be prompted each time, you'll need to use VBA or an add-in.
You can also use Rules to move sent messages to other folders. This works well if you need to move all messages sent to specific people or with specific words in the subject but won't work for one-off messages.
Select the folder when sending the message
You can select a different sent items folder for each message by selecting the folder from the Options dialog before sending the message.
If you always want to use a different folder, you can use a macro to set the Save message to folder. You could use an If statement to only move certain messages to the folder.
This sample saves the sent message to a subfolder named "Diane" under the Sent Items folder.
Private Sub Application_ItemSend(ByVal Item As Object) Dim objNS As NameSpace Dim objFolder As MAPIFolder Set objNS = Application.GetNamespace("MAPI") Set objFolder = objNS.GetDefaultFolder(olFolderSentMail).Folders("Diane") Set Item.SaveSentMessageFolder = objFolder Set objFolder = Nothing Set objNS = Nothing End Sub
Use VBA to display a dialog
These two macros use the ItemSend method in the macro above, but call the folder picker so you can choose a folder each time.
From the now-defunct Outlookcode.com:
This VBA code reproduces something closer to the Notes behavior by popping up the Select Folder dialog when the user sends the message.
This code demonstrates the use of the Namespace.PickFolder method to pop up the folder list for the user's selection. Note that you must handle the situation where the user cancels the dialog, in which case PickFolder returns Nothing.
The folder must be in your default information store -- Exchange mailbox or PST file. The IsInDefaultStore() function tests for this. If you need to move items to a different folder, the solution would be to use the ItemAdd event on the Sent Items folder's Items collection. See To quarantine application file attachments for an example of using ItemAdd.
To use this code, paste it into the built-in ThisOutlookSession module in VBA in Outlook. (Press Alt+F11 to open the VBA window.)
Private Sub Application_ItemSend(ByVal Item As Object, _ Cancel As Boolean) Dim objNS As NameSpace Dim objFolder As MAPIFolder Set objNS = Application.GetNamespace("MAPI") Set objFolder = objNS.PickFolder If TypeName(objFolder) <> "Nothing" And _ IsInDefaultStore(objFolder) Then Set Item.SaveSentMessageFolder = objFolder End If Set objFolder = Nothing Set objNS = Nothing End Sub Public Function IsInDefaultStore(objOL As Object) As Boolean Dim objApp As Outlook.Application Dim objNS As Outlook.NameSpace Dim objInbox As Outlook.MAPIFolder On Error Resume Next Set objApp = CreateObject("Outlook.Application") Set objNS = objApp.GetNamespace("MAPI") Set objInbox = objNS.GetDefaultFolder(olFolderInbox) Select Case objOL.Class Case olFolder If objOL.StoreID = objInbox.StoreID Then IsInDefaultStore = True End If Case olAppointment, olContact, olDistributionList, _ olJournal, olMail, olNote, olPost, olTask If objOL.Parent.StoreID = objInbox.StoreID Then IsInDefaultStore = True End If Case Else MsgBox "This function isn't designed to work " & _ "with " & TypeName(objOL) & _ " items and will return False.", _ , "IsInDefaultStore" End Select Set objApp = Nothing Set objNS = Nothing Set objInbox = Nothing End Function
If you want the user to pick a folder only when the item is sent through a specific account, you will need to structure the code as a procedure that Rules Wizard can run, rather than as an Application-level event handler. You can call the SetSaveFolder code below from a "run a script" action on an Outlook rule. The condition on the rule should be "through specified account."
Public Sub SetSaveFolder(ByVal Item As MailItem) Dim objNS As NameSpace Dim objFolder As MAPIFolder Set objNS = Application.GetNamespace("MAPI") Set objFolder = objNS.PickFolder If TypeName(objFolder) <> "Nothing" And _ IsInDefaultStore(objFolder) Then Set Item.SaveSentMessageFolder = objFolder End If Set objFolder = Nothing Set objNS = Nothing End Sub
Another variation would be to not save the item at all if the user doesn't choose a folder. You can do that by setting the DeleteAfterSubmit property to True.
Note: VBA does not work on messages created with File, Send commands in other applications or the Send to command in Windows Explorer. Send to commands use Simple MAPI, which bypasses Outlook functionality.
Use VBA to move sent items
You can use a macro to move all items sent by a specific email account. See Use a macro to move sent items for the VBA code sample. This macro will work with messages created using the File, Send commands in other applications since it processes the message after it's sent.
Save Replies with the original
If you move messages out of the Inbox, you can configure Outlook (all versions) to save replies with the original.
In older versions of Outlook, go to Tools, Options, Email options, Advanced Email options button.
Using Rules to file Sent items
You can create an After Sending rule to copy messages meeting specific conditions or to specific persons to a different sent folder, however, this copies the sent message. The only way to avoid saving a message in the Sent folder as well as in another folder is by disabling the option to Save all sent messages and use rules to save messages. If you use this method, your first rule(s) will save messages meeting specific conditions in the desired folders, with each rule containing the Stop processing action. The final rule applies to all messages and saves them in the Sent folder, catching all messages not processed by previous After sending Rules.
Step 1: Begin by creating a rule "from scratch", choosing a blank rule, applied on messages you send:
Step 2: Add your conditions and Actions, remembering to select Stop processing on each rule.
Step 3: The final Rule will have no conditions; the Action will copy messages to the Sent folder:
Note that when you use a rule to move a copy of the sent item, its marked as unread. You will need to use VBA to mark the copied sent message read. See Mark Sent Items “Read” after Moving to a New Folder for the necessary code.
Tools in the Spotlight
File emails from Outlook into project or client folders automatically. Match email addresses, project numbers, client names or references to a folder name located anywhere on your network. Watch as the bulk of your emails are automatically filed (ZERO clicks!) and finish the task with manual filing for emails that do not fall within the scope of a project or client folder. Organize filed emails into relevant sub-folders within your mailbox and auto purge dated email over time. Supports Outlook 2007, 2010, 2013 & 2016
Auto-Mate is an Outlook utility that allows you use define rules to move mail from your Inbox (or other folders) based on several criteria, including the age of the message. While Outlook rules only run as messages are downloaded or when you click Run Rules now, Auto-Mate rules run on a schedule, enabling you to apply rules to messages that have been in your Inbox for a given number of hours, days or weeks. Available in Standard or Pro Version. Outlook O365, Outlook 2019 as well as Outlook 2010, 2013, 2016, 32 and 64 bit editions. Version 12.
Email rules sometimes just don't make it and drag & drop system is very poor for sorting emails quickly among various folders. EverFastAccess is an intuitive, smart and ultra-fast note-taking software to boost your productivity and simplify your computer life.
File 90% of your emails at the click of a button. Manage your Inbox and Sent Items folders. Move emails out of the Inbox to the correct folder at the click of a button. QuickFile remembers the folders used for each person and presents a short customized list each time. Use the same list to Send&File in one step instead of having to go back to your Sent Items folder. Plus many more email management features such as one-click creation of task/appointments from emails, newsletter processing, deferred non-urgent emails and much more.
This add-in moves both the reply and original message to the pre-defined folder. Example. Let's suppose you have a group of users that process incoming orders that come to the shared mailbox "Orders". Every email has to be replied. After a user replies to or forwards a message, the add-in will move both the original order email and reply to the "Processed" folder.
SimplyFile helps you file incoming and outgoing messages to the right Outlook folder with one click of a mouse. SimplyFile's state of the art algorithm learns as you file messages and suggests destination folders for filing. All you have to do to send a message to the right folder is click a button. SimplyFile also includes buttons for turning messages into Tasks and Appointments. Compatible with Outlook 2000, 2002, 2003 and 2007. Version 18.104.22.168.
Use Single Click Filing for Outlook to file your messages in Outlook. You can define up to 10 filing folders each with its own toolbar button and use the corresponding shortcuts (Alt+1, Alt+2, ... , Alt+0) to quickly and easily file messages. Free trial.
Timed Email Organizer is a brand new add-in which can replace or augment your Outlook rules. Unlike Outlook, this add-in will act on emails based on how old they are, supports ANDs, ORs, NOTs and wildcards in the conditions, and has a test mode so that you can see what the effect of a given rule would be if it were run. It will even import your current Outlook rules and automatically disable them for you.
Track Your Sent offers 4 ways to track your sent items: Filing, Categories, Calendar, Tasks. Re-attach your category with a reply/forward to the sent item and keep your categories local (and not expose them to the recipient) Define a default action or action(s) for just a single sent item.
SAM automatically sets the sender, signature, and folder for sent items based on several criteria. Use SAM to assign a sending account or SendOnBehalf address and signature to contacts, folders, or categories. Works with Outlook 2007, 2010 and Outlook 2013, 2016.