Hiç seçilen e-postalardaki e-posta eklerinin sayısını saymanız istendi mi? Bunları manuel olarak sayarsanız sıkıcı olacaktır. Burada, Outlook VBA ile sayımı çok daha kolay ve hızlı hale getirmenize yardımcı olacağız.
Bazı nedenlerden dolayı, Outlook e-postalarındaki eklerin sayısını saymanız gerekebilir. Sadece bir e-postadaki eklerin sayısını öğrenmek istiyorsanız, bu oldukça kolay olacaktır. Ancak birden fazla e-postadaki ekleri saymak istiyorsanız, manuel olarak saymak çok zahmetli olacaktır. Genel olarak, en yaygın yöntemlerden biri, tüm ekleri bilgisayarınızdaki yerel bir klasöre kaydetmektir. Ardından bunları seçin ve Windows Gezgini, durum çubuğunda seçili öğelerin sayısını size gösterecektir.
Ancak, bu yöntemin hala oldukça hantal olduğu inkar edilemez. Aslında, Outlook VBA aracılığıyla, seçilen Outlook e-postalarındaki toplam ek sayısını hızlı bir şekilde alabilirsiniz. Ayrıntılı VBA kodlarını ve adımlarını öğrenmek için okumaya devam edin.
Seçilen E-postalardaki Toplam Ek Sayısını Hızla Alın
- İlk önce, Outlook uygulamasını başlatın ve “Geliştirici” sekmesine gidin.
- Ardından “Visual Basic” düğmesine tıklayabilirsiniz. Sizi “Uygulamalar için Microsoft Visual Basic” penceresine götürecektir.
- Ardından, kullanılmayan yeni bir modül açmalısınız. “Ekle” > “Modül”ü seçin.
- Bundan sonra, aşağıdaki VBA kodlarını kopyalayıp içine yapıştırmanız gerekir.
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
- Ardından, “Visual Basic” penceresinden çıkıp Outlook ana penceresine geri dönebilirsiniz. Ardından, Hızlı Erişim Araç Çubuğunda aşağı oku bulup basmalı ve açılır listeden “Daha Fazla Komut” seçmelisiniz.
- Daha sonra aşağıdaki resimde gösterilen adımları takip edin.
- Sonunda bir deneyebilirsin.
- Birkaç e-posta seçtikten sonra, Hızlı Erişim Araç Çubuğunda yeni düğmesine basabilirsiniz. Ardından, seçilen e-postalardaki eklerin sayısını bildiren bir mesaj alacaksınız. Aşağıdaki görüntü gibi görünüyor:
- Ancak, e-posta yerine istekleri veya yanıtları karşılayan herhangi bir öğeyi seçerseniz, aşağıdaki resimdeki gibi bir uyarı alırsınız:
Nadir Görülen Outlook Sorunlarına Tepki
Outlook'u onlarca yıldır kullandıysanız, Outlook'un yanıt vermemesi, Outlook'un donması, sık yapılan hata mesajları ve Outlook PST e-posta bozulması ve benzeri. Bunları çözmek için herhangi bir yöntem öğrendiniz mi? Genel olarak, Outlook'u güvenli modda başlatabilir, yeni bir Outlook profili oluşturabilir, Office'i onarabilir ve üçüncü taraf eklentilerini devre dışı bırakabilirsiniz, vb. Ayrıca, elinizin altında güçlü bir onarım aracı da bulundurmalısınız, örneğin... DataNumen Outlook Repair. Hem yedeklemeler hem de gelen kutusu onarım aracı başarısız olduğunda 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. bozuk SQL verilerini onar ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com