Outlook էլ.փոստում ստացողների թիվը հաշվելու 2 եղանակ

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

Երբեմն դուք կարող եք հաշվարկել ստացողների ընդհանուր թիվը կոնկրետ էլ. Բայց Outlook-ը չունի ակնհայտ «հաշվելու» գործառույթ՝ դրան աջակցելու համար: Այսպիսով, այս հոդվածը կներկայացնի 2 մոտեցում դրան հասնելու համար:

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

Մեթոդ 1. Հաշվեք ստացողների թիվը Կոնտակտային խմբի միջոցով

Սկսելու համար դուք պետք է ընտրեք բոլոր ստացողներին «Ում», «Պատճեն» և «Ծածկոց» դաշտերում և պատճենեք դրանք հաղորդագրության մարմնի դատարկ տարածքում։
Այնուհետև ընտրեք մարմնի բոլոր հասցեատերերը և պատճենեք դրանք նույնպես:
Հաջորդը գնացեք Outlook կոնտակտների վահանակ և կտտացրեք «Նոր կոնտակտային խումբ»: Բացվող պատուհանում սահմանեք անունը որպես «Temp», այնուհետև սեղմեք «Add Members» և ընտրեք «From Address Book» բացվող ցանկից:
Այնուհետև տեղադրեք նախկինում պատճենված հասցեատերերը «Անդամ ->» դաշտում, ինչպես հետևյալ սքրինշոթը.
Դրանից հետո սեղմեք «OK» կոճակը և վերադարձեք Կոնտակտային խումբ: Բոլոր կրկնօրինակներն ինքնաբերաբար կհեռացվեն: Այժմ պահեք այն տեղական սկավառակի վրա որպես «Տեքստ» ֆայլ:
Ավելի ուշ բացեք Տեքստային ֆայլը և հեռացրեք անօգուտ վերնագիրը, ինչպես ստորև ներկայացված պատկերը.
Վերջապես կարող եք կուրսորը տեղադրել վերջին տողում: Դուք կտեսնեք տողերի ընդհանուր թիվը կարգավիճակի տողում: Դա ստացողների ընդհանուր թիվն է։

Մեթոդ 2. Հաշվեք ստացողների թիվը Outlook VBA-ով

Սկզբում սեղմեք «Alt + F11» կոճակները՝ «Visual Basic» պատուհանին մուտք գործելու համար:
Այնուհետև պատճենեք և տեղադրեք հետևյալ VBA կոդերը նոր մոդուլի մեջ:

Sub CountRecipients()
    Dim obApp As Outlook.Application
    Dim olSel As Selection
    Dim olItem As MailItem
    Dim Recips As Recipients
    Dim strMsg As String
    Dim nRes As Integer
 
    Set obApp = Outlook.Application
 
    If TypeName(obApp.ActiveWindow) = "Inspector" Then
       Set olItem = obApp.ActiveInspector.CurrentItem
       Set Recips = olItem.Recipients
       strMsg = "The current message contains " & Recips.Count & " recipient(s)."
       nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
    Else
       Set olItem = obApp.ActiveExplorer.Selection.Item(1)
       Set Recips = olItem.Recipients
       strMsg = "The selected message contains " & Recips.Count & " recipient(s)."
       nRes = MsgBox(strMsg, vbOKOnly + vbInformation, "Count Recipients")
    End If
 
    Set obApp = Nothing
    Set olSel = Nothing
    Set olItem = Nothing
    Set Recips = Nothing
End Sub

Դրանից հետո դուք կարող եք դուրս գալ «Visual Basic» պատուհանից և նոր մակրո ավելացնել Outlook-ի հիմնական պատուհանի Quick Access Toolbar-ում և հաղորդագրության պատուհանում:
Ի վերջո, դուք կարող եք փորձել.

Երբ դուք ընտրում եք էլ.
Երբ բացում եք նամակ և սեղմում կոճակը, դուք կստանաք երկխոսության տուփ, որը ցույց է տրված ստորև ներկայացված պատկերի նման.

Նշում: Այս մեթոդը կոնտակտային խմբին կվերաբերվի որպես մեկ ստացողի և չի շրջանցի կրկնօրինակ ստացողներին:

Պայքար վտանգավոր մակրոների դեմ

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

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

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