Recent content by Spirit ICT

  1. S

    Looping

    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?
  2. S

    Looping

    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 -...
  3. S

    Moving Emails Between Archive Folders

    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...
Top