Move sent items to inbox??

[Sabrina D]

I would like to move all the items I send to the Inbox and use the Inbox as
THE place where I see everything I send and recieive (plesase don't ask me
why ;-).

Is there a way to redirect the sent messages to appear in the inbox instead?
I have tried a rule which copies the messages back to the inbox but the
appear there as unread which is rather annoying. Is there another way? Can I
set another "sent" folder than the sent folder? If not - can I tell - in the
rule that they should appear as read?

Thanks A LOT in advance!!!

Sabrina

 

[Mark S.]

Paste the following code into ThisOutlookSession in VBA.
Close Outlook, then restart. If you are using Outlook
2003, you'll need to lower your macro security settings
to Medium (Or digitally sign your new project.)

Any and all items that appear in your default Sent Items
folder will automatically be movied to your default Inbox
folder. Even if you drag & drop into your Sent Items
folder.

Option Explicit
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

 

[Sabrina D]

Thank you - I love you!

Paste the following code into ThisOutlookSession in VBA.
Close Outlook, then restart. If you are using Outlook
2003, you'll need to lower your macro security settings
to Medium (Or digitally sign your new project.)

Any and all items that appear in your default Sent Items
folder will automatically be movied to your default Inbox
folder. Even if you drag & drop into your Sent Items
folder.

Option Explicit
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

 

[Malin D]

Actually - the person who wants this seem to have two accounts (which means
two inboxes) - can I somehow order the messages from each "from" adress to
appear in the correlating inbox?

Or is it perhaps smarter to create a rule that move a number of messages
from the "main" inbox to the secondary inbox?

Thanks again for any input!

 

[Mark S.]

I might be better to create two sub folders in your Inbox
folder... For this example folder1 and folder2.

Then you can check the To address of the email and put it
the appropriate folder.

Put this logic into your Item_Add event:

Select Case Item.To
Case "(e-mail address removed)" ' folder1
Item.Move Outlook.Session.GetDefaultFolders
(olFolderInbox).Folders("folder1")
Case "(e-mail address removed)" ' folder2
Item.Move Outlook.Session.GetDefaultFolders
(olFolderInbox).Folders("folder2")
Case Else ' Leave it in the top Inbox
Item.Move Outlook.Session.GetDefaultFolders
(olFolderInbox)
End Select

P.S. remember to edit out line breaks.

Good luck!