Hvordan fjerne vedleggene automatisk etter at e-poster er sendt fra de sendte elementene?
Når du sender e-post med enkelte vedlegg, vil vedleggene som standard lagres sammen med e-postene i mappen for sendte elementer. For å redusere størrelsen på PST-filen, kan det være lurt å fjerne vedleggene fra de sendte elementene automatisk etter e-postsending. Denne artikkelen vil jeg snakke om denne oppgaven i Outlook.
Fjern automatisk vedleggene etter at e-poster er sendt fra de sendte elementene
Fjern automatisk vedleggene etter at e-poster er sendt fra de sendte elementene
Følgende VBA-kode kan hjelpe deg med å automatisk slette vedleggene etter at e-poster er sendt fra Outlook, vennligst gjør som dette:
1. Hold nede "ALT" + "F11"-tastene for å åpne "Microsoft Visual Basic for Applications"-vinduet.
2. I "Microsoft Visual Basic for Applications"-vinduet dobbeltklikker du på "ThisOutlookSession" fra "Project1(VbaProject.OTM)"-ruten for å åpne modusen, og deretter kopierer og limer du inn følgende kode i den tomme modulen.
VBA-kode: Fjern automatisk vedlegg etter at e-poster er sendt fra de sendte elementene:
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. Etter å ha satt inn koden ovenfor, start Outlook på nytt for å få koden til å tre i kraft.
4. Fra nå av, når du sender e-poster med vedlegg, vil vedleggene automatisk bli slettet fra de sendte elementene som følgende skjermbilde vist:
Merknader: Denne koden er bare tilgjengelig for standarddatakontoen.
Beste kontorproduktivitetsverktøy
Nyheter: Kutools for Outlook lanserer gratisversjon!
Opplev den helt nye Kutools for Outlook GRATIS versjonen med 70+ utrolige funksjoner, du kan bruke FOR EVIGT! Klikk for å laste ned nå!
📧 E-postautomatisering: Autosvar (tilgjengelig for POP og IMAP) / Planlegg Send e-poster / Auto CC/BCC etter regler når du sender e-post / Automatisk videresending (avanserte regler) / Legg til hilsen automatisk / Del automatisk e-poster med flere mottakere i individuelle meldinger ...
📨 E-post Ledelse: Tilbakekall e-poster / Blokker svindel-e-poster etter emner og andre / Slett dupliserte e-poster / Avansert søk / Konsolider mapper ...
📁 Vedlegg Pro: Lagre batch / Batch løsne / Batch komprimere / Automatisk lagring / Automatisk frakobling / Automatisk komprimering ...
🌟 Grensesnittmagi: 😊 Flere vakre og kule emojier / Påminn deg når viktige e-poster kommer / Minimer Outlook i stedet for å lukke ...
👍 Ett-klikks Wonders: Svar alle med vedlegg / Anti-phishing-e-poster / 🕘Vis avsenderens tidssone ...
👩🏼🤝👩🏻 Kontakter og kalender: Batch-legg til kontakter fra utvalgte e-poster / Del en kontaktgruppe til individuelle grupper / Fjern bursdagspåminnelser ...
Bruk Kutools på ditt foretrukne språk – støtter engelsk, spansk, tysk, fransk, kinesisk og over 40 andre!
