Outlook VBA ile Belirli Bir Tarihten Daha Eski E-postalardaki Ekleri Hızlıca Kaldırma

Outlook posta kutusunu küçük tutmak ve Outlook verilerinin bozulmasını önlemek için, belirli bir süre önce gelen veya gönderilen e-postalardaki eklerin kaldırılması önerilir. Bu makale, Outlook VBA ile hızlı bir şekilde gerçekleştirmenize yardımcı olacaktır.

Hepimizin bildiği gibi, Outlook posta kutusu büyüdükçe, Outlook verileri çok daha savunmasız hale gelecek. Bu nedenle, genellikle bu ekleri daha önce yerel diskime kaydettiğim için, belirli bir tarihten daha eski eski e-postalardaki ekleri kaldırmaya alışıyorum. Ancak hangi e-postaların eskidiğini öğrenmem ve ardından ekleri manuel olarak kaldırmam biraz zahmetli. Verimliliğimi artırmak için Outlook VBA aracılığıyla bir çözüm buluyorum.

Belirli Bir Tarihten Daha Eski Alınan E-postalardan Ekleri Kaldırma

1. Başlamak için Outlook'u açın ve “Geliştirici” sekmesine dönün.
2. Daha sonra “Code” grubunda yer alan “Visual Basic” butonuna basınız.
3. Yeni bir pencere açılacaktır. İçinde yeni bir modül açıp aşağıdaki kodları içine kopyalamalısınız.

Sub RemoveAttachmentsfromAgedEmail()
    Dim olInbox As Outlook.Folder
    Dim varItem As Variant
    Dim i As Integer
    Dim intDatDiff As Integer
    Dim Att As Attachment
 
    Set olInbox = Session.GetDefaultFolder(olFolderInbox)

    For i = olInbox.Items.Count To 1 Step -1
        Set varItem = olInbox.Items.Item(i)
        If varItem.Class = olMail Then
           'calculate the period between now and the received time 
           intDatDiff = DateDiff("d", varItem.ReceivedTime, Now)
           'You can replace "50" as per your needs
           If intDatDiff > 50 Then
              For Each Att In varItem.Attachments
                  Att.Delete
              Next Att
              varItem.Save
           End If
        End If
    Next
End Sub

4. Artık mevcut "Visual Basic" penceresinden çıkıp makroyu Hızlı Erişim Araç Çubuğuna eklemeye devam edebilirsiniz. Aşağıdaki adımları takip et:

• İlk olarak, Hızlı Erişim Araç Çubuğundaki aşağı oka basın ve açılır listeden "Diğer Komutlar"ı seçin.
• Daha sonra "Komutları seç" alanından "Makrolar"ı seçmelisiniz.
• Sonra doğru makroyu seçin ve ortadaki “Ekle” düğmesine tıklayın.
• Son olarak, etkinleştirmek ve Outlook ana penceresine geri dönmek için “Tamam” düğmesine tıklayın.

5. Sonunda, Hızlı Erişim Araç Çubuğundaki düğmeyi bulabilir ve tıklayabilirsiniz. Belirttiğiniz tarihten daha eski olan maillerdeki ekler hızlı bir şekilde kaldırılacaktır.

Belirli Bir Tarihten Daha Eski Gönderilmiş E-postalardan Ekleri Kaldırma

Bu amaca ulaşmak için yukarıdaki VBA kodlarının tamamını kopyalayabilir, ancak aşağıdaki uyarıları izleyerek bazı satırları değiştirebilirsiniz:

1. Öncelikle VBA kodlarındaki tüm “olInbox”ları “olSentItemFolder” olarak değiştirin.
2. Ardından "Set olInbox = Session.GetDefaultFolder(olFolderInbox)" ifadesini şununla değiştirin:

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

3. Ardından "intDatDiff = DateDiff("d", varItem.RequiredTime, Now)" ifadesini şununla değiştirin:

intDatDiff = DateDiff("d", varItem.SentOn, Now)

Sinir bozucu Outlook Hatalarını Ortadan Kaldırın

Outlook'u uzun süredir kullandıysanız, sık yapılan hatalar yaygın sorunlar haline gelmiş olmalıdır. Bunları tahmin edemeyeceğiniz veya tamamen ortadan kaldıramayacağınız açıktır. Yapabileceğiniz şey, onları çözmek için elinizden gelenin en iyisini yapmaktır. Örneğin, gelen kutusu onarım aracı Scanpest.exe'yi kullanın. Outlook e-posta hatasını düzeltin. Ayrıca, beklenmeyen bir çökme durumunda Outlook verileriniz için düzenli bir yedekleme yapmanız gerekir.

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 SQL Server mdf hasarı ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com