Как найти и заменить тему встречи в календаре Outlook?
Поиск и замена темы встречи в календаре Outlook полезна, когда вы обнаруживаете, что некоторые темы нужно массово заменить на одинаковые тексты. Или заменить слово «Копия» в поле темы после импорта данных в Outlook. В этой статье мы предоставляем вам код VBA для поиска и замены нескольких тем встреч. Пожалуйста, ознакомьтесь с подробностями ниже.
Поиск и замена темы встречи с помощью кода VBA
Поиск и замена темы встречи с помощью кода VBA
В этом разделе вы можете выполнить поиск и замену темы встречи с помощью кода VBA следующим образом.
1. Сначала вам нужно установить низкий уровень безопасности макросов в вашем Outlook.
1) В Outlook 2010 и 2013 нажмите «Файл» > «Параметры». В диалоговом окне «Параметры Outlook» выберите «Центр управления безопасностью» в левой панели, затем нажмите кнопку «Параметры центра управления безопасностью».
В диалоговом окне «Центр управления безопасностью» выберите «Параметры макросов» в левой панели, затем выберите опцию «Включить все макросы» в разделе «Параметры макросов». Нажмите кнопку «ОК». Смотрите скриншот:
2) В Outlook 2007 нажмите «Сервис» > «Центр управления безопасностью». В диалоговом окне «Центр управления безопасностью» выберите «Параметры макросов» в левой панели, затем выберите опцию «Не проверять макросы на безопасность» и нажмите кнопку «ОК».
2. Нажмите клавиши «Alt» + «F11», чтобы открыть окно «Microsoft Visual Basic for Applications».
3. В окне «Microsoft Visual Basic for Applications» дважды щелкните, чтобы развернуть «Проект1» > «Объекты Microsoft Outlook» > «ThisOutlookSession», чтобы открыть редактор VBA. Смотрите скриншот:
4. Скопируйте и вставьте следующий код VBA в редактор VBA. Затем нажмите клавишу «F5», чтобы запустить код.
VBA: найти и заменить тему встречи
Sub FindReplaceAppointment()
Dim oApp As Outlook.Application
Dim oCalFolder As Outlook.MAPIFolder
Dim oAppt As Outlook.AppointmentItem
Dim sOldText As String
Dim sNewText As String
Dim iCalChangedCount As Integer
Set oApp = Outlook.Application
MsgBox ("This script will perform a find/replace in the subject line of all appointments in a specified calendar.")
sOldText = InputBox("What is the text string that you would like to replace?")
sNewText = InputBox("With what would you like to replace it?")
' Check to be sure a Calendar folder was selected
Do
If Not (oCalFolder Is Nothing) Then
If (oCalFolder.DefaultItemType = olAppointmentItem) Then Exit Do
End If
MsgBox ("Please select a calendar folder from the following list.")
Set oCalFolder = Application.Session.PickFolder
On Error GoTo ErrHandler:
Loop Until oCalFolder.DefaultItemType = olAppointmentItem
' Loop through appointments in calendar, change text where necessary, keep count
iCalChangedCount = 0
For Each oAppt In oCalFolder.Items
If InStr(oAppt.Subject, sOldText) <> 0 Then
Debug.Print "Changed: " & oAppt.Subject & " - " & oAppt.Start
oAppt.Subject = Replace(oAppt.Subject, sOldText, sNewText)
oAppt.Save
iCalChangedCount = iCalChangedCount + 1
End If
Next
' Display results and clear table
MsgBox (iCalChangedCount & " appointments had text in their subjects changed from '" & sOldText & "' to '" & sNewText & "'.")
Set oAppt = Nothing
Set oCalFolder = Nothing
Exit Sub
ErrHandler:
MsgBox ("Macro terminated.")
End Sub
5. После запуска кода появится диалоговое окно «Microsoft Outlook». Нажмите кнопку «ОК».
6. Во втором диалоговом окне «Microsoft Outlook» введите текст, который вы хотите заменить, а затем нажмите кнопку «ОК».
7. В третьем диалоговом окне «Microsoft Outlook» введите текст, который вы хотите использовать как замену, и нажмите «ОК».
Примечание: Если вы просто хотите удалить все слова «Копия» из темы в указанном календаре, оставьте это поле пустым.
8. Нажмите кнопку «ОК» в нижнем диалоговом окне.
9. В диалоговом окне «Выбрать папку» выберите свой календарь под указанным аккаунтом электронной почты, а затем нажмите кнопку «ОК». Смотрите скриншот:
10. Затем появится диалоговое окно, информирующее вас о том, что замена прошла успешно. Нажмите кнопку «ОК».
11. Все тексты в темах вашего выбранного календаря будут заменены новым содержанием.
Лучшие инструменты для повышения продуктивности в Office
Срочные новости: Kutools для Outlook запускает бесплатную версию!
Оцените совершенно новую бесплатную версию Kutools для Outlook с более чем70 потрясающими функциями — пользуйтесь ими НАВСЕГДА! Нажмите, чтобы скачать прямо сейчас!
📧 Автоматизация Email: Автоответчик (доступно для POP и IMAP) / Запланировать отправку писем / Авто Копия/Скрытая копия по правилу при отправке писем / Автоматическое перенаправление (Расширенное правило) / Автоматическое добавление приветствия / Автоматическое разделение писем с несколькими получателями на отдельные сообщения ...
📨 Управление Email: Отозвать письмо / Блокировать мошеннические письма по теме и другим параметрам / Удалить дубликаты писем / Расширенный Поиск / Организовать папки ...
📁 Вложения Pro: Пакетное сохранение / Пакетное открепление / Пакетное сжатие / Автосохранение / Автоматическое отсоединение / Автоматическое сжатие ...
🌟 Магия интерфейса: 😊Больше красивых и крутых Эмодзи / Напоминание о важных письмах / Сворачивайте Outlook вместо закрытия ...
👍 Мгновенные действия: Ответить всем с вложениями / Антифишинговые Email / 🕘Показать часовой пояс отправителя ...
👩🏼🤝👩🏻 Контакты и Календарь: Пакетное добавление контактов из выбранных писем / Разделить группу контактов на отдельные группы / Удалить напоминание о дне рождения ...
