Thank you for all the help. I'm still having an issue with it only moving a single email. How can I get it to repeatedly move one email at a time until the folder is empty?
How do I make the below loop until all emails are moved?
Sub MoveToFiled()
On Error Resume Next
Dim ns As Outlook.NameSpace
Dim moveToFolder As Outlook.MAPIFolder
Dim objItem As Outlook.MailItem
Set ns = Application.GetNamespace("MAPI")
Set moveToFolder = ns.Folders("Archive -...
I am new to VBA coding in Outlook and am struggling to follow some of the logic. I'm needing to move around 35,000 emails from an Archive folder "Deleted Items" one at a time to a Archive folder "Deleted." Our system prevents moving a batch of emails, based on size, and I don't want to break...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.