VBA ile Tüm Outlook Klasörlerinde Tüm E-postaları Okundu Olarak Toplu Olarak İşaretleme

Birden fazla kullanıcı, tüm e-postaları toplu olarak okundu olarak işaretlemek için bir çözüm istiyor tüm Outlook klasörlerinde. Bu yazımızda sizlere böyle bir yöntemi tanıtacağız.  

Hepimizin bildiği gibi, bir klasördeki tüm postaları okundu olarak işaretlemek kolaydır. Klasörü seçin ve sağ tıklayın ve ardından içerik menüsünde "Tümünü okundu olarak işaretle" seçeneğini seçin. Ancak, okunmamış e-postaları olan birkaç klasör varsa, yukarıdaki yöntemle klasörler üzerinde tek tek işlem yapmanız gerekir. Bu çok zahmetli. Bu nedenle, toplu olarak gerçekleştirmenizi sağlayacak çok daha verimli bir yolu burada sizinle paylaşacağız.

Toplu Olarak Tüm E-postaları Tüm Outlook Klasörlerinde Okundu Olarak İşaretle

1. Öncelikle Outlook uygulamasını başlatın.
2. Ardından, Outlook VBA düzenleyicisine erişmek için “Alt + F11” tuşlarına basın.
3. Ardından, "Microsoft Visual Basic for Applications" penceresinde, aşağıdaki kodu kullanılmayan bir modüle kopyalayın.

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. Ardından, imleci ilk alt programa getirin.
5. Akabinde “F5” tuşuna basın veya araç çubuğundaki “Çalıştır” ikonuna tıklayın.
6. Sonunda, makro tamamlandıktan sonra, posta klasörü listesine geri dönebilirsiniz.
7. Orada, ekran görüntüsünde gösterildiği gibi, okunmamış tüm e-postaların okundu olarak işaretlendiğini göreceksiniz.

Sefil Outlook Veri Kaybından Kaçış

Kullanıcılar, Word belgelerinin ve Excel çalışma kitaplarının kolayca bozulabileceğini kabul etmiş olabilir. Nitekim bu dosyalara benzer şekilde Outlook veri dosyası da zarar görme eğilimindedir. Bu nedenle, bunu deneyimlemek konusunda isteksizseniz, bazı önlemler almalısınız. Düzenli yedeklemeler ve tüm kötü amaçlı yazılımları veya virüsleri engelleme gibi önlemleri ve gelen kutusu onarım aracının nasıl başlatılacağını bilmek gibi bazı hafifletici önlemleri içermelidir. Tarama gibi güçlü bir harici düzeltme aracı bulundurmak DataNumen Outlook Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. onarım mdf ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com