Kā automātiski iestatīt e-pasta jutīgumu, pamatojoties uz tā adresātiem programmā Outlook

Programma Outlook ļauj lietotājiem pēc vēlēšanās atzīmēt e-pastu kā parastu, privātu, personisku vai konfidenciālu. Daži lietotāji vēlas automātiski iestatīt e-pasta jutīgumu, pamatojoties uz tā adresātiem. Tāpēc šajā rakstā mēs dalīsimies ar metodi, kā to realizēt.

Iestatot e-pasta jutīgumu, jūs faktiski iesakāt adresātiem, kā rīkoties ar e-pasta saturu. Piemēram, atzīmējot e-pastu kā “Konfidenciāls”, adresāti informācijas joslā saņems uzvedni – “Lūdzu, apstrādājiet to kā konfidenciālu”. Tāpēc daudziem lietotājiem šī funkcija patīk. Tomēr, tā kā viņi bieži aizmirst iestatīt e-pasta jutīgumu, viņi cer, ka programma Outlook to var izdarīt automātiski, pamatojoties uz adresātiem. Tādējādi šeit mēs ieviesīsim pieeju tā sasniegšanai.

Automātiski iestatiet e-pasta jutīgumu, pamatojoties uz tā adresātiem

1. Lai sāktu, palaidiet savu Outlook programmu.
2. Pēc tam, nokļūstot galvenajā Outlook logā, jums jānospiež taustiņu "Alt + F11" pogas.
3. Pēc tam tiks atvērts VBA redaktors. Jaunajā logā jums vajadzētu piekļūt projektam “ThisOutlookSession”.
4. Pēc tam nokopējiet un ielīmējiet šo VBA kodu šajā projektā.

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim objMail As Outlook.MailItem
    Dim objRecipients As Outlook.Recipients
    Dim objRecipient As Outlook.recipient
 
    If TypeOf Item Is MailItem Then
       Set objMail = Item
       Set objRecipients = objMail.Recipients
 
       If objRecipients.count = 1 Then
          Set objRecipient = objRecipients.Item(1)
 
          'Change the recipient as per your needs
          Select Case objRecipient.Address
                 Case "kim@datanumen.com", "abby@datanumen.com"
                      objMail.Sensitivity = olPersonal
                 Case "coral@datanumen.com", "amy@datanumen.com", "shelly@datanumen.com"
                      objMail.Sensitivity = olPrivate
                 Case "boss@datanumen.com"
                      objMail.Sensitivity = olConfidential
                 Case Else
                      objMail.Sensitivity = olNormal
          End Select
          objMail.Save
       End If
    End If
End Sub

5. Pēc koda ielīmēšanas jums ir manuāli jāmaina iepriekš noteiktie adresāti atbilstoši jūsu gadījumam.
6. Pēc tam jums jāparaksta šis kods. Noklikšķiniet uz “Rīki” > “Digitālais paraksts” un izpildiet ekrānā redzamos norādījumus jaunajā dialoglodziņā, lai to paveiktu.
7. Pēc tam varat aizvērt pašreizējo logu.
8. Vēlāk dodieties uz “Makro iestatījumi”, lai iespējotu ciparparakstu makro.
9. Galu galā jūs varat uzņemt kadru. Vienkārši izveidojiet un nosūtiet e-pastu konkrētajam adresātam. Pēc e-pasta nosūtīšanas varat doties uz mapi “Nosūtītie vienumi”, lai to pārbaudītu. Tās jutīgums tiks iestatīts, pamatojoties uz makro, piemēram, šajā ekrānuzņēmumā:

Izmantojiet noderīgu atkopšanas rīku

Outlook nāk kopā ar iebūvētu labošanas rīku - Scanpst.exe. Tomēr nopietnu problēmu gadījumā šis rīks nepalīdzēs. Tāpēc mēs vienmēr iesakām sagatavot citu spēcīgu un uzticamu Outlook remonts lietderība, piemēram, DataNumen Outlook Repair. Izmantojot to, jūs varēsit glābt bojāto Outlook failu pat tad, ja iekšējais rīks neizdodas. Turklāt tas ir pierādīts ar augstu PST atgūšanas ātrumu.

Autora ievads:

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