Cara Memberi Amaran Sekiranya Terlalu Banyak E-mel yang Belum Dibaca di Kotak Masuk Outlook Anda

Sebilangan pengguna berharap agar Outlook dapat memberi amaran kepada anda sekiranya terdapat terlalu banyak e-mel yang belum dibaca di peti masuk mereka, termasuk subfolder. Walaupun Outlook tidak menawarkan fungsi seperti itu, ia masih dapat dilaksanakan dengan kod VBA. Artikel ini akan menunjukkan kod ini kepada anda.

Kadang-kadang, kerana jadual anda yang sibuk, anda mungkin meninggalkan sebilangan besar surat yang belum dibaca di Peti Masuk anda. Dengan semakin banyak e-mel terkumpul, berurusan dengan mereka kemudian akan menjadi tugas yang agak membosankan dan menyusahkan. Dalam kes ini, anda mungkin berharap Outlook dapat mengingatkan anda sekiranya jumlah e-mel yang belum dibaca melebihi had tertentu. Berikut ini, kami akan berkongsi cara untuk mencapai fungsi ini.

Dapatkan Amaran Sekiranya Terlalu Banyak E-mel yang Belum Dibaca

1. Untuk bermula, lancarkan program Outlook anda seperti biasa.
2. Seterusnya, di tetingkap Outlook utama, tekan butang kekunci "Alt + F11".
3. Kemudian, anda akan masuk ke tetingkap "Microsoft Visual Basic for Applications", di mana anda perlu mencari dan membuka projek "ThisOutlookSession".
4. Selepas itu, anda harus menyalin kod VBA berikut ke dalam projek ini.

Private objInbox As Outlook.Folder
Private WithEvents objItems As Outlook.Items
Private lUnreadItemCount As Long

Private Sub Application_Startup()
    Set objInbox = Application.Session.GetDefaultFolder(olFolderInbox)
    Set objItems = objInbox.Items
 
    lUnreadItemCount = 0
    Call CountUnreadEmails(objInbox, lUnreadItemCount)
 
    'If there are more than 10 unread emails
    If lUnreadItemCount > 10 Then
       MsgBox "Too many unread emails in Inbox!" & vbCr & "Please deal with them as soon as possible!", vbExclamation + vbOKOnly, "Check Unread Emails"
    End If
End Sub

Private Sub objItems_ItemAdd(ByVal Item As Object)
    Call CountUnreadEmails(objInbox, lUnreadItemCount)
 
    lUnreadItemCount = 0
    If lUnreadItemCount > 10 Then
       MsgBox "Too many unread emails!" & vbCr & "Please deal with them as soon as possible!", vbExclamation + vbOKOnly, "Check Unread Emails"
    End If
End Sub

Private Sub CountUnreadEmails(ByVal objFolder As Outlook.Folder, ByRef lCount As Long)
    Dim objUnreadItems As Outlook.Items
    Dim objSubfolder As Outlook.Folder
 
    Set objUnreadItems = objFolder.Items.Restrict("[Unread] = True")
    lCount = objUnreadItems.count + lCount
 
    'Process all subfolders under Inbox recursively
    If objFolder.Folders.count > 0 Then
       For Each objSubfolder In objFolder.Folders
           Call CountUnreadEmails(objSubfolder, lCount)
       Next
    End If
End Sub

5. Selepas itu, anda harus menandatangani kod ini.
6. Kemudian, keluar dari tetingkap semasa dan ubah tetapan makro Outlook anda untuk mengaktifkan makro yang ditandatangani secara digital.
7. Akhir sekali, anda boleh memulakan semula Outlook anda untuk mengaktifkan makro baharu ini.
8. Mulai sekarang, setiap kali anda memulakan Outlook dan e-mel baharu tiba di peti mel anda, Outlook akan menyemak semula bilangan e-mel yang belum dibaca dalam Peti Masuk dan subfoldernya secara automatik.
9. Sekiranya nombor tersebut melebihi had yang telah anda tetapkan, Outlook akan memberi amaran kepada anda, seperti tangkapan skrin berikut:

Ambil Data Outlook setelah Keretakan Tiba-tiba

Outlook tidak dapat menghilangkan kesilapan secara menyeluruh. Kesalahan pemasangan boleh menyebabkan kerosakan tanpa sebarang arahan. Kerosakan serius boleh merosakkan fail data Outlook anda dalam sekejap. Oleh itu, anda perlu membuat langkah berjaga-jaga yang mencukupi, seperti membuat sandaran data biasa dan mendapatkan alat pemulihan luaran yang kuat, seperti DataNumen Outlook Repair. Ia dapat membantu anda membaiki PST fail dengan senang.

Pengenalan Pengarang:

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