Jak automatycznie usuwać załączniki po wysłaniu wiadomości e-mail z wysłanych pozycji?

Podczas wysyłania wiadomości e-mail z niektórymi załącznikami, załączniki zostaną domyślnie zapisane wraz z wiadomościami e-mail w folderze Wysłane elementy. Aby zmniejszyć rozmiar pliku PST, możesz chcieć automatycznie usuwać załączniki z wysłanych elementów po wysłaniu wiadomości e-mail. W tym artykule omówię to zadanie w Outlooku.

Automatycznie usuwaj załączniki po wysłaniu wiadomości e-mail z wysłanych elementów

Automatycznie usuwaj załączniki po wysłaniu wiadomości e-mail z wysłanych elementów

Poniższy kod VBA może pomóc w automatycznym usuwaniu załączników po wysłaniu wiadomości e-mail z programu Outlook, wykonaj następujące czynności:

1. Przytrzymaj ALT + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.

2. W Microsoft Visual Basic for Applications kliknij dwukrotnie Ta sesja programu Outlook z Project1 (VbaProject.OTM) okienko, aby otworzyć tryb, a następnie skopiuj i wklej następujący kod do pustego modułu.

Kod VBA: Automatyczne usuwanie załączników po wysłaniu wiadomości e-mail z wysłanych elementów:

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. Po wstawieniu powyższego kodu zrestartuj Outlooka, aby kod zaczął obowiązywać.

4. Odtąd, gdy będziesz wysyłać e-maile z załącznikami, załączniki będą automatycznie usuwane z wysłanych przesyłek, jak pokazano na poniższym zrzucie ekranu: