Outlook'ta aylık gönderilen e-posta sayısını nasıl hesaplarsınız?

YazarXiaoyang Değiştirme Tarihi2024-09-18

Bazen, her ay kaç e-posta gönderdiğinizi merak edebilirsiniz. Bu öğretici, Outlook’ta aylık gönderilen e-posta sayısını hesaplamanıza yardımcı olacak bir VBA kodunu sizinle paylaşacak.

Outlook'ta VBA koduyla aylık gönderilen e-posta sayısını sayma

Aşağıda gösterildiği gibi her ay gönderilen e-posta sayısını almak için aşağıdaki VBA kodunu uygulayın:

1. Microsoft Visual Basic for Applications penceresini açmak için ALT + F11 tuşlarına basılı tutun.

2. Ekle > Modül’e tıklayın, ardından aşağıdaki kodu Modül penceresine yapıştırın.

VBA kodu: Aylık gönderilen e-posta sayısını sayma:

Dim GDictionary As Object
Sub CountSentMailsByMonth()
'Updateby Extendoffice
Dim xSentFolder As Outlook.Folder
Dim xExcelApp As Excel.Application
Dim xWb As Excel.Workbook
Dim xWs As Excel.Worksheet
Dim xMonths As Variant
Dim xItemsCount As Variant
Dim xLastRow As Integer
Dim I As Integer
Dim xAccount As Account
On Error Resume Next
Set GDictionary = CreateObject("Scripting.Dictionary")
For Each xAccount In Application.Session.Accounts
  If VBA.LCase$(xAccount.SmtpAddress) = VBA.LCase$("yy@addin99.com") Then  'Specify the Email Account
    Set xSentFolder = xAccount.DeliveryStore.GetDefaultFolder(olFolderSentMail)
    If xSentFolder.DefaultItemType = olMailItem Then
      Call ProcessFolders(xSentFolder)
    End If
  End If
Next
Set xSentFolder = Nothing
Set xExcelApp = CreateObject("Excel.Application")
xExcelApp.Visible = True
Set xWb = xExcelApp.Workbooks.Add
Set xWs = xWb.Sheets(1)
With xWs
  .Cells(1, 1) = "Month"
  .Cells(1, 2) = "Count"
  .Cells(1, 1).Font.Bold = True
  .Cells(1, 2).Font.Bold = True
  .Cells(1, 1).HorizontalAlignment = xlCenter
  .Cells(1, 2).VerticalAlignment = xlCenter
End With
xMonths = GDictionary.Keys
xItemsCount = GDictionary.Items
For I = LBound(xMonths) To UBound(xMonths)
  xLastRow = xWs.Range("A" & xWs.Rows.Count).End(xlUp).Row + 1
  With xWs
    .Cells(xLastRow, 1) = xMonths(I)
    .Cells(xLastRow, 2) = xItemsCount(I)
  End With
Next
xWs.Columns("A:B").AutoFit
xExcelApp.Visible = True
Set xExcelApp = Nothing
Set xWb = Nothing
Set xWs = Nothing
End Sub

Sub ProcessFolders(ByVal Fld As Outlook.Folder)
Dim I As Long
Dim xMail As Outlook.MailItem
Dim xMonth As String
Dim xSubFolder As Folder
On Error Resume Next
For I = Fld.Items.Count To 1 Step -1
  If Fld.Items(I).Class = olMail Then
    Set xMail = Fld.Items(I)
    xMonth = Year(xMail.SentOn) & "/" & Month(xMail.SentOn)
    If GDictionary.Exists(xMonth) Then
      GDictionary(xMonth) = GDictionary(xMonth) + 1
    Else
      GDictionary.Add xMonth, 1
    End If
  End If
Next
If Fld.Folders.Count > 0 Then
  For Each xSubFolder In Fld.Folders
    Call ProcessFolders(xSubFolder)
  Next
End If
End Sub

Not: Kodda lütfen “yy@addin99.com” e-posta hesabını kendi hesabınızla değiştirin.

3. Hâlâ Microsoft Visual Basic for Applications penceresindeyken, Araçlar > Referanslar seçeneğine tıklayın. Açılan Referanslar - Proje iletişim kutusunda, Microsoft Excel 16,0 Nesne Kitaplığı seçeneğini Kullanılabilir Referanslar listesinden işaretleyin; ekran görüntüsüne bakın:

doc-count-sent-emails-per-month-1

4. Ardından, iletişim kutusunu kapatmak için Tamam düğmesine tıklayın ve bu kodu çalıştırmak üzere F5 tuşuna basın. Daha sonra, belirli bir hesabın her ay gönderdiği e-posta sayılarını gösteren bir Excel dosyası açılacaktır; ekran görüntüsüne bakın:

doc-count-sent-emails-per-month-2

Outlook’ta Yapay Zeka Posta Asistanı: Daha Akıllı Yanıtlar, Net İletişim (tek tıkla sihir!)

Kutools for Outlook’un Yapay Zeka Posta Asistanı ile günlük Outlook görevlerinizi hızlandırın! Bu güçlü araç, geçmiş e-postalarınızdan öğrenerek akıllı ve doğru yanıtlar sunar, e-posta içeriğinizi optimize eder ve mesajlarınızı zahmetsizce taslak haline getirip iyileşmenize yardımcı olur.

Bu özellik şunları destekler:

Akıllı Yanıtlar: Geçmiş sohbetlerinize dayanarak özelleştirilmiş, net ve hemen kullanıma hazır yanıtlar alın.
Geliştirilmiş İçerik: E-posta metninizi netlik ve etki açısından otomatik olarak güçlendirin.
Zahmetsiz Yazım: Anahtar kelimeleri girin, gerisini çoklu Yazı Stili ile yapay zeka halletsin.
Akıllı Uzantılar: Bağlama duyarlı önerilerle fikirlerinizi daha da geliştirin.
Özetleme: Uzun e-postaların kısa ve öz özetlerini anında alın.
Küresel Erişim: E-postalarınızı herhangi bir dile kolayca çevirin.

Bu özellik şunları destekler:

Akıllı e-posta yanıtları
İyileştirilmiş içerik
Anahtar kelimeye dayalı taslaklar
Akıllı içerik uzantısı
E-posta özetleme
Çok dilli çeviri

Beklemeyin—Yapay Zeka Posta Asistanı’nı şimdi indirin ve keyfini çıkarın!

En İyi Office Verimlilik Araçları

Yepyeni Kutools for Outlook’i 100+ inanılmaz özelliğiyle deneyimleyin!Şimdi indirmek için tıklayın!

🤖KUTOOLS AI:E-postaları yanıtlama, özetleme, iyileştirme, uzatma, çevirme ve oluşturma dahil olmak üzere zahmetsizce yönetmek için gelişmiş yapay zeka teknolojisi kullanır.

📧E-posta Otomasyonu: Otomatik Yanıt (POP ve IMAP için kullanılabilir) / E-postaları Zamanlayarak Gönderme / E-posta Gönderirken Kurallara Göre Otomatik CC/BCC / Otomatik Yönlendirme (Gelişmiş Kurallar) / Otomatik Selam Eklemesi / Çok Alıcılı E-postaları Otomatik Olarak Bireysel Mesajlara Bölme…

📨E-posta Yönetimi: E-postayı Geri Çağırma, Konu Başlıklarına ve Diğerlerine Göre Dolandırıcılık E-postalarını Engelleme, Yinelenen E-postaları Silme, Gelişmiş Arama, Klasörleri Düzenleme…

📁Ek Dosyalar Pro: Toplu Kaydet, Toplu Ayır, Toplu Sıkıştır, Otomatik Kaydet, Otomatik Ayır ve Otomatik Sıkıştır…

🌟Arayüz Büyüsü: 😊 Daha Güzel ve Havalı Emojiler / Önemli e-postalar geldiğinde sizi uyarır / Outlook’u Kapatmak Yerine Küçültür…

👍Tek Tıkla Harikalar: Tümüne Eklerle Yanıtla / Phishing’e Karşı E-postalar / 🕘Gönderenin Mevcut Saati: Saat Dilimini Göster…

👩🏼‍🤝‍👩🏻Kişiler ve Takvim:Seçili E-postalardan Toplu Kişi Ekleme/Bir Kişi Grubunu Bireysel Gruplara Bölme/Doğum Günü Hatırlatıcısını Kaldırma…

Kutools’u tercih ettiğiniz dilde kullanın – İngilizce, İspanyolca, Almanca, Fransızca, Çince ve 40’tan fazla başka dil desteğiyle!

Kutools for Outlook’u tek bir tıkla anında etkinleştirin! Beklemeyin, hemen indirin ve verimliliğinizi artırın!

Kutools for Outlook Özellik Listesi Şimdi İndir Satın Alma Sayfasına Git

🚀 Tek Tıkla İndir — Tüm Office Eklentilerini Edinin

Kesinlikle Önerilir: Kutools for Office (5’li Paket)

Beş yükleyiciyi tek tıkla indirin beş yükleyiciyiaynı anda —Kutools for Excel, Outlook, Word, PowerPointve Office Tab Pro.Şimdi indirmek için tıklayın!

✅Tek tıkla kullanım kolaylığı: Beş kurulum paketini tek seferde indirin.
🚀Her Office görevine hazır: İhtiyacınız olduğunda, ihtiyacınız olan eklentileri yükleyin.
🧰İçerik: Kutools for Excel / Kutools for Outlook / Kutools for Word / Office Tab Pro / Kutools for PowerPoint

Paket Hakkında ⬇ Paketi İndir 💳 Paketi Satın Al