Որոշ օգտատերեր ցանկանում են միայն 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 Junk Email ֆիլտրը կարևոր դեր է խաղում վիրուսների և չարամիտ ծրագրերի անսպասելի հարձակումներից խուսափելու համար: Մեր օրերում վիրուսներն ավելի ու ավելի են բարդանում։ Որպեսզի արգելափակեք վիրուսով վարակվածությունը և չարամիտ ծրագրերի հարձակումը, ոչ միայն պետք է ժամանակին արգելափակեք սպամը, այլ նաև ավելի լավ է տեղեկացնեք էլփոստի կասկածելի տիրույթների կամ հասցեների մասին Microsoft-ին՝ օգնելով ուժեղացնել Outlook Junk Email ֆիլտրը: Բացի այդ, բացի ներկառուցված անպետք էլփոստի զտիչից, դուք պետք է նաև պահեք ահռելի վերանորոգման գործիք, ինչպիսին է. DataNumen Outlook Repair. Այն ունի շատ ավելի բարձր Outlook- ի վերականգնում ցուցանիշը, քան իր մրցակիցները:
Հեղինակի ներածություն.
Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում վերականգնել sql և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com

