Kako zatražiti samo od potrebnih sudionika da odgovore na vaš poziv za sastanak u programu Outlook

Neki korisnici žele samo zatražiti odgovore na sastanak od potrebnih sudionika kada šalju pozivnicu za sastanak programa Outlook. Ovaj članak će vas naučiti kako to realizirati putem Outlook VBA.

Da ne biste tražili odgovore prilikom slanja pozivnica za sastanak, možete samo kliknuti gumb "Opcije odgovora" i poništiti opciju "Zatraži odgovore". Ali, na taj način, svi sudionici, bez obzira da li su obavezni ili neobavezni, neće morati poslati svoje odgovore na sastanak. Međutim, u stvarnosti, most vremena, ono što želite je ne tražiti odgovore od neobaveznih sudionika. U ovom slučaju morate potražiti druge metode, kao što je sljedeća.

Zatražite samo od potrebnih sudionika da odgovore na vaš poziv za sastanak

1. Prvo pokrenite svoju Outlook aplikaciju.
2. Zatim pritisnite tipke "Alt + F11" na glavnom zaslonu programa Outlook.
3. Zatim, nakon što dobijete pristup uređivaču Outlook VBA, 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, trebali biste potpisati ovaj VBA projekt.

• Ostanite u trenutnoj makronaredbi i pritisnite "Alati" na alatnoj traci.
• Zatim odaberite opciju "Digitalni potpisi".
• U skočnom dijaloškom okviru slijedite upute na zaslonu da biste to dovršili.

6. Kasnije provjerite postavke Outlook makronaredbe kako biste bili sigurni da je digitalno potpisana makronaredba omogućena.
7. Od sada, kada pošaljete pozivnicu za sastanak, neobavezni sudionici neće morati odgovoriti. Iz njihove perspektive, pozivnica za sastanak izgledat će kao sljedeća snimka zaslona:

Borite se protiv virusa i zlonamjernog softvera u programu Outlook

Outlookov filter bezvrijedne e-pošte igra važnu ulogu u izbjegavanju neočekivanih napada virusa i zlonamjernog softvera. U današnje vrijeme virusi postaju sve sofisticiraniji. Da biste blokirali virusnu infekciju i napad zlonamjernog softvera, ne samo da biste trebali na vrijeme blokirati neželjenu poštu, već bi također bilo bolje prijaviti sumnjive domene e-pošte ili adrese Microsoftu, pomažući u jačanju filtra neželjene e-pošte programa Outlook. Osim toga, osim ugrađenog filtra za bezvrijednu e-poštu, morate imati i izvrstan alat za popravak, kao što je DataNumen Outlook Repair. Ima puno višu Outlook oporavak bolje od svojih suparnika.

Uvod za autora:

Shirley Zhang stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući oporaviti sql i softverske proizvode za popravak Outlooka. Za više informacija posjetite www.datanumen.com