Outlook VBA арқылы барлық жауапсыз электрондық пошталар үшін іздеу қалтасын қалай жылдам жасауға болады

Жауап берілмеген электрондық пошталарды Outlook бағдарламасында оңай тексеру үшін осындай электрондық пошталар үшін іздеу қалтасын жасауға болады. Енді бұл мақала оны Outlook VBA көмегімен қалай алуға болатынын түсіндіреді.

Алдыңғы мақалада «Outlook-та жауап бермеген маңызды электрондық пошталарды қалай автоматты түрде бөлектеу керек» деген мақалада сіз нақты түсте жауап бермеген маңызды электрондық пошталарды көрсету құралын біле аласыз. Дегенмен, сіз барлық пошта қалталарын бір-бірден қарап шығуыңыз керек болғандықтан, бұл әлі де қиындық тудыруы мүмкін. Осылайша, сіз барлық осындай электрондық пошталарды іздеу қалтасында тікелей жинағыңыз келеді. Енді келесіде біз сізге осындай іздеу қалтасын жылдам жасау үшін VBA пайдалануды үйретеміз.

Барлық жауапсыз электрондық пошталар үшін іздеу қалтасын жасаңыз

1. Ең басында Outlook қолданбасын іске қосыңыз.
2. VBA редакторына кіру үшін «Alt + F11» пернелерін басыңыз.
3. Әрі қарай, келесі VBA кодын пайдаланылмаған модульге көшіріңіз.

Sub CreateSearchFolder_AllNotRepliedEmails()
    Dim strScope As String
    Dim strRepliedProperty As String
    Dim strFilter As String
    Dim objSearch As Outlook.Search
 
    'Specify the folders to be searched
    'Here we use Inbox folder for an example
    strScope = "'" & Application.Session.GetDefaultFolder(olFolderInbox).FolderPath & "'"
 
    'Search filter
    strRepliedProperty = "http://schemas.microsoft.com/mapi/proptag/0x10810003"
    strFilter = Chr(34) & strRepliedProperty & Chr(34) & " <> 102" & "AND" & Chr(34) & strRepliedProperty & Chr(34) & " <> 103"
    Set objSearch = Outlook.Application.AdvancedSearch(Scope:=strScope, Filter:=strFilter, SearchSubFolders:=True, Tag:="SearchFolder")
 
    'Save the search folder
    objSearch.Save ("Not Replied Emails")
    MsgBox "Search folder is created successfully!", vbInformation + vbOKOnly, "Search Folder"
End Sub

4. Содан кейін курсорды осы ішкі бағдарламаға қойыңыз.
5. Осыдан кейін осы макросты іске қосу үшін «F5» пернесін басыңыз.
6. Макрос аяқталған кезде келесі сурет сияқты хабар көрсетіледі.
7. Соңында сіз «Жауап берілмеген электрондық пошталар» деп аталатын жаңа іздеу қалтасын көре аласыз, ол Кіріс қалтасындағы барлық жауапсыз электрондық хаттарды қамтиды.

Іздеу қалтасының іздеу ауқымын өзгерту

Менің VBA кодымда бұл іздеу қалтасы тек әдепкі кіріс қалтасын іздейді. Іздеу ауқымын өзгерткіңіз келсе, төмендегі қадамдарды орындауға болады.

1. Алдымен іздеу қалтасын тінтуірдің оң жақ түймешігімен басыңыз.
2. Содан кейін контекстік мәзірден «Осы іздеу қалтасын теңшеу» таңдаңыз.
3. Әрі қарай, қалқымалы «Пайдаланушы іздеу қалтасы» диалогтық терезесінде «Шолу» түймесін басыңыз.
4. Кейінірек «Қалталарды таңдау» жаңа диалогтық терезесі көрсетіледі. Онда сіз жауап бермеген электрондық пошталарды іздейтін қалталарды таңдай аласыз.
5. Соңында, таңдаудан кейін өзгертулерді қолдану үшін бірнеше «OK» түймесін басуға болады.

Жиі Outlook қателерін жою

Жіберу/қабылдау қателеріне қатысты қателер, қол жетімсіз Outlook PST файлына қатысты қателер және т.б. сияқты Outlook бағдарламасында қате туралы хабарларды алу жиі кездеседі. Сондықтан, бұл қателерді тез және тиімді шешу үшін сіз қателерді табуды және пайдалануды үйренуіңіз керек. кіріс жәшігін жөндеу құралы. Сонымен қатар, кірістірілген құрал істен шыққан жағдайда, басқа тамаша сыртқы қызметтік бағдарламаны алу ұсынылады, мысалы DataNumen Outlook Repair.

Автордың кіріспесі:

Ширли Чжан - деректерді қалпына келтіру бойынша сарапшы DataNumen, Соның ішінде деректерді қалпына келтіру технологиялары бойынша әлемдік көшбасшы болып табылатын Inc. SQL Server жөндеу және бағдарламалық жасақтаманы жөндеу бағдарламалары. Қосымша ақпарат алу үшін кіріңіз WWW.datanumen.com