Ինչպես արագ ստանալ ընտրված Outlook էլփոստի հավելվածների ընդհանուր թիվը

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

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

Որոշ պատճառներով, կարող է անհրաժեշտ լինել հաշվել Outlook-ի էլ. նամակներում կցորդների քանակը: Եթե պարզապես ցանկանում եք ստանալ մեկ էլ. նամակում կցորդների քանակը, դա բավականին հեշտ կլինի: Բայց եթե ցանկանում եք հաշվել մի քանի էլ. նամակներում կցորդները, ձեռքով հաշվելը շատ դժվար կլինի: Ընդհանուր առմամբ, ամենատարածված եղանակներից մեկը բոլոր կցորդները ձեր համակարգչի տեղական պանակում պահելն է: Այնուհետև ընտրեք դրանք, և Windows Explorer-ը կարգավիճակի տողում ձեզ կասի ընտրված տարրերի քանակը:

Այնուամենայնիվ, չի կարելի հերքել, որ այս մեթոդը դեռևս բավականին ծանրաբեռնված է: Իրականում, Outlook VBA-ի միջոցով դուք կարող եք արագորեն ստանալ ընտրված Outlook էլփոստի հավելվածների ընդհանուր թիվը: Կարդացեք՝ մանրամասն VBA կոդերն ու քայլերը սովորելու համար:

Արագ ստացեք ընտրված էլփոստի հավելվածների ընդհանուր թիվը

Սկզբում գործարկեք Outlook հավելվածը և անցեք «Developer» ներդիրին:
Այնուհետև կարող եք սեղմել «Visual Basic» կոճակը: Այն ձեզ կբերի «Microsoft Visual Basic հավելվածների համար» պատուհանը:
Հաջորդը պետք է բացեք չօգտագործվող նոր մոդուլ: Ընտրեք «Տեղադրել» > «Մոդուլ»:
Դրանից հետո դուք պետք է պատճենեք և տեղադրեք հետևյալ VBA կոդերը դրա մեջ.

Sub CountAttachmentsinSelectedEmails()
    Dim olSel As Selection
    Dim oMail As Object
    Dim AttCount As Long
    Dim strMsg As String
 
    Set olSel = Outlook.Application.ActiveExplorer.Selection
 
    For Each oMail In olSel
        'To confirm if the selected items are all emails
        If oMail.Class <> olMail Then
           strMsg = "Please select mail items only!"
           nRes = MsgBox(strMsg, vbOKOnly + vbExclamation)
           Exit Sub
        End If
        'Get the total number of the attachments in selected emails
        AttCount = oMail.Attachments.Count + AttCount
    Next
 
    strMsg = "There are " & AttCount & " attachments in the " & olSel.Count & " selected emails."
    nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Attachments")
End Sub

Այնուհետև կարող եք դուրս գալ «Visual Basic» պատուհանից և վերադառնալ Outlook-ի հիմնական պատուհան: Այնուհետև դուք պետք է գտնեք և սեղմեք ներքև սլաքը Արագ մուտքի գործիքագոտում և ընտրեք «Ավելի շատ հրամաններ» բացվող ցանկից:
Հետագայում հետևեք ստորև նկարում ներկայացված քայլերին:
Վերջապես կարող եք փորձել:

Մի քանի նամակներ ընտրելուց հետո կարող եք սեղմել նոր կոճակը Quick Access Toolbar-ում: Այնուհետև դուք կստանաք հաղորդագրություն, որը կտեղեկացնի ընտրված էլ. նամակների կցորդների քանակը: Այն նման է հետևյալ պատկերին.
Բայց եթե էլփոստի փոխարեն ընտրեք որևէ նյութ, որը հավասարապես հանդիպում է կամ պատասխանում, դուք կստանաք ծանուցում, ինչպես ստորև նկարում:

Արձագանքեք պատահական հեռանկարային խնդիրներին

Եթե դուք օգտագործել եք Outlook-ը տասնամյակներ շարունակ, դուք պետք է հանդիպած լինեք բազմաթիվ խնդիրների, ներառյալ Outlook-ի չպատասխանելը, Outlook-ի սառեցումը, հաճախակի սխալի հաղորդագրությունները և Outlook PST էլփոստի կոռուպցիան և այլն: Դուք արդեն տիրապետե՞լ եք դրանց լուծման որևէ հնարքի: Ընդհանուր առմամբ, դուք կարող եք Outlook-ը գործարկել անվտանգ ռեժիմով, ստեղծել Outlook-ի նոր պրոֆիլ, վերանորոգել գրասենյակը և անջատել երրորդ կողմի հավելումները և այլն: Բացի այդ, դուք պետք է նաև մոտակայքում պահեք հզոր վերանորոգման գործիք, օրինակ՝ DataNumen Outlook Repair. Այն օգտակար կլինի, երբ և՛ պահուստավորումը, և՛ ներարկղի վերանորոգման գործիքը ձախողվի:

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

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