Bagaimana cara menghapus lampiran secara otomatis setelah email dikirim dari item terkirim?

Saat mengirim email dengan beberapa lampiran, lampiran akan disimpan dengan email ke dalam folder item terkirim secara default. Untuk mengurangi ukuran file PST Anda, Anda mungkin ingin menghapus lampiran dari item terkirim secara otomatis setelah email terkirim. Artikel ini, saya akan membicarakan tugas ini di Outlook.

Secara otomatis menghapus lampiran setelah email dikirim dari item terkirim

Secara otomatis menghapus lampiran setelah email dikirim dari item terkirim

Kode VBA berikut dapat membantu Anda menghapus lampiran secara otomatis setelah email dikirim dari Outlook Anda, lakukan seperti ini:

1. Tahan ALT + F11 kunci untuk membuka Microsoft Visual Basic untuk Aplikasi jendela.

2. Dalam majalah Microsoft Visual Basic untuk Aplikasi jendela, klik dua kali Sesi Pandangan ini dari Project1 (VbaProject.OTM) panel untuk membuka mode, lalu salin dan tempel kode berikut ke dalam modul kosong.

Kode VBA: Hapus lampiran secara otomatis setelah email dikirim dari item terkirim:

Public WithEvents SentMailItems As Outlook.Items
    Private Sub Application_Startup()
    Set SentMailItems = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
    End Sub
    Sub SentMailItems_ItemAdd(ByVal Item As Object)
    Dim xSentMail As Outlook.MailItem
    Dim xAttachments As Outlook.Attachments
    Dim xAttachment As Outlook.Attachment
    Dim xAttachmentInfo As String
    On Error Resume Next
    If Item.Class = olMail Then
       Set xSentMail = Item
    End If
    Set xAttachments = xSentMail.Attachments
    For i = xAttachments.Count To 1 Step -1
        Set xAttachment = xAttachments.Item(i)
        xAttachmentInfo = "<HTML><BODY>" & xAttachment.DisplayName & _
                          "</BODY></HTML>" & vbCrLf & xAttachmentInfo
        xAttachment.Delete
    Next
    xSentMail.HTMLBody = "<HTML><BODY><font color=#FF0000>Attachment Removed: </font><br/></BODY></HTML>" & _
                         xAttachmentInfo & "<HTML><BODY><br/></BODY></HTML>" & xSentMail.HTMLBody
    xSentMail.Save
End Sub

3. Setelah memasukkan kode di atas, silakan restart Outlook Anda agar kode tersebut berlaku.

4. Mulai sekarang, ketika Anda mengirim email dengan lampiran, lampiran akan dihapus secara otomatis dari item terkirim seperti gambar layar berikut yang ditampilkan: