Как преобразовать встречу в встречу с Outlook VBA

Перспективные решения 29 сентября, 2025

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

На самом деле собрание Outlook также является элементом встречи. Основное различие между ними заключается в том, что собрание содержит участников, а встреча — нет. Таким образом, довольно легко превратить обычную встречу в встречу. Просто откройте встречу и нажмите кнопку «Пригласить участников» на вкладке «Назначение».

Однако Outlook не позволяет нам легко превратить встречу в встречу. У нас нет встроенной поддержки для удаления участников. Следовательно, в общем, если вы хотите реализовать это, обходной путь — вручную создать новую встречу с теми же данными, что и встреча. Это займет довольно много времени. К счастью, через Outlook VBA вы можете добиться этого с помощью utm.ost простота. Читайте дальше, чтобы получить коды VBA и подробные шаги.

Преобразование собрания в встречу с помощью Outlook VBA

К start, перейдите на вкладку «Разработчик» и нажмите кнопку «Visual Basic».
Затем в новом окне «Microsoft Visual Basic для приложений» нужно вставить новый модуль.
Затем скопируйте и вставьте в него следующие коды VBA.

Sub ConvertMeetingtoAppt()
    Dim olSel As Selection
    Dim obj As Object
    Dim olMeeting As AppointmentItem
    Dim Recips As Recipients
    Dim Recip As Recipient
 
    Set olSel = Outlook.Application.ActiveExplorer.Selection
 
    For Each obj In olSel
        If TypeName(obj) = "AppointmentItem" Then
           Set olMeeting = obj
           If olMeeting.MeetingStatus <> olNonMeeting Then
              If MsgBox("Are you sure to convert the selected meeting into an appointment?", vbYesNo + vbQuestion, "Confirm Convert") = vbYes Then
                 Set Recips = olMeeting.Recipients
                 For Each Recip In Recips
                     Recip.Delete
                 Next
                 olMeeting.MeetingStatus = olNonMeeting
                 olMeeting.Save
              End If
           End If
        End If
    Next
End Sub

Впоследствии вы можете вернуться в главное окно Outlook и продолжить добавлять новый макрос на панель быстрого доступа.
В конце концов вы можете попробовать этот код.

Сначала откройте правильную папку календаря и расскажите об исходной встрече.
Затем нажмите кнопку макроса на панели быстрого доступа.
Позже вы получите окно сообщения, спросите, уверены ли вы, что конвертируете.
Когда вы выберете «Да», встреча сразу же будет преобразована в встречу.

Не смотрите свысока на резервное копирование данных Outlook

Outlook уязвим для различных факторов, включая вирусы, вредоносное ПО, перебои в подаче электроэнергии и так далее. Тем самым, для предотвращения Повреждение данных Outlook PST, вы должны настойчиво делать регулярные резервные копии данных Outlook. Это имеет большое значение. Никогда не обходите его стороной. Кроме того, предлагается приобрести мощный инструмент для ремонта, который пригодится, например DataNumen Outlook Repair.

Об авторе:

Ширли Чжан — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая ремонт поврежден SQL Server и программные продукты для ремонта Outlook. Для получения дополнительной информации посетите www.datanumen.com