Как да премахнете автоматично прикачените файлове след изпращане на имейли от изпратените елементи?

Автор: Xiaoyang Последна промяна: 2018-04-10

Когато изпращате имейл с някои прикачени файлове, прикачените файлове ще се съхраняват с имейлите в папката за изпратени елементи по подразбиране. За да намалите размера на вашия PST файл, може да искате да премахнете прикачените файлове от изпратените елементи автоматично след изпращане на имейли. В тази статия ще говоря за тази задача в Outlook.

Автоматично премахване на прикачените файлове след изпращане на имейли от изпратените елементи

Автоматично премахване на прикачените файлове след изпращане на имейли от изпратените елементи

Следният VBA код може да ви помогне да изтриете автоматично прикачените файлове след изпращане на имейли от вашия Outlook, моля, направете следното:

1. Задръжте натиснат ALT + F11 за да отворите Microsoft Visual Basic за приложения прозорец.

2. в Microsoft Visual Basic за приложения прозорец, щракнете два пъти ThisOutlookSession от Проект1(VbaProject.OTM) прозорец, за да отворите режима, и след това копирайте и поставете следния код в празния модул.

VBA код: Автоматично премахване на прикачени файлове след изпращане на имейли от изпратените елементи:

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. След като поставите горния код, моля, рестартирайте вашия Outlook, за да влезе кодът в сила.

4. От сега нататък, когато изпращате имейли с прикачени файлове, прикачените файлове ще се изтриват автоматично от изпратените елементи, както е показано на следната екранна снимка: