Ինչպե՞ս Outlook VBA- ի միջոցով արագ ստեղծել որոնման պանակ բոլոր անպատասխան նամակների համար

Outlook լուծումներ Սեպտեմբեր 29, 2025

Որպեսզի չպատասխանված էլ.փոստերը ձեր Outlook- ում ավելի հեշտությամբ ստուգեն, կարող եք ստեղծել նման էլ-նամակների որոնման պանակ: Այժմ այս հոդվածը ձեզ կներկայացնի, թե ինչպես կարելի է այն ձեռք բերել Outlook VBA- ի միջոցով:

Նախորդ հոդվածում «Ինչպե՞ս ավտոմատ կերպով ընդգծել այն կարևոր էլ-նամակները, որոնք դուք չեք պատասխանել Outlook- ում», դուք կարող եք սովորել միջոց `ցույց տալու այն կենսական նշանակության էլ.փոստերը, որոնք դուք չեք պատասխանել որոշակի գույնով: Բայց դուք կարող եք զգալ, որ դա դեռևս անհանգստացնող է նրանով, որ ստիպված եք մեկ առ մեկ զննել փոստի բոլոր թղթապանակները: Հետևաբար, կցանկանայիք ուղղակիորեն հավաքել բոլոր այդպիսի նամակները որոնման պանակում: Այժմ հետևյալում մենք կսովորեցնենք ձեզ օգտագործել VBA ՝ նման որոնման պանակ արագ ստեղծելու համար:

Ստեղծեք որոնման պանակ բոլոր չպատասխանված էլ. Փոստերի համար

Հենց ամենասկզբում, սtart Outlook դիմում:
Դրանից հետո սեղմեք «Alt + F11» ստեղները ՝ VBA խմբագիր մուտք գործելու համար:
Հաջորդը, պատճենեք հետևյալ 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

Հետևաբար, այս ենթածրագրի մեջ դրեք կուրսորը:
Դրանից հետո կտտացրեք «F5» ստեղնը կոճակին ՝ այս մակրոը գործարկելու համար:
Մակրոտն ավարտելուց հետո կցուցադրվի հաղորդագրություն, ինչպես հետևյալ նկարը:
Վերջապես, դուք կարող եք տեսնել «Չպատասխանված էլփոստեր» անվանումով որոնման նոր թղթապանակ, որը պարունակում է Ներարկղի բոլոր չպատասխանված նամակները:

Փոխել որոնման պանակի որոնման շրջանակը

Իմ VBA կոդում այս որոնման պանակը միայն որոնում է ստանդարտ մուտքի արկղի պանակը: Եթե ցանկանում եք փոխել որոնման շրջանակը, կարող եք հետևել ստորև նշված քայլերին:

Առաջին հերթին, աջով կտտացրեք որոնման պանակին:
Դրանից հետո համատեքստային ընտրացանկից ընտրեք «Անհատականացրու այս որոնման պանակը»:
Հաջորդը, «Պատվերով որոնման պանակ» պատուհանի պատուհանում կտտացրեք «Փնտրել» կոճակին:
Ավելի ուշ, կցուցադրվի «Ընտրիր պանակ (ներ)» - ի նոր երկխոսության տուփ: Դրանում դուք կարող եք ընտրել պանակները, որոնք պետք է որոնվեն ձեր կողմից չպատասխանած էլ.
Վերջապես, ընտրելուց հետո կարող եք պարզապես սեղմել մի քանի «OK» ՝ փոփոխությունները կիրառելու համար:

Վերացնել Outlook- ի հաճախակի սխալները

Սովորաբար ձեր Outlook- ում ստացվում են սխալի հաղորդագրություններ, ինչպիսիք են սխալներ ուղարկելու / ստանալու խափանումները, անհասանելի Outlook PST ֆայլը ներառող սխալներ և այլն: Հետևաբար, որպեսզի այս սխալներն արագ և արդյունավետ լուծվեն, դուք պետք է սովորեք, թե ինչպես կարելի է գտնել և օգտագործել դրանք մուտքի արկղի վերանորոգման գործիք, Բացի այդ, ներկառուցված գործիքի խափանման դեպքում առաջարկվում է ձեռք բերել մեկ այլ գերազանց արտաքին օգտակարության, ինչպիսին է DataNumen Outlook Repair.

Հեղինակի ներածություն.

Shirley Zhang- ը տվյալների վերականգման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում SQL Server նորոգում և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com