Outlook - Moving Old Mail to archive . OST error 440

Good Morning Excel friends,
Long time listener, First time caller.

I'm really hoping someone here can help me out. I have a company policy where I work that retains email for 365 days and then deletes it. I have created some code through some VBA forums that will / should do the following:
1. scan the specified subfolder that I want to move old messages
2. look for emails that are old than 360 days
3. once it finds an email older that 360 days, move it to another .ost called "archive"
4. display a pop up that tells me how many messages have been moved.

My current version of outlook is:
Microsoft? Outlook? for Microsoft 365 MSO (Version 2202 Build 16.0.14931.21024) 64-bit
Running windows 10

Here is my code below:

Please Login or Register  to view this content.

My error is from this line:

objVariant.Move objDestFolder

The error is a runtime 440 error " cannot move the items"



I really hope someone can help me out. Thank you in advance for taking a look and any help you can provide. Let me know if you need more information.
I appreciate it,
Humility36

This may take a while to unravel, and I may have to figure out how to test your code in my instance of Outlook to reproduce the error.

If this code is running in Outlook, why are you using an Application object and setting it to the application? That's not necessary unless you are running the code from something other than Outlook. But I don't think that's causing your error.

I would declare objVariant as Item but I don't think that's causing your error either.

I cannot run this code. GetFolderPath is not defined.