Hvordan fjernes vedhæftede filer automatisk, når e-mails er sendt fra de sendte varer?

Når du sender e-mail med nogle vedhæftede filer, gemmes vedhæftede filer som standard sammen med e-mails i mappen med sendte varer. For at reducere størrelsen på din PST-fil, kan du automatisk fjerne vedhæftede filer fra de sendte varer efter afsendelse af e-mails. Denne artikel vil jeg tale om denne opgave i Outlook.

Fjern automatisk vedhæftede filer efter e-mails, der sendes fra de sendte varer

Fjern automatisk vedhæftede filer efter e-mails, der sendes fra de sendte varer

Følgende VBA-kode kan hjælpe dig med automatisk at slette vedhæftede filer efter e-mails, der er sendt fra din Outlook, skal du gøre som dette:

1. Hold nede ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. I Microsoft Visual Basic til applikationer dobbeltklik på vinduet Denne OutlookSession fra Project1 (VbaProject.OTM) rude for at åbne tilstanden og derefter kopiere og indsætte følgende kode i det tomme modul.

VBA-kode: Fjern automatisk vedhæftede filer efter e-mails, der sendes fra de sendte varer:

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. Når du har indsat ovenstående kode, skal du genstarte din Outlook for at få koden til at træde i kraft.

4. Fra nu af, når du sender e-mails med vedhæftede filer, slettes de vedhæftede filer automatisk fra de sendte elementer som vist på følgende skærmbillede: