E-posta listesindeki her e-postadaki eklerin sayısını hızlı bir şekilde almak istiyorsanız, bu makaledeki VBA kodunu kullanabilirsiniz. Gelen her e-postadaki ekleri otomatik olarak sayar ve sayımı yeni bir sütunda görüntüler.
Bazı kullanıcıların sık sık e-posta eklerini sayması gerekir. Bu senaryoda, ek sayısını görüntülemek için neden özel bir sütun oluşturup etkinleştirmiyorsunuz? Aşağıda, Outlook'un e-posta eklerini otomatik olarak nasıl sayacağını ve sayımı böyle yeni bir sütunda nasıl göstereceğinizi öğreteceğiz.
E-posta Listesinde Ek Sayısını Görüntüle
- Öncelikle Outlook uygulamanızı başlatın.
- Ardından, ana Outlook penceresindeki “Alt + F11” tuş düğmelerine basın.
- Sonraki yeni Outlook VBA düzenleyici penceresinde, kullanılmayan bir modülü açmanız gerekir.
- Ardından, aşağıdaki VBA kodunu kopyalayıp bu modüle yapıştırın.
Sub AutoCountAttachments(objMail As Outlook.MailItem)
Dim objAttachments As Outlook.Attachments
Dim objProperties As Outlook.UserProperties
Dim objProperty As Outlook.UserProperty
Dim strPropertyName As String
Set objAttachments = objMail.Attachments
strPropertyName = "Attachment Count"
Set objProperties = objMail.UserProperties
'Check if there is already a column in this name
Set objProperty = objProperties.Find(strPropertyName, True)
If objProperty Is Nothing Then
'If not, add this column
Set objProperty = objProperties.Add(strPropertyName, olText, True)
End If
'Set the column value equal to the count of attachments
objProperty.value = objAttachments.Count
objMail.Save
End Sub
- Bundan sonra, mevcut “Microsoft Visual Basic for Applications” penceresinden çıkabilirsiniz.
- Daha sonra, gelen her e-postada bu komut dosyasını çalıştırmak için yeni bir kural oluşturmanız gerekir.
- Öncelikle “Dosya” menüsüne gidin ve “Bilgi” sekmesi altındaki “Kuralları ve Uyarıları Yönet” düğmesine tıklayın.
- Ardından yeni iletişim kutusunda "Yeni Kural" düğmesine basın.
- Sonraki “Kural Sihirbazı” ekranında, “Aldığım mesajlara kuralı uygula”yı seçin ve “İleri”ye basın.
- Sonra "Koşulları seç"i yok sayın ve "İleri"ye tıklayın.
- Ardından "komut dosyası çalıştır" eylemini seçin ve aşağıdaki ekran görüntüsü gibi önceden eklenmiş makroyu seçin.
- Bundan sonra, son "Kural kurulumunu bitir" ekranına ulaşana kadar birkaç "İleri"ye tıklayın.
- Daha sonra, bu kural için yeni bir ad belirlemeniz ve “Bu kuralı zaten “Gelen Kutusunda” bulunan iletilerde çalıştır” seçeneğini ve “Bu kuralı aç” seçeneğini etkinleştirmeniz gerekir.
- Son olarak, “Bitir” düğmesine tıklayın.
- Ardından, VBA kodu tarafından oluşturulan “Attachment Count” sütununu eklemelisiniz. Aşağıdaki adımları uygulamanız yeterlidir:
- İlk olarak, e-posta listesi ekranında “Görüntüle” sekmesine gidin.
- Ardından “Ayarları Görüntüle” düğmesine tıklayın.
- Yeni açılan iletişim kutusunda, "Sütunlar" düğmesine basın.
- Ardından “Sütunları Göster” penceresinde “Gelen Kutusundaki Kullanıcı tanımlı sütunlar” altında “Ek Sayısı” sütununu bulun ve seçin ve “Ekle” düğmesine basın.
- Son olarak değişiklikleri kaydetmek için “Tamam” düğmesine tıklayın.
- Sonunda, e-posta listesinde, aşağıdaki resimde gösterilen, her e-posta için ek sayısını görüntüleyen bir "Ek Sayısı" sütunu görebilirsiniz:
Sinir bozucu PST Veri Kaybından Kaçının
Hiç kimsenin PST veri kaybını kabul etmeye istekli olmadığına inanılıyor. Aynı şey senin için de geçerli olmalı. Bu nedenle, PST dosyanızın veri yedeklerini almak ve gibi saygın bir düzeltme aracını ele geçirmek gibi bazı önlemler almalısınız. DataNumen Outlook Repair. Bu olabilir Outlook'u onar ter dökmeden sorunlar.
Yazar Tanıtımı:
Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. sql düzeltmesi ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com