Как запросить обязательных участников только для ответа на ваше приглашение на собрание в Outlook

Некоторые пользователи желают запрашивать ответы на собрания только от необходимых участников при отправке приглашения на собрание Outlook. Эта статья научит, как реализовать это через Outlook VBA.

Чтобы не запрашивать ответы при отправке приглашений на собрания, вы можете просто нажать кнопку «Параметры ответа» и снять флажок «Запрашивать ответы». Но, таким образом, всем участникам, независимо от того, требуются они или нет, не требуется отправлять свои ответы на собрания. Однако на самом деле мost время, что вы хотите, так это не запрашивать ответы от необязательных участников. В этом случае вам придется искать другие методы, такие как следующий.

Запросить только обязательных участников, чтобы они ответили на ваше приглашение на собрание

1. Прежде всего, запустите приложение Outlook.
2. Затем нажмите клавиши «Alt + F11» на главном экране Outlook.
3. Далее, получив доступ к редактору Outlook VBA, вам необходимо найти и открыть проект «ThisOutlookSession».
4. Затем скопируйте следующий код VBA в это окно проекта.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMeeting As Outlook.MeetingItem
    Dim objCopiedMeeting As Outlook.AppointmentItem
    Dim objOriginalAttendee As Outlook.recipient
    Dim objCopiedAttendee As Outlook.recipient
 
    If TypeOf Item Is MeetingItem Then
       Set objMeeting = Item
 
       For i = objMeeting.Recipients.count To 1 Step -1
           'Remove Optional Attendees from the Original Meeting Invitation
           Set objOriginalAttendee = objMeeting.Recipients.Item(i)
           If objOriginalAttendee.Type = olOptional Then
              objOriginalAttendee.Delete
           End If
       Next
 
      'Copy the Meeting
      Set objCopiedMeeting = objMeeting.GetAssociatedAppointment(True).Copy
      'Disable "Request Response" Feature in the Copied Meeting
      objCopiedMeeting.ResponseRequested = False
 
      For i = objCopiedMeeting.Recipients.count To 1 Step -1
          'Add the Previously Removed Optional Attendees
          Set objCopiedAttendee = objCopiedMeeting.Recipients.Item(i)
          If objCopiedAttendee.Type = olRequired Then
             objCopiedAttendee.Delete
          End If
      Next
 
      'Send out the Copied Meeting
      objCopiedMeeting.Send
      'Delete the Copied Meeting after Sending
      objCopiedMeeting.Delete
    End If
End Sub

5. После этого вы должны подписать этот проект VBA.

• Оставайтесь в текущем макросе и нажмите «Инструменты» на панели инструментов.
• Затем выберите опцию «Цифровые подписи».
• Во всплывающем диалоговом окне следуйте инструкциям на экране, чтобы завершить его.

6. Позже проверьте настройки макроса Outlook, чтобы убедиться, что макрос с цифровой подписью включен.
7. Отныне, когда вы отправляете приглашение на собрание, дополнительные участники не обязаны отвечать. С их точки зрения приглашение на встречу будет выглядеть следующим образом:

Борьба с вирусами и вредоносным ПО в Outlook

Фильтр нежелательной почты Outlook играет важную роль в предотвращении неожиданных атак вирусов и вредоносных программ. В настоящее время вирусы становятся все более изощренными. Чтобы заблокировать заражение вирусами и атаки вредоносных программ, вы должны не только вовремя блокировать спам, но и лучше сообщать Microsoft о подозрительных доменах или адресах электронной почты, помогая усилить фильтр нежелательной почты Outlook. Кроме того, помимо встроенного фильтра нежелательной почты, вам также необходимо иметь мощный инструмент восстановления, такой как DataNumen Outlook Repair. У него гораздо выше Восстановление Outlook скорость, чем у конкурентов.

Об авторе:

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