Jak požádat požadované účastníky, aby odpověděli na vaši pozvánku na schůzku v aplikaci Outlook

Někteří uživatelé chtějí při odesílání pozvánky na schůzku aplikace Outlook pouze požadovat odpovědi na schůzku od požadovaných účastníků. Tento článek vás naučí, jak to realizovat pomocí aplikace Outlook VBA.

Chcete-li při odesílání pozvánek na schůzku nevyžadovat odpovědi, stačí kliknout na tlačítko „Možnosti odpovědi“ a zrušit zaškrtnutí možnosti „Vyžádat odpovědi“. Tímto způsobem však všichni účastníci, bez ohledu na to, zda jsou vyžadováni nebo volitelné, nebudou muset posílat své odpovědi na schůzku. Ve skutečnosti však most času, co si přejete, je nevyžadovat odpovědi od nepovinných účastníků. V tomto případě musíte hledat jiné metody, například následující.

Požádejte pouze požadované účastníky, aby odpověděli na vaši pozvánku na schůzku

1. Na prvním místě spusťte aplikaci Outlook.
2. Poté stiskněte klávesy „Alt + F11“ na hlavní obrazovce aplikace Outlook.
3. Poté, co získáte přístup k editoru Outlook VBA, byste měli najít a otevřít projekt „ThisOutlookSession“.
4. Následně zkopírujte následující kód VBA do tohoto 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. Poté byste měli podepsat tento projekt VBA.

• Zůstaňte v aktuálním makru a klepněte na „Nástroje“ na panelu nástrojů.
• Poté vyberte možnost „Digitální podpisy“.
• Ve vyskakovacím dialogovém okně jej dokončete podle pokynů na obrazovce.

6. Později zkontrolujte nastavení makra aplikace Outlook a ujistěte se, že je povoleno digitálně podepsané makro.
7. Od nynějška, když odešlete pozvánku na schůzku, nebudou volitelné účastníci muset odpovídat. Z jejich pohledu bude pozvánka na schůzku vypadat jako následující snímek obrazovky:

Bojujte s viry a malwarem v aplikaci Outlook

Filtr nevyžádané pošty v aplikaci Outlook hraje důležitou roli při předcházení neočekávaným útokům virů a malwaru. V dnešní době jsou viry stále sofistikovanější. Abyste zabránili virové infekci a napadení malwarem, měli byste nejen včas blokovat spamy, ale také byste měli podezřelé e-mailové domény nebo adresy nahlásit společnosti Microsoft, což pomůže posílit filtr nevyžádané pošty v aplikaci Outlook. Kromě vestavěného filtru nevyžádané pošty musíte mít také impozantní nástroj na opravu, jako je DataNumen Outlook Repair. Má mnohem vyšší Obnova aplikace Outlook než jeho konkurenti.

Úvod autora:

Shirley Zhang je expertem na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně obnovit sql a výhledové softwarové produkty pro opravy. Pro více informací navštivte www.datanumen.com