Бүх имэйлийг VBA-тай бүх Outlook фолдерт уншсан байдлаар хэрхэн яаж тэмдэглэх вэ

Олон хэрэглэгчид бүх имэйлийг уншсан гэж тэмдэглэх багц шийдлийг хүсч байна бүх Outlook фолдеруудад. Энэ нийтлэлд бид ийм аргыг танд танилцуулах болно.  

Бидний мэдэж байгаагаар хавтсанд байгаа бүх захидлыг уншсан гэж тэмдэглэх нь амархан байдаг. Фолдерыг сонгоод хулганаа баруун товшоод, "Бүх зүйлийг уншсан гэж тэмдэглэх" сонголтыг сонгоод л болно. Гэхдээ уншаагүй имэйлтэй хэд хэдэн хавтас байгаа бол дээр дурьдсанаар та хавтасууд дээр нэг нэгээр нь гүйцэтгэх хэрэгтэй. Энэ нь хэтэрхий төвөгтэй юм. Тиймээс бид энд илүү үр дүнтэй арга замыг хуваалцах болно.

Бүх имэйлийг бүх Outlook фолдерт уншсан байдлаар багцлах

1. Эхлэхийн тулд Outlook програмыг ажиллуулна уу.
2. Дараа нь "Alt + F11" товчийг дарж Outlook VBA засварлагч руу орно уу.
3. Дараа нь, "Microsoft Visual Basic for Applications" цонхонд доорхи кодыг ашиглагдаагүй модулд хуулж ав.

Sub MarkAllItemsAsRead()
    Dim objStores As Outlook.Stores
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    'Process all Outlook files
    Set objStores = Outlook.Application.Session.Stores
  
    For Each objStore In objStores
        Set objOutlookFile = objStore.GetRootFolder
 
        For Each objFolder In objOutlookFile.Folders
            'Process mail folders
            If objFolder.DefaultItemType = olMailItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objUnreadItems As Outlook.Items
    Dim i As Integer
    Dim objItem As Object
    Dim objSubFolder As Outlook.Folder
 
    Set objUnreadItems = objCurFolder.Items.Restrict("[Unread]=True")
 
    'Mark all unread emails as read
    For i = 1 To objUnreadItems.Count
        Set objItem = objUnreadItems.Item(i)
        objItem.UnRead = False
        objItem.Save
    Next
 
    'Process subfolders recursively
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubFolder In objCurFolder.Folders
           Call ProcessFolders(objSubFolder)
       Next
    End If
End Sub

4. Үүний дараа курсорыг эхний дэд програм руу оруулна уу.
5. Дараа нь "F5" товчлуурыг дарах эсвэл багажны самбар дээрх "Ажиллуулах" дүрс дээр дарна уу.
6. Эцэст нь макро дууссаны дараа та захидлын хавтасны жагсаалт руу буцаж очиж болно.
7. Тэнд дэлгэцийн агшинг харуулсны дагуу уншаагүй бүх имэйлийг уншсан гэж тэмдэглэсэн байхыг харах болно.

Outlook-ийн өрөвдөлтэй алдагдлаас зугтах

Word баримт бичиг, Excel-ийн ажлын дэвтэр амархан авлигад өртөж болзошгүйг хэрэглэгчид хүлээн зөвшөөрсөн байх. Үнэн хэрэгтээ эдгээр файлуудтай адил Outlook өгөгдлийн файл нь гэмтэх магадлалтай байдаг. Тиймээс, хэрэв та үүнийг мэдрэхийг хүсэхгүй байгаа бол зарим арга хэмжээ авах хэрэгтэй. Үүнд ердийн нөөцлөлт, бүх хортой програм эсвэл вирусыг хориглох зэрэг урьдчилан сэргийлэх арга хэмжээ, имэйлийн хайрцаг засах хэрэгслийг хэрхэн ажиллуулахаа мэдэх зэрэг зарим тусламжийн арга хэмжээг багтаасан байх ёстой. Сканнердах гэх мэт хүчирхэг гадаад засах хэрэгслийг хадгалах DataNumen Outlook Repair.

Зохиогчийн танилцуулга:

Ширли Жан бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. mdf-ийг засах програм хангамжийн бүтээгдэхүүнийг засах хэтийн төлөв. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com