Ken Sheppardson Subscribe to RSS Feed archives home

Outlook "Sent Items" Hack

06/05/2006

For years, Outlook’s inability to have Sent Items go anywhere but the Sent Items folder has been a little pet peeve of mine. It might seem a little counterintuitive, but I really like everything I send to end up in my inbox where I sort it, file it, set up a “next action” ala [tag]GTD[/tag], etc. Up until now I’d just move the contents of my Sent Items folder to the Inbox folder every once in a while. Well, reading CNXN’s article on using Outlooks without folders finally gave me a bit of a nudge, and a quick google turned up the following bit of code. Open Outlook’s Visual Basic editor, go to the ThisOutlookSession object, paste in the following code, save, restart Outlook, and anything that appears in Sent Items will immediately be moved ot the Inbox.

Public WithEvents SentItems As Outlook.Items
Private Sub Application_Startup()
    Set SentItems = _
Outlook.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub
Private Sub Application_Quit()
    Set SentItems = Nothing
End Sub
Private Sub SentItems_ItemAdd(ByVal Item As Object)
    Item.Move _
Outlook.Session.GetDefaultFolder(olFolderInbox)
End Sub
blog comments powered by Disqus