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

Author: Siluvia Last Modified: 2025-08-07

Поиск и замена темы встречи в календаре 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. В диалоговом окне «Выбрать папку» выберите свой календарь под указанным аккаунтом электронной почты, а затем нажмите кнопку «ОК». Смотрите скриншот: