Niektórzy użytkownicy Outlooka wolą kategoryzować swoje wiadomości e-mail zgodnie z kolorowymi kategoriami kontaktów nadawców. Ręczne przypisywanie kategorii musi być uciążliwe. W tym artykule dowiesz się, jak zrealizować to automatycznie za pomocą programu Outlook VBA.
Aby poprawić efektywność pracy w Outlooku, podejmiesz starania, aby lepiej zarządzać swoimi e-mailami. Bez wątpienia „Kategorie kolorów” są pod tym względem dobrą cechą. Wielu użytkowników woli używać go do porządkowania i rozróżniania swoich wiadomości. Oczywiście, konkretna podstawa kategoryzacji e-maili według kolorów zależy od Twoich osobistych nawyków. Na przykład niektórzy użytkownicy skategoryzowali swoje kontakty kolorami, dlatego mają nadzieję, że będą kategoryzować swoje e-maile według kategorii kontaktów nadawców. Jeśli zrobisz to ręcznie, z pewnością będzie bałagan, ponieważ najpierw musisz sprawdzić kategorie kontaktów nadawcy, a następnie ręcznie przypisać je do wiadomości e-mail.
Aby sprostać temu wymaganiu, możesz skorzystać z programu Outlook VBA, który umożliwia programowi Outlook automatyczne sprawdzanie kategorii kontaktów nadawcy i przypisywanie ich do nowych wiadomości e-mail. Jeśli interesuje Cię ta funkcja, czytaj dalej, aby uzyskać szczegółowe instrukcje i kody.
Automatycznie kategoryzuj przychodzące wiadomości e-mail według kategorii kontaktów nadawców
- W pierwszej kolejności uruchom Outlooka i naciśnij klawisze „Alt + F11”.
- Następnie pojawi się okno edytora VBA, w którym należy znaleźć i otworzyć projekt „ThisOutlookSession”.
- Następnie skopiuj i wklej następujące kody VBA do „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
- Następnie należy przypisać certyfikat cyfrowy do nowego makra.
- Najpierw utwórz nowy certyfikat za pomocą certyfikatów cyfrowych dla projektów VBA.
- Następnie podpisz cyfrowo ten kod.
- Następnie możesz zmienić zabezpieczenia makr programu Outlook, zezwalając tylko na makra podpisane cyfrowo.
- Wreszcie możesz restart Outlook, aby aktywować nowe makro. Odtąd wszystkie przychodzące wiadomości e-mail, które docierają do folderu Skrzynka odbiorcza, będą automatycznie kategoryzowane według kategorii kontaktów nadawców.
Rozwiąż nieoczekiwaną awarię programu Outlook
Chociaż Outlook jest preferowany przez wielu użytkowników, nadal nie może pozbyć się awarii. Musisz odczuwać panikę, gdy doświadczasz nieoczekiwanej awarii programu Outlook. Nie martw się. Możesz samodzielnie podjąć działania, aby zdiagnozować i rozwiązać problemy, takie jak restarting Outlook, wyłączanie dodatków innych firm, tworzenie nowego profilu poczty, naprawianie pakietu Office i tak dalej. Najgorszy musi być uszkodzone dane PST programu Outlook, który jest wyjątkowo sękaty. W tym scenariuszu potrzebujesz powrotu do solidnego narzędzia zewnętrznego, takiego jak DataNumen Outlook Repair.
Wprowadzenie autora:
Shirley Zhang jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym napraw uszkodzony SQL mdf db i oprogramowanie do naprawy programu Outlook. po więcej informacji odwiedź www.datanumen.com