Массовое переименование папок Outlook с использованием строк замены

Question

Массовое переименование папок Outlook с использованием строк замены

Создал пакет npm для этого https://www.npmjs.com/package/array.chunk

  var result = [];
  for (var i = 0; i < arr.length; i += size) {
    result.push(arr.slice(i, size + i));
  }

  return result;

0

vba powershell outlook

задан LotPings 5 March 2019 в 22:16

1 ответ

Другие вопросы по тегам:

vba powershell outlook

Похожие вопросы:

score 0 · Answer 1

Оказывается, Outlook VBA был подходом для этой задачи.

Вчера я наконец нашел отличный ответ:

https://www.datanumen.com/blogs/batch-find-replace-specific-words-outlook-folder-names/ [114 ]

Мне пришлось немного изменить код, заменив:

Set objFolders = Outlook.Application.Session.Folders("Personal").Folders

Таким образом, он ищет / изменяет только подпапки в папке, которую я выбрал в настоящее время:

[111 ]

Вот (почти) готовый код:

Public strFind, strReplace As String

Sub FindReplaceWordsinFolderNames()

    Dim objFolders As Outlook.Folders
    Dim objFolder As Outlook.Folder

    Set objFolders = Application.ActiveExplorer.CurrentFolder.Folders

    'You need to input the specific words for find and replace
    strFind = InputBox("Enter the specific words you want to change.")
    strReplace = InputBox("Enter the specific words you want to change to. (Case Sensitive)")

    For Each objFolder In objFolders
        Call ProcessFolders(objFolder)
    Next

    MsgBox "Complete!", vbExclamation, "Rename Folders"

End Sub

Private Sub ProcessFolders(ByVal objCurrentFolder As Outlook.Folder)
    Dim objSubfolder As Outlook.Folder

    On Error Resume Next
    If InStr(LCase(objCurrentFolder.Name), LCase(strFind)) > 0 Then
       'Find and replace the specific words
       objCurrentFolder.Name = Replace(LCase(objCurrentFolder.Name), LCase(strFind), strReplace)
    End If

    'Process all folders recursively
    If objCurrentFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurrentFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

У него нет проверки ошибок, поэтому, если я нажму кнопку «Отмена» в поле ввода или оставлю пустым и нажму «ОК», макрос будет действовать как "" - это strFind, поэтому он превращает все имена папок в строчные, lol.

Я думаю, что добавление этого сразу после того, как 2 поля ввода решат это, но я проверю это завтра:

    If strFind = "" Or strReplace = "" Then
        Exit Sub
    End If

Это решение кажется мне действительно хорошим, так как существует так много разновидностей поисковых строк. Мне нужно решить, что жесткое кодирование каждого было бы кошмаром. Вместо этого это позволит мне на лету приспособиться к тому, как работал мозг каждого пользователя, когда он разрабатывал свои структуры именования на протяжении многих лет.

После просмотра и использования этого я разработал еще один макрос для пакетного перемещения всего из выбранной директории в любую папку, в которую я хочу их объединить ... для создания моей истинной библиотеки файлов, но это другая тема, поэтому я полагаю, Вы не хотите, чтобы это было опубликовано здесь.