Cara Cepat Menghapus Lampiran dari E-mel Lebih Lama Daripada Tarikh Khusus dengan Outlook VBA

Untuk menjaga kotak surat Outlook dalam ukuran kecil dan mencegah kerusakan data Outlook, disarankan untuk menghapus lampiran dari e-mel yang diterima atau dikirim pada periode tertentu yang lalu. Artikel ini akan membantu anda mencapainya dengan cepat dengan Outlook VBA.

Seperti yang kita semua tahu, dengan kotak surat Outlook lebih besar, data Outlook akan menjadi lebih rentan. Oleh itu, saya terbiasa membuang lampiran dalam e-mel lama yang lebih tua dari tarikh tertentu, kerana biasanya saya telah menyimpan lampiran ini ke cakera tempatan saya sebelum ini. Tetapi agak menyusahkan saya untuk mengetahui e-mel yang berumur dan kemudian membuang lampiran secara manual. Untuk meningkatkan kecekapan saya, saya mencari jalan keluar dengan menggunakan Outlook VBA.

Buang Lampiran dari E-mel yang Diterima Lebih Lama Daripada Tarikh Tertentu

1. Untuk memulakan, buka Outlook dan beralih ke tab "Pembangun".
2. Kemudian tekan butang "Visual Basic" dalam kumpulan "Code".
3. Tetingkap baru akan muncul. Di dalamnya, anda harus membuka modul baru dan menyalin kod 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 boleh keluar dari tetingkap "Visual Basic" terkini dan terus menambahkan makro ke Toolbar Akses Pantas. Ikuti langkah di bawah:

• Pertama, tekan anak panah ke bawah di Bar Alat Akses Pantas dan pilih "Lebih banyak Perintah" dari senarai drop-down.
• Maka anda harus memilih "Makro" di bidang "Pilih perintah dari".
• Seterusnya pilih makro yang betul dan klik butang "Tambah" di tengah.
• Terakhir, klik butang "OK" untuk mengaktifkannya dan kembali ke tetingkap utama Outlook.

5. Akhirnya anda dapat mencari dan mengklik butang di Quick Access Toolbar. Lampiran dalam surat, yang lebih tua dari tarikh yang anda tentukan, akan dikeluarkan dengan cepat.

Buang Lampiran dari E-mel Terkirim Lebih Lama Daripada Tarikh Tertentu

Untuk mencapai tujuan ini, anda boleh menyalin keseluruhan kod VBA di atas tetapi menukar beberapa baris tertentu dengan mengikuti notis di bawah:

1. Pertama, ubah semua "olInbox" ke "olSentItemFolder" dalam kod VBA.
2. Kemudian ganti "Set olInbox = Session.GetDefaultFolder (olFolderInbox)" dengan:

Set olSentItemFolder = Session.GetDefaultFolder(olFolderSentMail)

3. Seterusnya ganti "intDatDiff = DateDiff (" d ", varItem.ReceivedTime, Now)" dengan:

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

Hilangkan Kesalahan Outlook yang Mengganggu

Sekiranya anda sudah lama menggunakan Outlook, kesalahan yang kerap mesti menjadi perkara biasa. Sudah jelas bahawa anda tidak dapat meramalkan atau menyingkirkannya sepenuhnya. Apa yang anda boleh lakukan hanyalah mencuba yang terbaik untuk menyelesaikannya. Contohnya, gunakan alat pembaikan peti masuk, Scanpest.exe ke membetulkan ralat e-mel Outlook. Anda juga perlu membuat sandaran biasa untuk data Outlook sekiranya berlaku kemalangan yang tidak dijangka.

Pengenalan Pengarang:

Shirley Zhang adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk pembaikan SQL Server kerosakan mdf dan produk perisian pembaikan prospek. Untuk maklumat lebih lanjut, lawati www.datanumen.com