Як автоматично переслати запрошення на нараду конкретній особі, приймаючи його в Outlook

Поділитися зараз:

Якщо в Outlook вам часто потрібно переслати запрошення на зустріч, яке ви приймаєте, конкретній особі, ви будете прагнути до методу, який може досягти “автоматичної переадресації”. У цій статті ми поділимося з вами таким розумним підходом.

З деяких причин, як-от додавання наради до календаря вашого помічника, вам завжди може знадобитися переслати прийняте запрошення на зустріч своєму помічнику. У цьому сценарії ви можете застосувати наступний метод, який може виконувати одночасно дії "прийняти" та "пересилати" одним клацанням миші.

Автоматично пересилати запрошення на нараду конкретній особі при прийнятті

Автоматично пересилати запрошення на нараду конкретній особі, приймаючи його

  1. На самому початку сtart програми Outlook.
  2. Потім, діставшись до його головного вікна, потрібно натиснути клавіші “Alt + F11”.
  3. Далі ви увійдете у вікно “Microsoft Visual Basic for Applications”, у якому вам потрібно буде відкрити порожній модуль.
  4. Згодом скопіюйте та вставте наступний код у цей модуль.
Sub AutoForwardMeetingInvitation_WhenAccepting()
    Dim objMeetingInvitation As Outlook.MeetingItem
    Dim objMeeting As Outlook.AppointmentItem
    Dim objMeetingResponse As Outlook.MeetingItem
    Dim objForwardMeeting As Outlook.MeetingItem
 
    Select Case TypeName(Application.ActiveWindow)
           Case "Explorer"
                Set objMeetingInvitation = ActiveExplorer.Selection.Item(1)
           Case "Inspector"
                Set objMeetingInvitation = ActiveInspector.CurrentItem
    End Select
 
    If TypeOf objMeetingInvitation Is MeetingItem Then
 
       Set objMeeting = objMeetingInvitation.GetAssociatedAppointment(True)
 
       'accept the meeting
       Set objMeetingResponse = objMeeting.Respond(olMeetingAccepted)
       objMeetingResponse.Send
 
       'Forward meeting invitation
       Set objForwardMeeting = objMeetingInvitation.Forward
       With objForwardMeeting
            'Change the specific recipient
            .Recipients.Add ("johnjmith@datanumen.com")
            .Send
      End With
 
    End If
End Sub

Код VBA - Автоматично пересилати запрошення на нараду конкретній особі, приймаючи його

  1. Після цього ви можете вийти з поточного вікна.
  2. Потім перейдіть до меню «Файл» і натисніть кнопку «Параметри».
  3. У вікні «Параметри Outlook» ви можете перейти на вкладку «Панель швидкого доступу».
  4. Далі виконайте дії на скріншоті нижче, щоб додати новий макрос на панель швидкого доступу.Додайте макрос на панель швидкого доступу
  5. Пізніше ви зможете повернутися до області навігації поштою, як зазвичай.
  6. Нарешті ви можете зробити знімок:
  • Для якtart, виберіть або відкрийте запрошення на зустріч у списку розсилки.
  • Потім натисніть кнопку макросу на панелі швидкого доступу.
  • Одночасно ви побачите два елементи в папці "Вихідні". Одним із них є прийнята відповідь організатору зустрічі. Інший пересилає запрошення на нараду заздалегідь визначеному одержувачу.

Правильно реагуйте на помилки Outlook

Як ми всі знаємо, Outlook схильний до помилок. Таким чином, ви повинні навчитися деяким ефективним трюкам, щоб боротися з ними. Загалом, ви можете спробувати виправити їх шляхом restarting Outlook у безпечному режимі. Якщо помилки не зникають, ви можете відремонтувати пакет Office, відновити профіль Outlook або повернутися до вбудованого інструменту. Але якщо всі перераховані вище засоби зазнають невдачі, вам залишається вибір, окрім як використовувати набагато більш потужний інструмент DataNumen Outlook Repair. Він може ремонт PST такі питання, як вітерець.

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

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

Поділитися зараз:

Коментарі закриті.