Kako samodejno odstraniti priloge po pošiljanju e-pošte s poslanih predmetov?

Pri pošiljanju e-pošte z nekaterimi prilogami se priloge privzeto shranijo z e-poštnimi sporočili v mapo poslanih predmetov. Če želite zmanjšati velikost datoteke PST, boste morda želeli samodejno odstraniti priloge iz poslanih elementov po pošiljanju e-pošte. V tem članku bom govoril o tej nalogi v programu Outlook.

Samodejno odstranite priloge po pošiljanju e-pošte s poslanih elementov

Samodejno odstranite priloge po pošiljanju e-pošte s poslanih elementov

Naslednja koda VBA vam lahko pomaga pri samodejnem brisanju prilog po pošiljanju e-poštnih sporočil iz Outlooka. Naredite naslednje:

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. v Microsoft Visual Basic za aplikacije okno, dvokliknite Ta OutlookSession Iz Projekt1 (VbaProject.OTM) , da odprete način, nato pa v prazen modul kopirajte in prilepite naslednjo kodo.

Koda VBA: Samodejno odstrani priloge po pošiljanju e-pošte s poslanih elementov:

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. Ko vstavite zgornjo kodo, znova zaženite Outlook, da bo koda začela veljati.

4. Odslej, ko pošiljate e-poštna sporočila s prilogami, bodo priloge samodejno izbrisane iz poslanih predmetov, kot je prikazano na spodnji sliki zaslona: