Bəzən müəyyən e-poçtdakı alıcıların ümumi sayını hesablamaq istəyə bilərsiniz. Lakin Outlook-un onu dəstəkləmək üçün açıq-aşkar “sayma” funksiyası yoxdur. Beləliklə, bu məqalə buna nail olmaq üçün 2 yanaşma təqdim edəcəkdir.
Bəzi hallarda, məsələn, e-poçta çoxlu sayda alıcı əlavə etdiyiniz və onları idarə etməkdə çətinlik çəkdiyiniz zaman bu alıcıların ümumi sayını əldə etmək istərdiniz. Lakin Outlook-un saymaq üçün yerli və ya defolt dəstəyi yoxdur. Beləliklə, buna nail olmaq üçün bəzi əlavə səylər etməlisiniz. Burada sizə 2 üsuldan bəhs edəcəyik.
Metod 1: Əlaqə Qrupu vasitəsilə Alıcıların sayını sayın
- Başlamaq üçün, "Kimə", "CC" və "BCC" sahələrində bütün alıcıları seçib mesajın əsas hissəsindəki boş yerə kopyalayın.
- Sonra bədəndəki bütün alıcıları seçin və onları da kopyalayın.
- Sonra Outlook Əlaqələr bölməsinə keçin və "Yeni Əlaqə Qrupu" düyməsini basın. Açılan pəncərədə adı "Temp" olaraq təyin edin və sonra "Üzvlər əlavə et" düyməsini basın və açılan siyahıdan "Ünvan Kitabından" seçin.
- Daha sonra, əvvəllər kopyalanmış alıcıları aşağıdakı ekran görüntüsü kimi "Üzv ->" sahəsinə yapışdırın:
- Bundan sonra, "OK" düyməsini basın və Əlaqə Qrupuna qayıdın. Bütün dublikatlar avtomatik silinəcək. İndi onu "Mətn" faylı olaraq yerli diskdə saxlayın.
- Daha sonra Mətn faylını açın və aşağıdakı şəkildəki kimi yararsız başlığı çıxarın:
- Nəhayət, kursoru sonuncu sətirə yerləşdirə bilərsiniz. Vəziyyət çubuğunda sətirlərin ümumi sayını görəcəksiniz. Bu, alıcıların ümumi sayıdır.
Metod 2: Outlook VBA ilə alıcıların sayını hesablayın
- Əvvəlcə "Visual Basic" pəncərəsinə daxil olmaq üçün "Alt + F11" düymələrini basın.
- Sonra aşağıdakı VBA kodlarını kopyalayıb yeni modula yapışdırın.
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
- Bundan sonra, "Visual Basic" pəncərəsindən çıxa və yeni makronu əsas Outlook pəncərəsinin və mesaj pəncərəsinin Tez Giriş Alətlər Panelinə əlavə edə bilərsiniz.
- Nəhayət, cəhd edə bilərsiniz:
- E-poçtu seçdiyiniz və Tez Giriş Alətlər Panelindəki düyməni vurduğunuzda, aşağıdakı şəkildəki kimi bir mesaj alacaqsınız:
- E-poçtu açdığınız zaman və düyməni kliklədiyiniz zaman aşağıdakı şəkildə göstərilən bir dialoq qutusu alacaqsınız:
Qeyd: Bu üsul bir əlaqə qrupuna bir alıcı kimi baxacaq və dublikat alıcılardan yan keçməyəcək.
Təhlükəli makrolara qarşı mübarizə
Hamımızın bildiyimiz kimi, e-poçt vasitəsilə ötürülən viruslar məlumatlar üçün ən çox yayılmış təhdidlərdən biri olmuşdur. Buna görə də Outlook-u yalnız rəqəmsal imzalanmış makroları aktivləşdirmək üçün konfiqurasiya etmək çox vacibdir, bu da virusları və zərərli proqramları bloklaya bilər. Üstəlik, güclü bir proqram təminatı saxlamağınız daha yaxşıdır. zədələnmiş Outlook fayl təmiri proqramıKimi DataNumen Outlook Repair. Bu, Outlook-unuz virus infeksiyası və ya zərərli proqram hücumuna məruz qaldıqda faydalı olacaq.
Müəllif Giriş:
Shirley Zhang məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc SQL mdf məlumat xətasını təmir edin və Outlook təmiri proqram məhsulları. Ətraflı məlumat üçün ziyarət edin www.datanumen.com