Kako zahtevati, da se na vaše povabilo na sestanek v Outlooku odzovejo samo zahtevani udeleženci

Nekateri uporabniki želijo ob pošiljanju povabila na srečanje Outlook zahtevati samo odgovore na sestanek od zahtevanih udeležencev. Ta članek bo naučil, kako to realizirati prek Outlooka VBA.

Če ne želite zahtevati odgovorov pri pošiljanju vabil na sestanek, lahko preprosto kliknete gumb »Možnosti odgovora« in počistite možnost »Zahtevaj odgovore«. Vendar na ta način vsem udeležencem, ne glede na to, ali so obvezni ali neobvezni, ne bo treba poslati svojih odgovorov na srečanje. Vendar pa je v resnici most Če želite, da ne zahtevate odgovorov neobveznih udeležencev. V tem primeru morate poiskati druge metode, kot je naslednja.

Zahtevajte samo zahtevane udeležence, da se odzovejo na vaše povabilo na sestanek

1. Najprej zaženite aplikacijo Outlook.
2. Nato na glavnem zaslonu programa Outlook pritisnite tipke »Alt + F11«.
3. Potem, ko pridobite dostop do urejevalnika Outlook VBA, bi morali najti in odpreti projekt »ThisOutlookSession«.
4. Nato kopirajte naslednjo kodo VBA v to okno projekta.

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. Po tem bi morali podpisati ta projekt VBA.

• Ostanite v trenutnem makru in pritisnite »Orodja« v orodni vrstici.
• Nato izberite možnost »Digitalni podpisi«.
• V pojavnem pogovornem oknu sledite navodilom na zaslonu, da ga dokončate.

6. Pozneje preverite nastavitve Outlookovih makrov, da zagotovite, da je omogočen digitalno podpisan makro.
7. Odslej, ko pošljete povabilo na sestanek, izbirnim udeležencem ne bo treba odgovoriti. Z njihovega vidika bo povabilo na sestanek videti kot ta posnetek zaslona:

Boj proti virusom in zlonamerni programski opremi v Outlooku

Outlookov filter neželene e-pošte ima pomembno vlogo pri preprečevanju nepričakovanih napadov virusov in zlonamerne programske opreme. Danes postajajo virusi vse bolj izpopolnjeni. Če želite preprečiti okužbo z virusi in zlonamerno programsko opremo, ne samo, da pravočasno blokirate neželeno pošto, ampak tudi raje prijavite sumljive e-poštne domene ali naslove Microsoftu, kar pomaga okrepiti Outlookov filter neželene e-pošte. Poleg tega morate poleg vgrajenega filtra za neželeno e-pošto imeti tudi izjemno orodje za popravilo, kot je npr. DataNumen Outlook Repair. Ima veliko višje Obnovitev programa Outlook boljša od svojih tekmecev.

Uvod avtorja:

Shirley Zhang je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z obnoviti sql in obeti za popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com