Loncat ke daftar isi utama

Bagaimana cara menandai email yang belum dibaca lebih lama dari hari-hari tertentu sebagai dibaca secara otomatis di Outlook?

Jika ada beberapa email yang belum dibaca di folder Kotak Masuk Anda, biasanya, Anda dapat menerapkan fitur Tandai Semua sebagai Dibaca untuk menandai semua email yang belum dibaca sebagai email yang telah dibaca secara manual. Tapi, pernahkah Anda mencoba menandai email yang belum dibaca yang lebih lama dari hari-hari tertentu sebagai dibaca secara otomatis di Outlook tanpa mengaturnya secara manual setiap kali?

Tandai email yang belum dibaca yang lebih lama dari hari-hari tertentu sebagai telah dibaca secara otomatis dengan kode VBA


Tandai email yang belum dibaca yang lebih lama dari hari-hari tertentu sebagai telah dibaca secara otomatis dengan kode VBA

Untuk secara otomatis menandai semua email yang belum dibaca yang lebih lama dari hari-hari tertentu sebagai telah dibaca, kode VBA berikut dapat membantu Anda:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. di Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali Sesi Pandangan ini dari Project1 (VbaProject.OTM) panel untuk membuka mode, lalu salin dan tempel kode di bawah ini ke dalam modul kosong.

Kode VBA: Otomatis menandai email yang belum dibaca yang lebih lama dari hari-hari tertentu sebagai telah dibaca:

Private Sub Application_Startup()
        Call MarkOldUnreadEmailsAsRead
    End Sub
    Private Sub MarkOldUnreadEmailsAsRead()
    Dim xInboxFld As Outlook.Folder
    Dim xAccount As Account
    On Error GoTo L1
    For Each xAccount In Outlook.Application.Session.Accounts
        Set xInboxFld = xAccount.DeliveryStore.GetDefaultFolder(olFolderInbox)
        Call Processfolders(xInboxFld)
    Next xAccount
L1:     Exit Sub
    End Sub
    Private Sub Processfolders(ByVal InboxFld As Outlook.Folder)
    Dim xItems As Outlook.Items
    Dim i As Long
    Dim xSubFld As Outlook.Folder
    On Error Resume Next
    Set xItems = InboxFld.Items
    For i = 1 To xItems.Count
        If DateDiff("d", xItems(i).ReceivedTime, Now) >= 15 Then
           If xItems(i).UnRead = True Then
              xItems(i).UnRead = False
              xItems(i).Save
           End If
        End If
    Next
    If InboxFld.Folders.Count > 0 Then
       For Each xSubFld In InboxFld.Folders
           Call Processfolders(xSubFld)
       Next
    End If
End Sub

Note: Pada kode di atas, Anda dapat mengubah jumlah hari dalam skrip ini: Jika DateDiff ("d", xItems (i) .ReceivedTime, Now)> = 15 Kemudian untuk kebutuhan Anda sendiri.

3. Kemudian simpan dan tutup jendela kode ini, karena itu, setiap kali Anda meluncurkan Outlook, semua email yang belum dibaca yang lebih lama dari hari yang ditentukan akan ditandai sebagai sudah dibaca secara otomatis sekaligus.

Note: Kode ini hanya tersedia untuk akun data default.


Alat Produktivitas Kantor Terbaik

Kutools untuk Outlook - Lebih dari 100 Fitur Canggih untuk Meningkatkan Outlook Anda

🤖 Asisten Surat AI: Email profesional instan dengan keajaiban AI--satu klik untuk mendapatkan balasan jenius, nada sempurna, penguasaan multibahasa. Ubah email dengan mudah! ...

📧 Email Otomatis: Di Luar Kantor (Tersedia untuk POP dan IMAP)  /  Jadwal Kirim Email  /  Auto CC/BCC Sesuai Aturan Saat Mengirim Email  /  Penerusan Otomatis (Aturan Lanjutan)   /  Tambah Salam Otomatis   /  Secara Otomatis Membagi Email Multi-Penerima menjadi Pesan Individual ...

📨 email Management: Mengingat Email dengan Mudah  /  Blokir Email Penipuan berdasarkan Subjek dan Lainnya  /  Hapus Email Duplikat  /  Pencarian  /  Konsolidasi Folder ...

📁 Lampiran ProPenyimpanan Batch  /  Pelepasan Batch  /  Kompres Batch  /  Penyimpanan otomatis   /  Lepaskan Otomatis  /  Kompres Otomatis ...

🌟 Antarmuka Ajaib: 😊Lebih Banyak Emoji Cantik dan Keren   /  Tingkatkan Produktivitas Outlook Anda dengan Tampilan Tab  /  Minimalkan Outlook Daripada Menutup ...

👍 Keajaiban sekali klik: Balas Semua dengan Lampiran Masuk  /   Email Anti-Phishing  /  🕘Tampilkan Zona Waktu Pengirim ...

👩🏼‍🤝‍👩🏻 Kontak & Kalender: Batch Tambahkan Kontak Dari Email yang Dipilih  /  Bagi Grup Kontak menjadi Grup Individual  /  Hapus Pengingat Ulang Tahun ...

Lebih 100 Fitur Tunggu Eksplorasi Anda! Klik Di Sini untuk Menemukan Lebih Banyak.

 

 

Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
How do I modify the code to target a specific folder?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations