Belirli Bir Tarihten Daha Eski Tüm Outlook E-postalarını Okundu Olarak İşaretlemenin 2 Yolu

Birden çok eski e-postayı Outlook'a aktardıktan sonra ve bu e-postalar "okunmadı" durumundayken, bunları toplu olarak okundu olarak işaretlemek istemeniz gerekir. Şimdi bu yazımızda sizlere 2 hızlı yöntem göstereceğiz.

Bazen, birden çok e-postayı toplu olarak okundu olarak işaretlemeniz gerekebilir. Örneğin, çok sayıda eski e-posta içeren eski bir PST dosyanız var. Ardından, e-postaları kendi Outlook PST dosyanıza aktarırsınız. Ancak içe aktardıktan sonra bu e-postalar varsayılan olarak "Okunmadı" olarak gösterilir. Şu anda, belirli bir tarihten daha eski olan bu postaları toplu olarak okundu olarak işaretlemek isteyeceksiniz. Burada, 2 kullanışlı ve verimli yaklaşımı paylaşmak için bu gereksinime bakacağız.

Yöntem 1: Bulunan E-postaları Manuel Olarak Okundu Olarak Toplu Olarak İşaretleyin

1. olaraktart, bir posta klasörü açın.
2. Ardından, arama kutusuna tıklayın.
3. Ardından, “Ara” şeridinde, “Kapsam” grubundaki “Tüm Posta Öğeleri” düğmesine tıklayın.
4. Bundan sonra, arama kutusuna "gönderilen: <=2018/5/21" kriterini girin. "2018/5/12"yi istediğiniz tarihe değiştirin.
5. Arama tamamlandığında, bulunan tüm posta öğelerini "Ctrl + A" ile seçin.
6. Son olarak, sağ tıklayın ve “Reklamı Okundu Olarak İşaretle” seçeneğini seçin.

Yöntem 2: Belirli Bir Tarihten Daha Eski E-postaları VBA ile Okundu Olarak Toplu Olarak İşaretleyin

1. Başlamak için, Outlook'ta VBA düzenleyicisini “ göre başlatın.Outlook'unuzda VBA Kodunu Nasıl Çalıştırırsınız?".
2. Ardından, aşağıdaki kodu bir modüle kopyalayın.

Dim dDate As Date

Sub MarkEmailsOlderThanSpecificDateRead()
    Dim objStore As Outlook.Store
    Dim objOutlookFile As Outlook.Folder
    Dim objFolder As Outlook.Folder
 
    dDate = InputBox("Enter the specific date:", , "2018/5/11")
 
    For Each objStore In Outlook.Application.Session.Stores
        Set objOutlookFile = objStore.GetRootFolder
 
        For Each objFolder In objOutlookFile.Folders
            If objFolder.DefaultItemType = olMailItem Then
               Call ProcessFolders(objFolder)
            End If
        Next
    Next
End Sub

Sub ProcessFolders(ByVal objCurFolder As Outlook.Folder)
    Dim objItem As Object
    Dim objMail As Outlook.MailItem
    Dim objSubfolder As Outlook.Folder
 
    For Each objItem In objCurFolder.Items
        If TypeOf objItem Is MailItem Then
           Set objMail = objItem
 
           If objMail.SentOn <= dDate Then
              If objMail.UnRead = True Then
                 objMail.UnRead = False
                 objMail.Save
              End If
           End If
        End If
    Next
 
    If objCurFolder.Folders.Count > 0 Then
       For Each objSubfolder In objCurFolder.Folders
           Call ProcessFolders(objSubfolder)
       Next
    End If
End Sub

3. Daha sonra bu makroyu hemen çalıştırmak için “F5” tuşuna basın.
4. Daha sonra, küçük açılır iletişim kutusuna belirli tarihi girin ve "Tamam" ı tıklayın.
5. Sonunda, belirli bir tarihten daha eski olan tüm e-postalar okundu olarak işaretlenecektir.

Ele Geçirilmiş Outlook Dosyasını Geri Yükle

Outlook PST dosyaları, Outlook ara sıra beklenmedik şekilde kilitlendikten sonra zarar görebilir. Güncellenmiş bir yedeğiniz varsa, Outlook'u kurtar verileri yedekleyin. Aksi takdirde, uzman bir uzman veya yardımcı program aramaktan başka seçeneğiniz yoktur. DataNumen Outlook Repair Outlook dosyasını onarmak için.

Yazar Tanıtımı:

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