Cara Mengira E-mel Masuk dengan Cepat mengikut Tarikh, Bulan atau Tahun melalui Outlook VBA

Sekiranya anda ingin menghitung jumlah e-mel masuk pada tarikh tertentu, atau pada bulan atau tahun tertentu, anda dapat menggunakan cara cepat yang diperkenalkan dalam artikel ini. Ini akan mengajar anda bagaimana menggunakan VBA untuk mendapatkannya dalam sekejap.

Ketika menghitung berapa banyak e-mel yang diterima dalam tanggal atau periode tertentu, banyak yang terbiasa menggunakan folder pencarian Outlook, yang memungkinkan kita mengumpulkan semua e-mel yang masuk dalam tarikh atau julat tarikh tertentu dalam satu folder carian. Kemudian kita dapat menggunakan fitur "tunjukkan jumlah item" untuk folder surat untuk mendapatkannya. Walau bagaimanapun, tanpa keraguan, kaedah ini agak menyusahkan. Oleh itu, di sini kami akan mengajar anda satu lagi muslihat, yang dapat menggunakan Outlook VBA untuk membantu anda mendapatkan jumlah keseluruhan. Sekarang baca untuk mengetahui langkah dan kod terperinci.

Hitung E-mel Masuk mengikut Tarikh

1. Kepada start, lancarkan program Outlook anda dengan betul.
2. Kemudian anda boleh beralih ke tab "Pembangun" dan klik butang "Visual Basic".
3. Selanjutnya di tetingkap editor Outlook VBA pop timbul, anda dapat membuka modul baru dengan "Masukkan"> "Modul".
4. Selepas itu, salin kod VBA berikut ke modul baru.

'The following codes are working to count by day
Sub CountReceivedEmailsbyDay()
    Dim objItems As Outlook.Items
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim strDay As String
    Dim dReceivedTime As Date
    Dim strReceivedDate As String
    Dim i, n As Long
    Dim strMsg As String
    Dim nPrompt As Integer
 
    Set objItems = Outlook.Application.ActiveExplorer.CurrentFolder.Items
 
    objItems.SetColumns ("ReceivedTime")
    strDay = InputBox("Enter the specific day.(Format: yyyy-mm-dd)", "Specify Date")
 
    If strDay <> "" Then
       n = 0
       For i = 1 To objItems.Count
           If objItems.Item(i).Class = olMail Then
              Set objMail = objItems.Item(i)
              dReceivedTime = objMail.ReceivedTime
              strReceivedDate = Year(dReceivedTime) & "-" & Month(dReceivedTime) & "-" & Day(dReceivedTime)
              If strReceivedDate = strDay Then
                 n = n + 1
              End If
           End If
       Next i
 
       strMsg = "You have received " & n & " emails on " & strDay & "."
       nPrompt = MsgBox(strMsg, vbExclamation, "Count Received Emails")
    Else
       nPrompt = MsgBox("Please input the specific day!", vbExclamation)
    End If
End Sub

Catatan: Kod di atas ini berfungsi untuk menghitung e-mel masuk mengikut tarikh.

5. Selepas itu, anda boleh menambahkan makro baru ke Toolbar Akses Pantas seperti biasa.
6. Akhirnya, anda boleh mencuba.

• Pertama, pilih folder Peti Masuk.
• Kemudian klik pada butang di Bar Alat Akses Pantas.
• Seterusnya anda perlu memasukkan tarikh tertentu dalam format "yyyy-mm-dd".
• Terakhir, anda akan menerima permintaan jumlah keseluruhan, seperti gambar di bawah:

Hitung E-mel Masuk mengikut Bulan atau Tahun

Oleh kerana kod di atas ditentukan untuk dihitung berdasarkan hari, jika anda ingin mengira mengikut bulan atau tahun, anda perlu membuat beberapa perubahan pada kod tersebut.

1. Pertama, ubah semua "strDay" menjadi strBulan or tahun.
2. Kedua, ganti baris "strDay = InputBox (" Masukkan hari tertentu. (Format: yyyy-mm-dd) "," Tentukan Tarikh ")" dengan:

• strMonth = InputBox ("Masukkan bulan tertentu. (Format: yyyy-mm)", "Tentukan Bulan")
• strYear = InputBox ("Masukkan tahun tertentu. (Format: yyyy)", "Tentukan Tahun")

3. Ketiga, ubah baris “strReceivedDate = Year (dReceivedTime) &“ - ”& Month (dReceivedTime) &“ - ”& Day (dReceivedTime)” ke:

• strReceivedDate = Tahun (dReceivedTime) & “-” & Bulan (dReceivedTime) [selama sebulan]
• strReceivedDate = Tahun (dReceivedTime) [untuk tahun].

Apa yang Akan Berlaku Selepas Keruntuhan Outlook

Ramai pengguna pernah mengalami kerosakan Outlook. Paling baik, selepas restarTing Outlook, semua perkara akan dipulihkan, iaitu tidak akan berlaku. Namun, paling teruk, anda mungkin menghadapi masalah teruk Rasuah PST. Pada ketika itu, dengan andaian anda tidak mempunyai sandaran data semasa, jalan terakhir anda adalah, tidak diragukan lagi, alat pembaikan yang luar biasa, seperti DataNumen Outlook Repair.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pemulihan sql dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com