Как найти и заменить текст темы в сообщениях или задачах в Outlook?
В Outlook, если есть несколько тем сообщения или темы задач, которые необходимо заменить указанным вами текстом, вы, конечно, можете изменить их одну за другой, но есть ли у вас какой-либо быстрый способ завершить эту работу сразу в Outlook?
Найти и заменить текст темы в нескольких сообщениях с помощью кода VBA
Найдите и замените текст темы в нескольких задачах с помощью кода VBA
Найти и заменить текст темы в нескольких сообщениях с помощью кода VBA
Найдите конкретный текст и замените его другим в нескольких темах сообщений, приведенный ниже код VBA может оказать вам услугу, выполните следующие действия:
1. Выберите письма, которые вы хотите найти, и замените текст темы, а затем удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2, Затем нажмите Вставить > Модули, скопируйте и вставьте приведенный ниже код в открытый пустой модуль, см. снимок экрана:
Код VBA: найти и заменить текст темы в нескольких сообщениях:
Option Explicit
Sub FindAndReplaceInSubject()
Dim xItem As Object
Dim xNewSubject As String
Dim xMailItem As MailItem
Dim xExplorer As Explorer
Dim i As Integer
On Error Resume Next
Set xExplorer = Outlook.Application.ActiveExplorer
For i = xExplorer.Selection.Count To 1 Step -1
Set xItem = xExplorer.Selection.Item(i)
If xItem.Class = olMail Then
Set xMailItem = xItem
With xMailItem
xNewSubject = Replace(.Subject, "kte", "Kutools for Excel")
.Subject = xNewSubject
.Save
End With
End If
Next
End Sub
Внимание: В приведенном выше коде: xNewSubject = Заменить (.Subject, "kte", "Kutools for Excel")"KTE"- это старый текст, который вы хотите найти, а"Kutools for Excel»- это новый текст, который нужно заменить. Пожалуйста, измените их по своему усмотрению.
3, Затем нажмите F5 ключ для запуска этого кода, и конкретный текст в темах сообщений был заменен новым текстом, как вам нужно, см. снимок экрана:
Найдите и замените текст темы в нескольких задачах с помощью кода VBA
Если вам нужно найти и заменить текст темы в задачах, следующий код VBA также может вам помочь.
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2, Затем нажмите Вставить > Модули, скопируйте и вставьте приведенный ниже код в открытый пустой модуль, см. снимок экрана:
Код VBA: найти и заменить текст темы во всех задачах:
Option Explicit
Sub FindReplaceTextsInAllTaskSubjects()
Dim xPane As NavigationPane
Dim xModule As TasksModule
Dim xGroup As NavigationGroup
Dim xNavFolder As NavigationFolder
Dim xTaskItem As Outlook.TaskItem
Dim i, k As Integer
Dim xFindStr, xReplaceStr As String
Dim xTotalCount As Long
On Error Resume Next
xFindStr = InputBox("Type the words to find:", "Kutools for Outlook", xFindStr)
If Len(Trim(xFindStr)) = 0 Then Exit Sub
xReplaceStr = InputBox("Type the words to replace:", "Kutools for Outlook", xReplaceStr)
If Len(Trim(xReplaceStr)) = 0 Then Exit Sub
xTotalCount = 0
Set xPane = Outlook.Application.ActiveExplorer.NavigationPane
Set xModule = xPane.Modules.GetNavigationModule(olModuleTasks)
Set xGroup = xModule.NavigationGroups.Item(1)
For i = xGroup.NavigationFolders.Count To 1 Step -1
Set xNavFolder = xGroup.NavigationFolders.Item(i)
For k = xNavFolder.Folder.Items.Count To 1 Step -1
Set xTaskItem = xNavFolder.Folder.Items(k)
If InStr(xTaskItem.Subject, xFindStr) > 0 Then
xTaskItem.Subject = Replace(xTaskItem.Subject, xFindStr, xReplaceStr)
xTaskItem.Save
xTotalCount = xTotalCount + 1
End If
Next
Next
MsgBox xTotalCount & " task subjects have been changed!", vbInformation + vbOKOnly, "Kutools for Outlook"
End Sub
3, Затем нажмите F5 нажмите клавишу для выполнения этого кода, и появится окно подсказки, введите текст, который вы хотите найти из тем задач, см. снимок экрана:
4. Нажмите OK, и появится еще одно окно подсказки, введите новый текст, который вы хотите заменить, см. снимок экрана:
5. Затем нажмите OK, и отобразится диалоговое окно, чтобы сообщить вам, сколько предметов было изменено, см. снимок экрана:
6. Нажмите OK, а старые тексты в тематиках заданий заменены новыми, см. снимок экрана:
Лучшие инструменты для офисной работы
Последние новости: запуск Kutools для Outlook Бесплатная версия!
Испытайте совершенно новые Kutools для Outlook БЕСПЛАТНАЯ версия с более чем 70 потрясающими функциями, которыми вы можете пользоваться НАВСЕГДА! Нажмите, чтобы скачать сейчас!
???? Автоматизация электронной почты: Автоответ (доступно для POP и IMAP) / Расписание отправки писем / Автоматическое копирование/скрытая копия по правилам при отправке электронной почты / Автопересылка (расширенные правила) / Автоматическое добавление приветствия / Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...
📨 Управление электронной почтой: Отозвать электронные письма / Блокировка мошеннических писем от субъектов и других лиц / Удалить повторяющиеся электронные письма / Расширенный поиск / Объединение папок ...
📁 Вложения Pro: Пакетное сохранение / Пакетное отсоединение / Пакетное сжатие / Автосохранение / Авто отсоединение / Автоматическое сжатие ...
???? Магия интерфейса: 😊Больше красивых и крутых смайлов / Напоминать, когда приходят важные письма / Свернуть Outlook вместо закрытия ...
???? Чудеса в один клик: Ответить всем с входящими вложениями / Антифишинговые письма / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминания о днях рождения ...
