Kako zatražiti samo od obaveznih učesnika da odgovore na vaš poziv na sastanak u Outlooku

Neki korisnici žele da traže samo odgovore na sastanak od potrebnih učesnika kada šalju pozivnicu za Outlook sastanak. Ovaj članak će naučiti kako to realizirati putem Outlook VBA.

Da ne biste tražili odgovore prilikom slanja pozivnica za sastanke, možete jednostavno kliknuti na dugme „Opcije odgovora“ i poništiti opciju „Zahtjev za odgovore“. Ali, na taj način, svi učesnici, bez obzira na to što su obavezni ili opcioni, neće biti obavezni da šalju svoje odgovore na sastanku. Međutim, u stvarnosti, most vremena, ono što želite je da ne tražite odgovore od opcionih učesnika. U tom slučaju morate tražiti druge metode, kao što je sljedeća.

Zatražite samo od potrebnih učesnika da odgovore na vaš poziv na sastanak

1. Prvo pokrenite svoju Outlook aplikaciju.
2. Zatim pritisnite tipke “Alt + F11” na glavnom ekranu programa Outlook.
3. Zatim, nakon što dobijete pristup Outlook VBA editoru, trebali biste pronaći i otvoriti projekt “ThisOutlookSession”.
4. Nakon toga, kopirajte sljedeći VBA kod u ovaj prozor 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. Nakon toga treba da potpišete ovaj VBA projekat.

• Ostanite u trenutnom makrou i pritisnite "Alati" na traci sa alatkama.
• Zatim odaberite opciju “Digitalni potpisi”.
• U iskačućem dijaloškom okviru, slijedite upute na ekranu da biste ga dovršili.

6. Kasnije provjerite postavke makroa za Outlook da biste bili sigurni da je digitalno potpisan makro omogućen.
7. Od sada, kada pošaljete pozivnicu za sastanak, opcionalni učesnici neće morati da odgovaraju. Iz njihove perspektive, pozivnica za sastanak će izgledati kao na sljedećem snimku ekrana:

Borba protiv virusa i zlonamjernog softvera u Outlooku

Outlookov filter neželjene e-pošte igra važnu ulogu u izbjegavanju neočekivanih napada virusa i zlonamjernog softvera. Danas virusi postaju sve sofisticiraniji. Kako biste blokirali infekciju virusima i napad zlonamjernog softvera, ne samo da biste trebali na vrijeme blokirati neželjenu poštu, već je bolje da prijavite sumnjive domene e-pošte ili adrese Microsoftu, pomažući da se ojača filter neželjene e-pošte Outlook. Osim toga, osim ugrađenog filtera za neželjenu e-poštu, morate imati i moćan alat za popravku, kao što je DataNumen Outlook Repair. Ima mnogo veći Outlook oporavak stopu od svojih rivala.

Uvod za autora:

Shirley Zhang je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti sql i Outlook softverski proizvodi za popravku. Za više informacija posjetite www.datanumen.com