Kā pieprasīt tikai nepieciešamos dalībniekus, lai atbildētu uz jūsu sapulces uzaicinājumu programmā Outlook

Daži lietotāji vēlas nosūtīt sapulces atbildes tikai no nepieciešamajiem dalībniekiem, nosūtot Outlook sapulces uzaicinājumu. Šis raksts mācīs, kā to realizēt, izmantojot Outlook VBA.

Lai nepieprasītu atbildes, nosūtot uzaicinājumus uz sapulci, varat vienkārši noklikšķināt uz pogas “Atbildes opcijas” un noņemt atzīmi no opcijas “Pieprasīt atbildes”. Bet ar to visiem dalībniekiem, neatkarīgi no tā, vai tas ir nepieciešams vai nav obligāts, nebūs jāsūta atbildes uz sapulci. Tomēr patiesībā most laika ziņā vēlaties nepieprasīt atbildes no izvēles dalībniekiem. Šajā gadījumā jums jāmeklē citas metodes, piemēram, šī.

Pieprasiet tikai obligātos dalībniekus, lai atbildētu uz jūsu uzaicinājumu uz sapulci

1. Pirmkārt, palaidiet savu Outlook lietojumprogrammu.
2. Pēc tam galvenajā Outlook ekrānā nospiediet taustiņu “Alt + F11” taustiņus.
3. Pēc tam, kad esat piekļuvis Outlook VBA redaktoram, jums jāatrod un jāatver projekts “ThisOutlookSession”.
4. Pēc tam kopējiet šo VBA kodu šajā projekta logā.

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. Pēc tam jums vajadzētu parakstīt šo VBA projektu.

• Palieciet pašreizējā makro un rīkjoslā nospiediet “Rīki”.
• Pēc tam izvēlieties opciju “Digitālie paraksti”.
• Uznirstošajā dialoglodziņā izpildiet ekrānā redzamos norādījumus, lai to pabeigtu.

6. Vēlāk pārbaudiet Outlook makro iestatījumus, lai pārliecinātos, ka ir iespējota digitāli parakstīta makro.
7. Turpmāk, izsūtot uzaicinājumu uz sapulci, izvēles dalībniekiem nebūs jāatbild. No viņu viedokļa uzaicinājums uz sapulci izskatīsies kā šāds ekrānuzņēmums:

Cīņa pret vīrusiem un ļaunprātīgu programmatūru programmā Outlook

Outlook nevēlamā e-pasta filtram ir svarīga loma, lai izvairītos no negaidītiem vīrusu un ļaunprātīgas programmatūras uzbrukumiem. Mūsdienās vīrusi kļūst arvien sarežģītāki. Lai bloķētu vīrusu infekcijas un ļaunprātīgas programmatūras uzbrukumus, jums ne tikai savlaicīgi jābloķē surogātpasts, bet arī labāk jāziņo Microsoft par aizdomīgajiem e-pasta domēniem vai adresēm, palīdzot stiprināt Outlook nevēlamā e-pasta filtru. Bez tam, neņemot vērā iebūvēto nevēlamā e-pasta filtru, jums ir jāglabā arī drausmīgs remonta rīks, piemēram, DataNumen Outlook Repair. Tam ir daudz augstāks Outlook atkopšana likmi nekā konkurentiem.

Autora ievads:

Šērlija Džana ir datu atkopšanas eksperte DataNumen, Inc., kas ir pasaules līderis datu atkopšanas tehnoloģiju, tostarp atgūt kv un perspektīvas remonta programmatūras produktus. Lai iegūtu vairāk informācijas, apmeklējiet vietni www.datanumen. Ar