Ako požiadať o požadovaných účastníkov, iba aby odpovedali na vaše pozvanie na schôdzku v programe Outlook

Niektorí používatelia požadujú, aby ste pri odosielaní pozvánky na schôdzku programu Outlook vyžadovali od osôb vyžadujúcich odpovede iba odpovede na schôdzu. Tento článok naučí, ako to realizovať prostredníctvom Outlooku VBA.

Ak nechcete pri odosielaní pozvánok na schôdzku požadovať odpovede, stačí kliknúť na tlačidlo „Možnosti odpovede“ a zrušiť začiarknutie možnosti „Požiadať o odpovede“. Týmto spôsobom však nebudú všetci účastníci, bez ohľadu na to, či sú povinné alebo voliteľné, povinní posielať svoje odpovede na schôdzky. V skutočnosti však most časom si prajete, aby ste nežiadali odpovede od voliteľných účastníkov. V takom prípade musíte hľadať iné metódy, napríklad nasledujúcu.

Požiadajte iba o požadovaných účastníkov, aby odpovedali na vašu pozvánku na schôdzku

1. Na prvom mieste spustite aplikáciu Outlook.
2. Potom stlačte na hlavnej obrazovke Outlooku klávesové skratky „Alt + F11“.
3. Po získaní prístupu k editoru Outlook VBA by ste mali nájsť a otvoriť projekt „ThisOutlookSession“.
4. Následne skopírujte nasledujúci kód VBA do tohto okna projektu.

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. Potom by ste mali podpísať tento projekt VBA.

• Zostaňte v aktuálnom makre a na paneli nástrojov stlačte „Nástroje“.
• Potom vyberte možnosť „Digitálne podpisy“.
• V rozbaľovacom dialógovom okne ho dokončite podľa pokynov na obrazovke.

6. Neskôr skontrolujte nastavenie makra programu Outlook a uistite sa, že je povolené digitálne podpísané makro.
7. Keď odteraz pošlete pozvánku na schôdzku, od dobrovoľných účastníkov sa nebude vyžadovať odpoveď. Z ich pohľadu bude pozvánka na schôdzku vyzerať ako nasledujúca snímka obrazovky:

Boj proti vírusom a malvéru v programe Outlook

Filter nevyžiadanej pošty v programe Outlook hrá dôležitú úlohu pri predchádzaní neočakávaným útokom vírusov a škodlivého softvéru. V dnešnej dobe sú vírusy čoraz sofistikovanejšie. Aby ste zabránili vírusovej infekcii a napadnutiu škodlivým softvérom, mali by ste nielen včas zablokovať spam, ale aj lepšie nahlásiť podozrivé e-mailové domény alebo adresy spoločnosti Microsoft, čo pomôže posilniť filter nevyžiadanej pošty v programe Outlook. Okrem zabudovaného filtra nevyžiadanej pošty si navyše musíte ponechať impozantný nástroj na opravu, ako je napr DataNumen Outlook Repair. Má to oveľa vyššie Obnova programu Outlook tempom ako jeho konkurenti.

Úvod autora:

Shirley Zhang je expertkou na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane obnoviť sql a výhľadové softvérové ​​produkty na opravu. Pre viac informácií navštívte www.datanumen. S