6/17/2023 0 Comments Mass rename folders![]() If InStr(LCase(objCurrentFolder.Name), LCase(strFind)) > 0 Then Private Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder) MsgBox "Complete!", vbExclamation, "Rename Folders" StrReplace = InputBox("Enter the specific words you want to change to. StrFind = InputBox("Enter the specific words you want to change.") 'You need to input the specific words for find and replace Here's the (almost) finished code: Public strFind, strReplace As String With this so it searches / modifies only the subfolders within the folder I currently have selected: Set objFolders = .Folders I had to modify the code a little by replacing: Set objFolders = ("Personal").Folders I finally found a great answer yesterday: Turns out Outlook VBA was the way to go for this task. I have no experience with Outlook and/or attempts to manipulate it with external tools like VBA or Powershell, but I'm willing to learn! I'm pretty good at using Powershell with Excel and SQL Server Databases. I'm very experienced with Excel VBA and Macros. So basically what I'm wanting to do is replace "CHOI" or "CHIOI" with "CHI-OI" and then if there's 5 digits, turn it into 6 digits with a leading 0. Or just xxxxx (I'll know what prefix needs to get attached to this person's folders) Until now, there was no naming structure, so everyone uses whatever made sense in their personal brain. Where the x's are numeric and must now be 6 numbers My problem is having to rename several thousand outlook folders so they are organized!Įnd Goal is to have all email folders renamed starting with the full file number our company software set for this shipment: CHI-AE0xxxxx (air export) The importing of archives isn't a problem. I'm using a Windows 10 Pro computer with Office 365 Business Premium installed on the local machine and Outlook is using a current "Exchange Online" version 15.20.xxxx.xx so everything is available in the cloud. I'm now tasked with a massive project to import and reorganize about 50 outlook pst archives (probably around 100-200GB) into a single library account for my freight forwarding company.
0 Comments
Leave a Reply. |