Деякі користувачі Outlook воліють класифікувати свої електронні листи за категоріями кольорів контактів відправників. Присвоєння категорії вручну має бути громіздким. У цій статті буде описано, як це автоматично реалізувати за допомогою Outlook VBA.
Щоб покращити ефективність роботи в Outlook, ви докладете зусиль для кращого управління електронними листами. Без будь-яких сумнівів, “Категорії кольорів” є гарною особливістю в цьому відношенні. Багато користувачів воліють використовувати його для впорядкування та розрізнення своїх листів. Звичайно, конкретна основа електронної пошти з категорізацією кольорів залежить від ваших особистих звичок. Наприклад, деякі користувачі мають кольорову категорію своїх контактів, тому вони сподіваються класифікувати свої електронні листи відповідно до категорій контактів відправників. Якщо ви зробите це вручну, це, безумовно, буде безладним, оскільки спочатку потрібно перевірити категорії контактів відправника, а потім вручну призначити його електронному листу.
Для вирішення цієї вимоги насправді ви можете скористатися Outlook VBA, який може дозволити Outlook автоматично перевіряти категорії контактів відправника та призначати його новим електронним адресам. Якщо вас цікавить ця функція, читайте далі, щоб отримати детальні інструкції та коди.
Автоматична класифікація вхідних листів за категоріями контактів відправників
- Перш за все запустіть Outlook і натисніть клавіші “Alt + F11”.
- Потім з’явиться вікно редактора VBA, в якому вам потрібно знайти та відкрити проект “ThisOutlookSession”.
- Далі скопіюйте та вставте наступні коди VBA в “ThisOutlookSession”.
Загальнодоступні події olItems як Outlook.Items Private Sub Application_Startup () Встановити 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 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 objVdress.Email1AdAdAdAdress.EmailXNUMXAdAdAdAdress.EmailXNUMXAdmail 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
1