Hur man tar bort bilagorna i ett e-postmeddelande automatiskt efter att ha skickat det i Outlook

Outlook-lösningar September 29, 2025

Om du är van vid att ta bort bilagor från e-postmeddelanden efter att du har skickat ut dem, kan du använda metoden som introduceras i den här artikeln, som använder Outlook VBA för att hjälpa dig att automatiskt hämta det.

Eftersom bilagorna till de utgående e-postmeddelandena vanligtvis lagras i din egen dator, kan du vara van vid att radera bilagorna efter att du har skickat ut e-postmeddelandena. Detta kommer att hålla din PST-fil i liten storlek, vilket inte bara kan säkerställa god prestanda för din Outlook utan också minska risken för PST-korruption. Därför, om du vill låta Outlook ta bort bilagorna från utgående e-postmeddelanden automatiskt, kan du använda följande metod, som använder VBA-koder.

Ta bort bilagorna till ett e-postmeddelande automatiskt efter att du har skickat det

Ta bort bilagorna till ett e-postmeddelande automatiskt efter att du har skickat det

  1. Starta din Outlook-applikation redan från början.
  2. Tryck sedan på ”Alt + F11” genvägar.
  3. Därefter kommer du in i Outlook VBA-redigeraren.
  4. Därefter bör du öppna projektfönstret "ThisOutlookSession".
  5. Kopiera och klistra sedan in följande VBA-koder i den.
Public WithEvents objSentMails As Outlook.Items

Private Sub Application_Startup()
    Set objSentMails = Outlook.Application.Session.GetDefaultFolder(olFolderSentMail).Items
End Sub

Private Sub objSentMails_ItemAdd(ByVal Item As Object)
    Dim objSentMail As Outlook.MailItem
    Dim objAttachments As Outlook.attachments
    Dim i As Long
    Dim strAttachmentInfo As String
 
    'Only work on emails
    If Item.Class = olMail Then
       Set objSentMail = Item
    End If
 
    Set objAttachments = objSentMail.attachments
 
    While objAttachments.Count > 0
          'Get the information of removed attachments
          strAttachmentInfo = "<HTML><BODY>Attachment Removed: " & objAttachments.Item(1).DisplayName & "</HTML></BODY>---------------------------------------------------------" & strAttachmentInfo
          objAttachments.Item(1).Delete
    Wend
 
    'Insert the information of removed attachments to the body
    objSentMail.HTMLBody = strAttachmentInfo & objSentMail.HTMLBody
    objSentMail.Save
End Sub

VBA-koder - Ta bort bilagorna i ett e-postmeddelande automatiskt efter att ha skickat det

  1. Efter det borde du underteckna den här koden.
  • Använd först digitala certifikat för VBA-projekt för att skapa ett certifikat.
  • Tilldela sedan detta certifikat till det nya makrot. Klicka på "Verktyg" > "Signatur" och följ sedan instruktionerna på skärmen.
  1. Senare kan du gå tillbaka till huvudfönstret i Outlook och klicka på "Makrosäkerhet" under fliken "Utvecklare".
  2. Nästa i popup-dialogrutan, ändra makroinställningar för att tillåta digitalt signerade makron.
  3. Starta slutligen om Outlook för att aktivera det nya VBA-projektet.
  4. Från och med nu, varje gång du skickar ett e-postmeddelande, kommer dess bilagor att raderas automatiskt, som följande skärmdump:Bilagor tas bort efter sändning

Lös Outlook-problem i tid

Det är ett obestridligt faktum att Outlook är felbenägen. Därför, om du vill skydda dina Outlook-data från förlust eller korruption, måste du lägga ner mycket ansträngningar, inklusive att göra regelbundna säkerhetskopior av data och hålla en robust Outlook-fix verktyg i närheten, t.ex. DataNumen Outlook Repair.

Författarintroduktion:

Shirley Zhang är expert på dataåterställning DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive korrupt mdf och Outlook-programvara för reparationsprogramvara. För mer information besök www.datanumen.com

Kommentarer är stängda.