Кейбір пайдаланушылар Outlook жиналысына шақыру жіберген кезде ғана қажетті қатысушылардан жиналыс жауаптарын сұрағысы келеді. Бұл мақала оны Outlook VBA арқылы қалай жүзеге асыруға болатынын үйретеді.
Жиналысқа шақыру жіберген кезде жауап сұрамау үшін сіз тек «Жауап параметрлері» батырмасын басып, «Жауаптарды сұрау» опциясын алып тастай аласыз. Бірақ, осылайша, барлық қатысушылар міндетті немесе міндетті емес, өздерінің жауаптарын жіберуге міндетті болмайды. Алайда, шын мәнінде, мost Уақыт өте келе, сіздің қалайтындарыңыз - бұл міндетті емес қатысушылардан жауап сұрамау. Бұл жағдайда сіз келесі әдістер сияқты басқа әдістерді іздеуіңіз керек.
Қажетті қатысушылардан сіздің жиналысқа шақыруға жауап беру үшін ғана сұраңыз
- Біріншіден, Outlook қосымшасын іске қосыңыз.
- Содан кейін негізгі Outlook экранындағы «Alt + F11» батырмаларын басыңыз.
- Одан кейін, 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 Junk Email сүзгісі күтпеген вирус пен зиянды бағдарламалардың шабуылын болдырмауға маңызды рөл атқарады. Қазіргі уақытта вирустар барған сайын жетілдірілуде. Вирустық инфекция мен зиянды бағдарламалардың шабуылына тосқауыл қою үшін спамдарды уақытында блоктап қана қоймай, күдікті электрондық пошта домендері немесе мекен-жайлары туралы Microsoft корпорациясына хабарлау керек, бұл Outlook қалаусыз электрондық пошта сүзгісін нығайтуға көмектеседі. Сонымен қатар, қажет емес электрондық поштаның сүзгісінен басқа, сіз де жөндеудің керемет құралын ұстауыңыз керек, мысалы DataNumen Outlook Repair. Ол әлдеқайда жоғары Outlook қалпына келтіру қарсыластарына қарағанда жылдамдық.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. қалпына келтіру кв және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com