Как найти и заменить тему встречи в календаре Outlook?

Поиск и замена темы встречи в календаре Outlook полезен, когда вы обнаружите, что некоторые темы необходимо заменить одинаковыми текстами в массе. Или замените слово Копировать в поле темы после импорта данных в Outlook. В этой статье представлен код VBA для поиска и замены нескольких тем для встреч. Пожалуйста, просмотрите для более подробной информации.

Найдите и замените тему встречи кодом VBA

Найдите и замените тему встречи кодом VBA

В этом разделе вы можете найти и заменить тему встречи кодом VBA следующим образом.

1. Во-первых, вам нужно установить в Outlook низкие настройки макроса.

1) В Outlook 2010 и 2013 щелкните Файл > Опции. И в Параметры Outlook диалоговое окно, нажмите Центр управления на левой панели, затем щелкните Параметры центра .

В Центр управления диалоговое окно, нажмите Настройки макроса на левой панели, затем выберите Включить все макросы вариант в Настройки макроса раздел. И нажмите кнопку OK кнопка. Смотрите скриншот:

2). В Outlook 2007 нажмите Инструменты > Центр управления. В Центр управления диалоговое окно, нажмите Настройки макроса на левой панели, затем выберите Нет проверки безопасности для макросов и нажмите OK .

2. нажмите другой + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

3. в Microsoft Visual Basic для приложений окно, дважды щелкните, чтобы развернуть project1 > Объекты Microsoft Outlook > Эта сессия Outlook , чтобы открыть редактор 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 Перспективы всплывает диалоговое окно. Щелкните значок OK .

6. В секунду Microsoft Перспективы диалоговом окне введите текст, который вы хотите заменить, а затем щелкните значок OK .

7. В третьем Microsoft Перспективы диалоговом окне введите текст, который вы хотите заменить, и щелкните OK.

Внимание: Если вы просто хотите удалить все слова «Копировать» из темы в указанном календаре, оставьте это поле пустым.

8. Нажмите OK в диалоговом окне ниже.

9. в Выбор папки в диалоговом окне выберите календарь в указанной учетной записи электронной почты, а затем щелкните значок OK кнопка. Смотрите скриншот:

10. Затем появится диалоговое окно, информирующее вас об успешной замене. Пожалуйста, нажмите на OK .

11. И тогда все тексты в ваших тематиках выбранного календаря были заменены новым содержанием.

---

Лучшие инструменты для офисной работы

Kutools for Outlook - Более 100 мощных функций для улучшения вашего Outlook

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

???? Автоматизация электронной почты: Нет на месте (доступно для POP и IMAP)  /  Расписание отправки писем  /  Автоматическое копирование/скрытая копия по правилам при отправке электронной почты  /  Автопересылка (расширенные правила)   /  Автоматическое добавление приветствия   /  Автоматически разделять электронные письма от нескольких получателей на отдельные сообщения ...

📨 Управление электронной почтой: Легко вспоминать электронные письма  /  Блокировка мошеннических писем от субъектов и других лиц  /  Удалить повторяющиеся электронные письма  /  Поиск  /  Объединение папок ...

📁 Вложения Pro: Пакетное сохранение  /  Пакетное отсоединение  /  Пакетное сжатие  /  Автосохранение   /  Авто отсоединение  /  Автоматическое сжатие ...

???? Магия интерфейса: 😊Больше красивых и крутых смайлов   /  Повысьте производительность Outlook с помощью представлений с вкладками  /  Свернуть Outlook вместо закрытия ...

???? Чудеса в один клик: Ответить всем с входящими вложениями  /   Антифишинговые письма  /  🕘Показать часовой пояс отправителя ...

👩🏼‍🤝‍👩🏻 Контакты и календарь: Пакетное добавление контактов из выбранных писем  /  Разделить группу контактов на отдельные группы  /  Удалить напоминания о днях рождения ...

Более Особенности 100 Ждем вашего исследования! Нажмите здесь, чтобы узнать больше.

Узнать больше       Бесплатная загрузка      Купите