automated filing of sent items

[Excelerate-nl]

I am looking for a macro/form that will pop-up after sending a mail, asking
for where to store the sent mail. I have several sub-directories in my own
mailbox as well as other mailboxes. The menu should give a dropdown box with
the option to select the sub-directory where to store the sent mail.

Thanks for your reply,

Jan Bart

 

[JP]

Check out the Application_ItemSend Event, which is perfect for setting
this option. For example:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As
Boolean)

Dim olApp As Application
Dim objNS As NameSpace
Dim objFolder As MAPIFolder
Dim Msg As MailItem

Set olApp = Application
Set objNS = olApp.GetNamespace("MAPI")
Set objFolder = objNS.Folders("Mailbox - My Public Inbox
Folder").Folders("Sent Items")
Set Msg = Item

Set Msg.SaveSentMessageFolder = objFolder


Set Msg = Nothing
Set objFolder = Nothing
Set objNS = Nothing
Set olApp = Nothing
End If

All you need to is change the code to prompt the user for the folder,
using the Pickfolder method to return a MAPIFolder Object.

HTH,
JP