Як перетворити зустріч на зустріч за допомогою Outlook VBA

Багато користувачів прагнуть методу перетворення зустрічі Outlook у загальну зустріч. У цій статті буде представлено швидкий спосіб його швидкого виконання за допомогою Outlook VBA.

Насправді зустріч Outlook - це також пункт призначення. Основна відмінність між ними полягає в тому, що зустріч містить присутніх, а призначення - ні. Таким чином, перетворити звичайну зустріч на зустріч досить легко. Просто відкрийте зустріч і натисніть кнопку «Запросити учасників» на вкладці «Призначення».

Однак, Outlook не підтримує перетворення зустрічі на зустріч. У ньому немає вбудованої підтримки для видалення учасників. Тому, загалом, якщо ви хочете це зробити, обхідним шляхом є створення нової зустрічі вручну з тими ж даними, що й у зустрічі. Це займе досить багато часу. На щастя, за допомогою Outlook VBA ви можете зробити це з максимальною легкістю. Читайте далі, щоб отримати коди VBA та детальні кроки.

Перетворіть зустріч на зустріч за допомогою Outlook VBA

1. Для початку перейдіть на вкладку «Розробник» і натисніть кнопку «Visual Basic».
2. Потім у новому вікні “Microsoft Visual Basic for Applications” потрібно вставити новий модуль.
3. Далі скопіюйте та вставте в нього такі коди 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

4. Згодом ви можете повернутися до головного вікна Outlook і продовжувати додавати новий макрос на панель швидкого доступу.
5. Зрештою ви можете спробувати цей код.

• Спочатку відкрийте правильну папку календаря та висоту на вихідній зустрічі.
• Потім натисніть кнопку макросу на панелі швидкого доступу.
• Пізніше ви отримаєте вікно повідомлення, запитайте, чи впевнені ви в конвертації.
• Коли ви виберете “Так”, зустріч відразу зміниться на зустріч.

Не дивіться на резервне копіювання даних Outlook

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

Вступ автора:

Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі ремонт корумпований SQL Server та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com