Kā automātiski kategorizēt jaunos ienākošos e-pastus, pamatojoties uz sūtītāju kontaktu kategorijām

Daži Outlook lietotāji dod priekšroku kategorizēt savus e-pastus atbilstoši sūtītāju kontaktu krāsu kategorijām. Kategorijas manuālai piešķiršanai jābūt apgrūtinošai. Šajā rakstā tiks parādīts, kā to automātiski realizēt, izmantojot programmu Outlook VBA.

Lai uzlabotu darba efektivitāti programmā Outlook, jūs centīsities labāk pārvaldīt savus e-pastus. Bez šaubām, “Krāsu kategorijas” šajā ziņā ir laba īpašība. Daudzi lietotāji izvēlas to izmantot, lai kārtotu un atšķirtu savus pastus. Protams, krāsu kategorizēšanas e-pasta ziņojumu konkrētais pamats ir atkarīgs no jūsu personīgajiem ieradumiem. Piemēram, daži lietotāji ir kategorizējuši savus kontaktus, tāpēc viņi cer kategorizēt savus e-pastus atbilstoši sūtītāju kontaktu kategorijām. Ja jūs to darīsit manuāli, tas noteikti būs netīrs, jo vispirms ir jāpārbauda sūtītāja kontaktu kategorijas un pēc tam manuāli jāpiešķir tas e-pastam.

Lai izpildītu šo prasību, faktiski jūs varat izmantot programmu Outlook VBA, kas ļauj programmai Outlook automātiski pārbaudīt sūtītāja kontaktu kategorijas un piešķirt to jaunajiem e-pasta ziņojumiem. Ja jūs interesē šī funkcija, lasiet tālāk, lai iegūtu sarežģītas darbības un kodus.

Automātiski kategorizēt ienākošos e-pastus pēc sūtītāju kontaktu kategorijām

1. Pirmkārt, palaidiet programmu Outlook un nospiediet taustiņu pogas “Alt + F11”.
2. Tad parādīsies VBA redaktora logs, kurā jums jāatrod un jāatver projekts “ThisOutlookSession”.
3. Pēc tam nokopējiet un ielīmējiet šādus VBA kodus sadaļā “ThisOutlookSession”.

Public WithEvents olItems As Outlook.Items

Private Sub Application_Startup()
    Set olItems = Outlook.Application.Session.GetDefaultFolder(olFolderInbox).Items
End Sub

Private Sub olItems_ItemAdd(ByVal Item As Object)
    Dim oMail As MailItem
    Dim olContacts As Outlook.Items
    Dim obj As Object
    Dim objVariant As Variant
    Dim olCategory As String
 
    Set olContacts = Outlook.Application.Session.GetDefaultFolder(olFolderContacts).Items
  
    If TypeOf Item Is MailItem Then
       Set oMail = Item
       For Each obj In olContacts
           If TypeOf obj Is ContactItem Then
              Set objVariant = obj
              If objVariant.Email1Address = oMail.SenderEmailAddress Then
                 olCategory = objVariant.Categories
                 oMail.Categories = olCategory
              End If
           End If
       Next
    End If
End Sub

4. Pēc tam jums jāpiešķir digitālais sertifikāts jaunajam makro.

• Pirmkārt, izveidojiet jaunu sertifikātu, izmantojot digitālos sertifikātus VBA projektiem.
• Tad digitāli parakstiet šo kodu.

5. Pēc tam jūs varat mainīt Outlook makro drošību, atļaujot tikai digitāli parakstītus makro.
6. Beidzot jūs varat restart Outlook, lai aktivizētu jauno makro. Turpmāk visi ienākošie e-pasta ziņojumi, kas nonāk mapē Iesūtne, tiks automātiski kategorizēti pēc sūtītāju kontaktu kategorijām.

Nokārtojiet negaidītu Outlook avāriju

Lai gan Outlook dod priekšroku daudziem lietotājiem, tā joprojām nevar atbrīvoties no avārijas. Ciešot neparedzētai Outlook avārijai, jums jājūtas panikā. Neuztraucies. Varat veikt darbības, lai paši diagnosticētu un atrisinātu problēmas, piemēram, restarOutlook atspējošana, trešo pušu pievienojumprogrammu atspējošana, jauna pasta profila izveide un Office komplekta labošana utt. Jābūt sliktākajam gadījumam korumpēti Outlook PST dati, kas ir ārkārtīgi mezglots. Šajā scenārijā jums ir jāatkārto spēcīgs ārējs rīks, piemēram, DataNumen Outlook Repair.

Autora ievads:

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