Spark! Pro Series - November 11th, 2022 Spiceworks Originals. I have looked everywhere and there does not seem to be a good option for. that is I would like to receive some kind of alert when it loses connection for whatever reason. Hi guys, so I have been looking for a way to monitor when one of my cameras go Down. any Ideas on how to ping a private IP remotely? Security. The type of websites that literally just have information about the company on there, they might have a contact form (input fields) but no other real interactive features, no i. Hi all,Just after peoples opinions on pentesting basic brochure type websites. Pentesting a basic brochure type website Security. Snap! - Astronaut Training, Beaming Energy, VR Controlled Bots, True Game Over Spiceworks Originalsįlashback: Back on November 11, 1675, German mathematician Gottfried Wilhelm Leibniz demonstrates integral calculus for the first time (Read more HERE.). 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)
