Кейбір 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 апатына ұшыраған кезде дүрбелеңді сезінуіңіз керек. Уайымдама. Сіз өз бетіңізше мәселелерді диагностикалау және шешу үшін әрекеттер жасай аласыз, мысалы, restarOutlook бағдарламасын қосу, үшінші тарап қондырмаларын өшіру, жаңа пошта профилін құру және Office жиынтығын жөндеу және т.б. Ең жаман жағдай болуы керек бұзылған Outlook PST деректері, бұл өте түйінді. Бұл сценарийде сізге сенімді сыртқы құралға қайталау қажет, мысалы DataNumen Outlook Repair.
Автордың кіріспесі:
Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. бүлінген SQL mdf db жөндеу және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com