At one time I had a piece of code that would make MS email virus application er I mean, common business email application prompt for what folder to stick emails in after you send them. (name withheld because they tend to be sue happy and I do not care for their business tactics or their products)
Anyhow, Sue Mosher wrote a small routine, which was extended by Tony Redmond and now me. ( i added the error code to stop the error on calendar items)
To use this, open the email app, press ALT+F11 (which opens the code editor)
Open the project down to the Session (double click)
Paste the below code in there, save and exit.
Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
Rem Prompt user for what folder to move a sent item into
Rem If cancel is selected, set the folder to DeletedItems
Dim objNS As NameSpace
Dim objFolder As MAPIFolder
On Error Resume Next
Set objNS = Application.GetNamespace("MAPI")
Set objFolder = objNS.PickFolder
If TypeName(objFolder) = "Nothing" Then
Set objNS = Application.GetNamespace("MAPI")
Set objFolder = objNS.GetDefaultFolder(olFolderDeletedItems)
End If
Set Item.SaveSentMessageFolder = objFolder
Set objFolder = Nothing
Set objNS = Nothing
End Sub
thirteen stones, bouncing:
1) Why would you want to do this?tp - 15 February '05 - 12:57
I must use some products that I would rather not, however, this code is to make it a bit easier to handle large volumes of email by prompting you to deal with your sent items instead of just moving it to “sent items”.Nathan - 16 February '05 - 02:34
This sounds like a very good idea to those of us who are slightly obsessive about file organization. So it prompts you for a folder name – or does it bring up a list of folders and you can choose which one to put it in? Can you put it in a sub-folder?tp - 16 February '05 - 02:37
it brings up a box with all your sub folders, you pick the folder to move it too or .pst file. Or cancel. if you cancel, it defaults to the recycle bin.Nathan - 16 February '05 - 02:38
And what if I decide I don’t want it to prompt me anymore? (I want it to return to moving all sent emails to the sent items folder)tp - 16 February '05 - 03:27
Alt+F11, and delete the code.Nathan - 16 February '05 - 04:42
so what did the 8-ball say?sis - 16 February '05 - 08:27
uh, “Outlook not good”Nathan - 16 February '05 - 09:16
did you forget the ‘d’? :) I am allowed one retarded post, right?sis - 16 February '05 - 10:07
D? you lost me again. Twice in one thread…nathan - 16 February '05 - 10:16
Nathan – the ‘d’ in front of your “uh” (duh)tp - 16 February '05 - 10:58
doh!Nathan - 17 February '05 - 01:59
yes baffle, I remember many of those at 3012…although it seemed more frequent while we were eating. Hmmm…I was eating a few Nilla wafers when I was reading the posts, ncb were you eating anything? :)sis - 17 February '05 - 13:54