Bir Outlook E-postasındaki Alıcı Sayısını Saymanın 2 Yöntemi

Bazen, belirli bir e-postadaki alıcıların toplam sayısını hesaplamak isteyebilirsiniz. Ancak Outlook'un onu destekleyecek belirgin bir "sayma" işlevi yoktur. Bu nedenle, bu makale bunu başarmak için 2 yaklaşımı tanıtacaktır.

Bazı durumlarda, örneğin, bir e-postaya çok sayıda alıcı eklediğinizde ve bunları yönetmenin zor olduğunu düşündüğünüzde, bu alıcıların toplam sayısını elde etmek istersiniz. Ancak Outlook'un sayılacak bir yerel veya varsayılan desteği yoktur. Bu nedenle, bunu başarmak için ekstra çaba sarf etmeniz gerekir. Burada size 2 yöntem anlatacağız.

Yöntem 1: Kişi Grubu aracılığıyla Alıcı Sayısını Say

1. Öncelikle, “Kime”, “CC” ve “BCC” alanlarındaki tüm alıcıları seçin ve mesaj gövdesindeki boş alana kopyalayın.
2. Ardından gövdedeki tüm alıcıları seçin ve onları da kopyalayın.
3. Sonra Outlook Kişiler bölmesine gidin ve “Yeni Kişi Grubu” nu tıklayın. Açılan pencerede, adı “Temp” olarak ayarlayın ve ardından “Üye Ekle” ye tıklayın ve açılır listeden “Adres Defterinden” seçeneğini seçin.
4. Ardından, daha önce kopyalanan alıcıları aşağıdaki ekran görüntüsü gibi "Üye ->" alanına yapıştırın:
5. Bundan sonra, “Tamam” düğmesine tıklayın ve Kişi Grubuna geri dönün. Tüm kopyalar otomatik olarak kaldırılacaktır. Şimdi yerel diske “Metin” dosyası olarak kaydedin.
6. Daha sonra Metin dosyasını açın ve aşağıdaki görüntü gibi gereksiz başlığı kaldırın:
7. Son olarak imleci son satıra getirebilirsiniz. Durum çubuğunda satırların toplam sayısını göreceksiniz. Bu, alıcıların toplam sayısıdır.

Yöntem 2: Outlook VBA ile Alıcı Sayısını Sayma

1. İlk olarak “Visual Basic” penceresine erişmek için “Alt + F11” tuşlarına basın.
2. Ardından aşağıdaki VBA kodlarını kopyalayıp yeni bir modüle yapıştı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

3. Bundan sonra, “Visual Basic” penceresinden çıkıp yeni makroyu ana Outlook penceresinin ve mesaj penceresinin Hızlı Erişim Araç Çubuğuna ekleyebilirsiniz.
4. Sonunda bir deneyebilirsin:

• Bir e-posta seçip Hızlı Erişim Araç Çubuğundaki düğmeye bastığınızda, aşağıdaki resimdeki gibi bir mesaj alacaksınız:
• Bir e-postayı açıp düğmesine tıkladığınızda, aşağıdaki resimdeki gibi bir iletişim kutusu alacaksınız:

Not: Bu yöntem, bir kişi grubunu tek bir alıcı olarak ele alır ve yinelenen alıcıları atlamaz.

Tehlikeli Makrolara Karşı Mücadele

Hepimizin bildiği gibi, e-posta yoluyla bulaşan virüsler veri güvenliğine yönelik en yaygın tehditlerden biridir. Bu nedenle, virüsleri ve kötü amaçlı yazılımları engelleyebilen dijital olarak imzalanmış makroları etkinleştirmek için Outlook'u yapılandırmak son derece önemlidir. Ayrıca, sağlam bir yedekleme sistemine sahip olmanızda fayda var. bozuk Outlook dosya onarım programıGibi DataNumen Outlook Repair. Outlook'unuz virüs bulaştığında veya kötü amaçlı yazılım saldırısına uğradığında kullanışlı olacaktır.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. onarım SQL mdf veri hatası ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com