If > 0 Thenįor Each objSubfolder In objCurrentFolder.Folders ObjCurrentFolder.Name = Replace(LCase(objCurrentFolder.Name), LCase(strFind), strReplace) 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 Private Sub FindReplaceWordsinFolderNames()
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |