Outlook archive won't move over files that are flagged for follow up... this routine moves them over- flag intact. (Alpha - use at your own risk)
Outlook archive won't move over files that are flagged for follow up... this routine moves them over- flag intact. (Alpha - use at your own risk) There are issues with special folders like syncissues but this seems to work for the most part. There is a loop that waits 5 minutes and repeats [ Do While ( Date + Time ) < startup + 30 / 60 / 24 And GblIntRerun > 0 ] This is for office 365 as files tend to trickle down from the server when doing large moves. Outlook subroutine to move over all files over x number of days old (Set to 0 by default) Set objSourceFolder = GetFolderPath ( "\\ [userid] @fieldstoneae.com\" ) Set objDestFolder = GetFolderPath ( "\\ [archivename-archive] \" ) Watch for Wraps! Option Explicit Const Version = "2014-01-12.00" Dim GBLlngMovedItems As Long Dim GblIntRerun As Integer D...