Cum se elimină automat atașamentele după trimiterea e-mailurilor din articolele trimise?

Când trimiteți e-mailuri cu anumite atașamente, atașamentele vor fi stocate împreună cu e-mailurile în dosarul articolelor trimise în mod implicit. Pentru a reduce dimensiunea fișierului dvs. PST, vă recomandăm să eliminați automat atașamentele din articolele trimise după trimiterea e-mailurilor. În acest articol, voi vorbi despre această sarcină în Outlook.

Eliminați automat atașamentele după trimiterea e-mailurilor din articolele trimise

Eliminați automat atașamentele după trimiterea e-mailurilor din articolele trimise

Următorul cod VBA vă poate ajuta să ștergeți automat atașamentele după trimiterea e-mailurilor din Outlook, vă rugăm să procedați astfel:

1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastră, faceți dublu clic Această sesiune Outlook de la Project1 (VbaProject.OTM) pentru a deschide modul, apoi copiați și lipiți următorul cod în modulul gol.

Cod VBA: Eliminarea automată a atașamentelor după trimiterea e-mailurilor din articolele trimise:

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. După introducerea codului de mai sus, vă rugăm să reporniți Outlook-ul pentru a face efectul codului.

4. De acum înainte, când trimiteți e-mailuri cu atașamente, atașamentele vor fi șterse automat din articolele trimise, după cum se arată în următoarea captură de ecran: