Някои потребители желаят да поискат отговори за среща само от необходимите присъстващи, когато изпращат покана за среща в Outlook. Тази статия ще научи как да го реализирате чрез Outlook VBA.
За да не изисквате отговори, когато изпращате покани за среща, можете просто да щракнете върху бутона „Опции за отговор“ и да премахнете отметката от опцията „Искане на отговори“. Но по този начин всички присъстващи, независимо дали са задължителни или незадължителни, няма да бъдат задължени да изпращат своите отговори на срещата. В действителност обаче most време, това, което желаете, е да не изисквате отговори от незадължителни присъстващи. В този случай трябва да потърсите други методи, като например следния.
Поискайте само необходимите присъстващи да отговорят на вашата покана за среща
- На първо място стартирайте приложението си 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 играе важна роля за избягване на неочаквани атаки от вируси и зловреден софтуер. В днешно време вирусите стават все по-сложни. За да блокирате вирусна инфекция и злонамерен софтуер, не само трябва да блокирате нежелана поща навреме, но също така е по-добре да докладвате подозрителните имейл домейни или адреси на Microsoft, което помага за укрепването на филтъра за нежелана поща в Outlook. Освен това, освен вградения филтър за нежелана поща, трябва да поддържате и страхотен инструмент за поправка, като напр. DataNumen Outlook Repair. Има много по-висока Възстановяване на Outlook скорост от конкурентите си.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително възстанови sql и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com