Някои потребители на Outlook предпочитат да категоризират имейлите си според цветовите категории на контактите на подателите. Ръчното определяне на категорията трябва да е тромаво. Тази статия ще ви представи как да го реализирате автоматично с Outlook VBA.
За да подобрите ефективността на работата си в Outlook, ще положите усилия за по-добро управление на имейлите си. Без никакви съмнения „Цветови категории“ е добра характеристика в това отношение. Много потребители предпочитат да го използват, за да организират и различават своите писма. Разбира се, конкретната основа на имейлите за категоризиране на цветовете зависи от вашите лични навици. Например, някои потребители са категоризирали контактите си по цветове, поради което се надяват да категоризират имейлите си според категориите на контактите на подателите. Ако направите това ръчно, определено ще бъде объркано, че първо трябва да проверите категориите контакти на подателя и след това ръчно да го присвоите на имейла.
За да се справите с това изискване, всъщност можете да използвате Outlook VBA, който може да позволи на Outlook автоматично да проверява категориите контакти на подателя и да го присвоява на новите имейли. Ако се интересувате от тази функция, прочетете, за да получите подробните стъпки и кодове.
Автоматично категоризирайте входящите имейли по категориите за контакт на подателите
- На първо място стартирайте Outlook и натиснете бутоните на клавишите „Alt + F11“.
- След това ще се покаже прозорецът на редактора на VBA, в който трябва да намерите и отворите проекта “ThisOutlookSession”.
- След това копирайте и поставете следните кодове на VBA в “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
- Впоследствие трябва да присвоите цифров сертификат на новия макрос.
- Първо, създайте нов сертификат чрез цифрови сертификати за проекти на VBA.
- След това подпишете цифрово този код.
- След това можете да промените защитата на макроса на Outlook, като разрешите само цифрово подписаните макроси.
- Накрая можете да рестартирате Outlook, за да активирате новия макрос. Отсега нататък всички входящи имейли, които пристигат в папката „Входящи“, ще бъдат автоматично категоризирани по категориите контакти на подателите.
Решаване на неочакван срив на Outlook
Въпреки че Outlook е предпочитан от много потребители, той все още не може да се отърве от сривовете. Сигурно изпитвате паника, когато страдате от неочакван срив на Outlook. Не се притеснявайте. Можете сами да предприемете действия за диагностициране и решаване на проблемите, като например рестартиране на Outlook, деактивиране на добавки на трети страни, създаване на нов пощенски профил и поправяне на Office пакета и т.н. В най-лошия случай трябва да е... корумпирани Outlook PST данни, което е изключително възелче. В този сценарий трябва да се върнете към стабилен външен инструмент, като например DataNumen Outlook Repair.
Въведение на автора:
Шърли Джанг е експерт по възстановяване на данни в DataNumen, Inc., която е световен лидер в технологиите за възстановяване на данни, включително поправяне на повредени SQL mdf db и outlook софтуерни продукти за ремонт. За повече информация посетете WWW.datanumen.com