Kai kurie „Outlook“ naudotojai nori suskirstyti savo el. laiškus į kategorijas pagal siuntėjų kontaktų spalvų kategorijas. Rankiniu būdu priskirti kategoriją turi būti sudėtinga. Šiame straipsnyje bus pristatyta, kaip tai automatiškai realizuoti naudojant Outlook VBA.
Norėdami pagerinti savo darbo efektyvumą programoje „Outlook“, stengsitės geriau valdyti el. Be jokių abejonių, „Spalvų kategorijos“ šiuo atžvilgiu yra gera savybė. Daugelis vartotojų nori jį naudoti norėdami tvarkyti ir atskirti savo laiškus. Žinoma, konkretus el. laiškų skirstymo pagal spalvas pagrindas priklauso nuo jūsų asmeninių įpročių. Pavyzdžiui, kai kurie vartotojai savo kontaktus suskirstė į spalvas, todėl tikisi suskirstyti savo el. laiškus pagal siuntėjų kontaktų kategorijas. Jei tai darysite rankiniu būdu, tai tikrai bus nepatogu, nes pirmiausia turėsite patikrinti siuntėjo kontaktų kategorijas ir rankiniu būdu priskirti jį el.
Norėdami įvykdyti šį reikalavimą, iš tikrųjų galite pasinaudoti „Outlook VBA“, kuri leidžia „Outlook“ automatiškai patikrinti siuntėjo kontaktų kategorijas ir priskirti ją naujiems el. Jei jus domina ši funkcija, skaitykite toliau, kad gautumėte išsamius veiksmus ir kodus.
Automatiškai suskirstykite gaunamus el. laiškus pagal siuntėjų kontaktų kategorijas
- Pirmiausia paleiskite „Outlook“ ir paspauskite klavišų kombinaciją „Alt + F11“.
- Tada pasirodys VBA redaktoriaus langas, kuriame turėsite rasti ir atidaryti projektą „ThisOutlookSession“.
- Tada nukopijuokite ir įklijuokite šiuos VBA kodus į „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
- Vėliau naujajai makrokomandai turėtumėte priskirti skaitmeninį sertifikatą.
- Pirmiausia sukurkite naują sertifikatą naudodami VBA projektų skaitmeninius sertifikatus.
- Tada skaitmeniniu būdu pasirašykite šį kodą.
- Po to galite pakeisti „Outlook“ makrokomandų apsaugą, leisdami tik skaitmeniniu būdu pasirašytas makrokomandas.
- Pagaliau tu gali restart Outlook, kad suaktyvintumėte naują makrokomandą. Nuo šiol visi į aplanką Gautieji gaunami el. laiškai bus automatiškai suskirstyti į kategorijas pagal siuntėjų kontaktų kategorijas.
Išspręskite netikėtą „Outlook“ gedimą
Nors daugelis vartotojų teikia pirmenybę „Outlook“, ji vis tiek negali atsikratyti strigčių. Patirdami nenumatytą „Outlook“ avariją, turite jausti paniką. Nesijaudink. Galite patys diagnozuoti ir išspręsti problemas, pvz., restar„Outlook“, išjungti trečiųjų šalių priedus, sukurti naują pašto profilį, taisyti „Office“ paketą ir pan. Blogiausiu atveju turi būti sugadinti Outlook PST duomenys, kuris yra labai rafinuotas. Pagal šį scenarijų jums reikia pakartotinai naudoti patikimą išorinį įrankį, pvz DataNumen Outlook Repair.
Autoriaus įvadas:
Shirley Zhang yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant pataisyti sugadintą SQL mdf db ir „Outlook“ taisymo programinės įrangos produktai. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com