Деякі користувачі 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, дозволяючи лише цифрові підписані макроси.
- Нарешті ви можете відпочитиtart Outlook, щоб активувати новий макрос. Відтепер усі вхідні електронні листи, що надходять у папку Вхідні, будуть автоматично класифіковані за категоріями контактів відправників.
Вирішіть несподіваний збій Outlook
Хоча Outlook віддають перевагу багатьом користувачам, він все одно не може позбутися аварії. Ви повинні відчувати паніку, страждаючи від непередбачуваного збою Outlook. Не турбуйтесь. Ви можете вжити заходів для самостійного діагностування та вирішення проблем, таких як вирішенняtarting Outlook, вимкнення сторонніх надбудов, створення нового поштового профілю та відновлення пакета Office тощо. Має бути найгірший випадок пошкодження даних PST Outlook - -, що надзвичайно вузлувато. У цьому випадку вам потрібно повернутися до надійного зовнішнього інструменту, наприклад DataNumen Outlook Repair.
Вступ автора:
Ширлі Чжан - експерт із відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі відновлення пошкодженого SQL mdf db та перспективні програмні продукти для ремонту. Для отримання додаткової інформації відвідайте WWW.datanumen.com