Cara Cepat Menghapus Lampiran dari Email yang Lebih Lama dari Tanggal Tertentu dengan Outlook VBA

Untuk menjaga kotak surat Outlook dalam ukuran kecil dan mencegah korupsi data Outlook, disarankan untuk menghapus lampiran dari email yang diterima atau dikirim pada periode tertentu yang lalu. Artikel ini akan membantu Anda menyelesaikannya dengan cepat menggunakan Outlook VBA.

Seperti yang kita semua tahu, dengan kotak surat Outlook yang lebih besar, data Outlook akan menjadi jauh lebih rentan. Oleh karena itu, saya terbiasa menghapus lampiran di email lama yang lebih tua dari tanggal tertentu, karena saya biasanya telah menyimpan lampiran ini ke disk lokal saya sebelumnya. Tapi agak merepotkan karena saya harus mencari tahu email apa yang sudah tua dan kemudian menghapus lampirannya secara manual. Untuk meningkatkan efisiensi saya, saya menemukan solusi melalui Outlook VBA.

Hapus Lampiran dari Email yang Diterima Lebih Lama dari Tanggal Tertentu

1. Untuk memulai, buka Outlook dan buka tab "Pengembang".
2. Kemudian tekan tombol "Visual Basic" di grup "Kode".
3. Jendela baru akan muncul. Di dalamnya, Anda harus membuka modul baru dan menyalin kode berikut ke dalamnya.

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. Sekarang Anda dapat keluar dari jendela "Visual Basic" saat ini dan melanjutkan untuk menambahkan makro ke Bilah Alat Akses Cepat. Ikuti langkah-langkah di bawah ini:

• Pertama, tekan panah bawah di Bilah Alat Akses Cepat dan pilih "Perintah Lainnya" dari daftar drop-down.
• Maka Anda harus memilih "Makro" di bidang "Pilih perintah dari".
• Selanjutnya pilih makro yang benar dan klik tombol "Tambah" di tengah.
• Terakhir, klik tombol "OK" untuk mengaktifkannya dan kembali ke jendela utama Outlook.

5. Akhirnya Anda dapat menemukan dan mengklik tombol di Bilah Alat Akses Cepat. Lampiran dalam surat, yang lebih lama dari tanggal yang Anda tentukan, akan dihapus dengan cepat.

Hapus Lampiran dari Email Terkirim Lebih Lama Dari Tanggal Tertentu

Untuk mencapai tujuan ini, Anda dapat menyalin seluruh kode VBA di atas tetapi mengubah beberapa baris tertentu dengan mengikuti pemberitahuan di bawah ini:

1. Pertama, ubah semua "olInbox" menjadi "olSentItemFolder" di kode VBA.
2. Kemudian ganti "Set olInbox = Session.GetDefaultFolder(olFolderInbox)" dengan:

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

3. Selanjutnya ganti “intDatDiff = DateDiff(“d”, varItem.ReceivedTime, Now)” dengan:

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

Hilangkan Kesalahan Outlook yang Mengganggu

Jika Anda sudah lama menggunakan Outlook, kesalahan yang sering terjadi pasti sudah menjadi hal yang biasa. Jelas bahwa Anda tidak dapat memprediksi atau sepenuhnya menghilangkannya. Yang dapat Anda lakukan hanyalah mencoba yang terbaik untuk menyelesaikannya. Misalnya, gunakan alat perbaikan kotak masuk, Scanpest.exe perbaiki kesalahan email Outlook. Selain itu, Anda harus membuat cadangan rutin untuk data Outlook Anda jika terjadi kerusakan yang tidak terduga.

Pengantar Penulis:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk memperbaiki SQL Server kerusakan mdf dan produk perangkat lunak perbaikan pandangan. Untuk informasi lebih lanjut kunjungi www.datanumen.com