როგორ დავაფიქსიროთ ყველა ელფოსტა წაკითხულად მონიშვნა ყველა Outlook საქაღალდეში VBA-ით

მრავალი მომხმარებელი ეძებს გამოსავალს, რათა ყველა ელფოსტა წაკითხულად მონიშნოს Outlook-ის ყველა საქაღალდეში. ამ სტატიაში ჩვენ გაგაცნობთ ასეთ მეთოდს.  

როგორც ყველამ ვიცით, საქაღალდეში ყველა წერილი წაკითხულად მონიშვნა ადვილია. უბრალოდ აირჩიეთ და დააწკაპუნეთ მარჯვენა ღილაკით საქაღალდეზე და შემდეგ აირჩიეთ „ყველას წაკითხულად მონიშვნა“ კონტექსტური მენიუში. თუმცა, თუ არსებობს რამდენიმე საქაღალდე, რომელსაც აქვს წაუკითხავი ელ.წერილი, ზემოაღნიშნული საშუალებებით, თქვენ უნდა შეასრულოთ საქაღალდეები სათითაოდ. ძალიან პრობლემურია. აქედან გამომდინარე, აქ ჩვენ გაგიზიარებთ ბევრად უფრო ეფექტურ გზას, რომელიც საშუალებას მოგცემთ განახორციელოთ ის ნაყარი.

ჯგუფურად მონიშნეთ ყველა ელფოსტა წაკითხულად ყველა Outlook საქაღალდეში

1. დასაწყებად, გაუშვით Outlook აპლიკაცია.
2. შემდეგ დააჭირეთ "Alt + F11" Outlook VBA რედაქტორზე წვდომისთვის.
3. შემდეგი, "Microsoft Visual Basic აპლიკაციებისთვის" ფანჯარაში დააკოპირეთ ქვემოთ მოცემული კოდი გამოუყენებელ მოდულში.

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" ან დააწკაპუნეთ ინსტრუმენტთა პანელში "Run" ხატულაზე.
6. საბოლოოდ, მაკროს დასრულების შემდეგ, შეგიძლიათ დაბრუნდეთ ფოსტის საქაღალდეების სიაში.
7. იქ ნახავთ, რომ ყველა წაუკითხავი ელფოსტა მოინიშნა წაკითხულად, როგორც ნაჩვენებია ეკრანის სურათზე.

გაქცევა სავალალო Outlook მონაცემთა დაკარგვისგან

მომხმარებლებმა შეიძლება აღიარეს ის ფაქტი, რომ Word დოკუმენტები და Excel სამუშაო წიგნები შეიძლება ადვილად დაზიანდეს. სინამდვილეში, ამ ფაილების მსგავსად, Outlook მონაცემთა ფაილი ასევე მიდრეკილია დაზიანებისკენ. ამიტომ, თუ თქვენ არ გსურთ ამის გამოცდილება, უნდა მიიღოთ გარკვეული ქმედებები. ის უნდა მოიცავდეს სიფრთხილის ზომებს, როგორიცაა რეგულარული სარეზერვო ასლები და ყველა მავნე პროგრამის ან ვირუსის დაბლოკვა, და გარკვეული შემამსუბუქებელი ზომები, როგორიცაა იმის ცოდნა, თუ როგორ უნდა გაუშვათ შემოსულების შეკეთების ინსტრუმენტი, სკანპსტი და ძლიერი გარე დამაგრების ხელსაწყოს შენახვა, როგორიცაა DataNumen Outlook Repair.

ავტორი შესავალი:

შირლი ჟანგი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის მდფ-ის შეკეთება და Outlook სარემონტო პროგრამული პროდუქტები. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად