To set the storage folder for an outgoing Outlook message

Code Sample

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  

Notes

This technique does not work on messages created with File | Send commands in Office programs or similar commands in Windows Explorer or other programs. Those commands invoke Simple MAPI, which bypasses Outlook functionality. An alternative approach would be to monitor the Sent Items folder for new items and ask the user to refile the message at that point in its lifetime.

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.

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 2002 or Outlook 2003 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.

To avoid a macro warning prompt when you start Outlook, follow the instructions for changing the macro security level and signing your code in the article How to Prevent the VBA Macro Security Warning in Microsoft Outlook 2000.

More Information

• To require confirmation when sending file attachments
• To automatically add an e-mail address as a Bcc to all outgoing messages
• To require confirmation when sending to an Exchange distribution list
• Don't send message if attachment is missing -- or Subject is blank
• Set properties on outgoing messages

Also see:

• Save in Target Folder Sample Form