RevitTricks

Dim objIe ''As InternetExplorer                                                         ''ie subroutine operands Dim wscript As New objWSCRIPT_emulator Sub ViewInternetHeader ()     Dim olItem As Outlook.MailItem , olMsg As Outlook.MailItem     Dim strheader As String    InitIE "Starting View Header" , objIe     For Each olItem In Application.ActiveExplorer.Selection         strheader = GetInetHeaders ( olItem )          MsgIE strheader , objIe         'Set olMsg = Application.CreateItem(olMailItem)  ...

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