Деякі користувачі бажають запитувати відповіді на збори лише у необхідних учасників, надсилаючи запрошення на нараду в Outlook. Ця стаття навчить, як це реалізувати за допомогою Outlook VBA.
Щоб не запитувати відповіді під час надсилання запрошень на зустрічі, просто натисніть кнопку «Параметри відповіді» та зніміть прапорець «Запитувати відповіді». Але, таким чином, всі учасники, незалежно від необхідності чи необов’язковості, не повинні будуть надсилати відповіді на свої збори. Однак насправді мost Часом, що ви хочете, це не вимагати відповіді від необов’язкових учасників. У цьому випадку вам доведеться шукати інші методи, наприклад, наступний.
Попросіть учасників лише відповісти на запрошення на вашу зустріч
- Перш за все, запустіть програму Outlook.
- Потім натисніть клавіші “Alt + F11” на головному екрані Outlook.
- Далі, отримавши доступ до редактора Outlook VBA, вам слід знайти та відкрити проект “ThisOutlookSession”.
- Згодом скопіюйте наступний код 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
- Після цього вам слід підписати цей проект VBA.
- Залишайтеся в поточному макросі та натисніть "Інструменти" на панелі інструментів.
- Потім виберіть опцію «Цифрові підписи».
- У діалоговому вікні, що з’явиться, дотримуйтесь інструкцій на екрані, щоб заповнити його.
- Пізніше перевірте налаштування макроса Outlook, щоб переконатися, що макрос із цифровим підписом увімкнено.
- Відтепер, коли ви надсилаєте запрошення на зустріч, необов’язкові учасники не будуть зобов’язані відповідати. З їх точки зору, запрошення на зустріч буде виглядати так:
Боротьба з вірусами та шкідливим програмним забезпеченням в Outlook
Фільтр небажаної електронної пошти Outlook відіграє важливу роль у запобіганні несподіваним атакам вірусів та шкідливих програм. У наш час віруси стають все більш досконалими. Щоб заблокувати зараження вірусом та зловмисне програмне забезпечення, слід не лише вчасно блокувати спам, але й краще повідомляти корпорації Майкрософт про підозрілі домени електронної пошти чи адреси, допомагаючи посилити фільтр небажаної пошти Outlook. Крім того, окрім вбудованого фільтра небажаної електронної пошти, вам також потрібно тримати грізний інструмент ремонту, такий як DataNumen Outlook Repair. Він має набагато вищий Відновлення Outlook швидкість, ніж його конкуренти.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновити sql та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com