CHANGE COLOR SCHEME OUTLOOK 365 PRO
Spark! Pro Series - Spiceworks Originals.I would like to know how others are handling this, our auditors wants us to have all of our data encrypted on our servers, workstations, and devices.I want to know the best way to go about this and how well does it work with MS SQL server and our ERP syst. Encryption for servers, workstations and devices Security.In the object ThisOutlookSession, define the following function: 'prints the folder path and name in the VB Editor's Immediate windowĬall ColorizeOneFolder(strTempFolderPath, strFolderColour)įor Each olNewFolder In olProjectRootFolder.FoldersĬall ColorizeFolderAndSubFolders(olNewFolder.FolderPath, strFolderColour)Ĭall ColorizeFolderAndSubFolders("\\Personal\Documents\000-Mgmt-CH\100-People", "blue")Ĭall ColorizeFolderAndSubFolders("\\Personal\Documents\000-Mgmt-CH\200-Projects", "red")Ĭall ColorizeFolderAndSubFolders("\\Personal\Documents\000-Mgmt-CH\500-Meeting", "green")Ĭall ColorizeFolderAndSubFolders("\\Personal\Documents\000-Mgmt-CH\800-Product", "magenta")Ĭall ColorizeFolderAndSubFolders("\\Personal\Documents\000-Mgmt-CH\600-Departments", "grey")Ĭall ColorizeFolderAndSubFolders("\\Mailbox - Dan Wilson\Inbox\Customers", "grey")Ĥ. StrTempFolderPath = olTempFolder.FolderPath Set olTempFolder = olProjectRootFolder.Folders(i) ' Loop through the items in the current folder.įor i = To 1 Step -1 Set olProjectRootFolder = GetFolder(strFolderPath)Ĭall ColorizeOneFolder(strFolderPath, strFolderColour) ' this procedure colorizes the foler given by strFolderPath and all subfolfersĭim olProjectRootFolder As Outlook.folder Sub ColorizeFolderAndSubFolders(strFolderPath As String, strFolderColour As String) 'Debug.Print "setting colour to " + FolderPath + " as " + FolderColour Set myPic = LoadPicture("C:\icons\" + FolderColour + ".ico")
Sub ColorizeOneFolder(FolderPath As String, FolderColour As String) Set TempFolder = SubFolders.Item(FoldersArray(i)) 'Remove Leading slashes in the folder pathįolderPath = Right(FolderPath, Len(FolderPath) - 2)
' Returns an Outlook folder object basing on the folder path Text Function GetFolder(ByVal FolderPath As String) As Outlook.folder
0 kommentar(er)
