Як автоматично видалити вкладення після надсилання електронних листів із надісланих елементів?

При надсиланні електронної пошти з деякими вкладеннями вкладення зберігатимуться разом із електронними листами у папці надісланих елементів за замовчуванням. Щоб зменшити розмір вашого файлу 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. Відтепер, коли ви надсилаєте електронні листи з вкладеннями, вкладення автоматично видаляються з надісланих елементів, як показано на наступному знімку екрана: