12/9/2023 0 Comments A way to export file location listPrivate Sub LoopFolders(Folders As Outlook.Folders) GetDesktopFolder = objShell.SpecialFolders("Desktop") Set objShell = CreateObject("WScript.Shell") WriteToATextFile (StructuredFolderName(F.FolderPath, F.Name)) MyFile = GetDesktopFolder() & "\outlookfolders.txt"īase = Len(F.FolderPath) - Len(Replace(F.FolderPath, "\", "")) + 1 Result = MsgBox("Do you want to structure the output?", vbYesNo + vbDefaultButton2 + vbApplicationModal, "Output structuring") ' You can export the folder names with their full path ' names starting from the currently selected folder. 'Description: Outlook macro which allows you to export all folder You can use the code below for review or manual installation. The following code is contained in the zip-file referenced in the Quick Install.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |