Automatically Move Emails in a Shared Folder to my Personal 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