Automatically Move Emails in a Shared Folder to my Personal Inbox

[|||E|||]

I have a shared inbox that I'm constantly moving emails out of and into my personal inbox. I would like to have any email that arrives in that shared folder to be automatically moved into my local/personal inbox. There doesn't appear to be any rule that will do that and I haven't been able to find any other threads that address this issue. Any help would be much appreciated. Thanks.

[|||E|||]

Additional details: the emails are arriving in a Group Inbox, then those emails are sorted into different inboxes. Whenever an email is moved to a specific shared folder, I would like it to be automatically moved into my inbox.

[Aussiebear]

Just guessing here but try this



Sub MoveEmailsFromSharedToPrivate()
Dim objOutlook As Object
Dim objSharedInbox As Object
Dim objPrivateInbox As Object
Dim objEmail As Object
' Create an Outlook Application object
Set objOutlook = CreateObject("Outlook.Application")
' Get the shared Inbox folder
' Replace "Shared Inbox" with the actual name of your shared mailbox
Set objSharedInbox = objOutlook.GetNamespace("MAPI").Folders("Shared Inbox")
' Get your private Inbox folder
Set objPrivateInbox = objOutlook.GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
' Loop through each email in the shared Inbox
For Each objEmail In objSharedInbox.Items
' Move the email to your private Inbox
objEmail.Move objPrivateInbox
Next objEmail
' Clean up
Set objEmail = Nothing
Set objSharedInbox = Nothing
Set objPrivateInbox = Nothing
Set objOutlook = Nothing
End Sub