Kuinka poistaa liitteet automaattisesti lähetetyistä kohteista lähetettyjen sähköpostien jälkeen?
Kun lähetät sähköpostia joidenkin liitetiedostojen kanssa, liitteet tallennetaan oletusarvoisesti sähköpostien kanssa Lähetetyt-kansioon. Voit pienentää PST-tiedostosi kokoa poistamalla liitteet lähetetyistä kohteista automaattisesti sähköpostin lähettämisen jälkeen. Tässä artikkelissa puhun tästä tehtävästä Outlookissa.
Poista liitteet automaattisesti, kun sähköpostit on lähetetty lähetetyistä kohteista
Poista liitteet automaattisesti, kun sähköpostit on lähetetty lähetetyistä kohteista
Seuraava VBA-koodi voi auttaa sinua poistamaan liitteet automaattisesti Outlookista lähetettyjen sähköpostien jälkeen, toimi seuraavasti:
1. Pidä "ALT" + painettuna "F11"-näppäimiä avataksesi "Microsoft Visual Basic for Applications" -ikkunan.
2. Avaa tila kaksoisnapsauttamalla "Microsoft Visual Basic for Applications" -ikkunassa "ThisOutlookSession" "Project1(VbaProject.OTM)"-ruudusta ja kopioi ja liitä sitten seuraava koodi tyhjään moduuliin.
VBA-koodi: Poista liitteet automaattisesti, kun sähköpostit on lähetetty lähetetyistä kohteista:
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. Kun olet lisännyt yllä olevan koodin, käynnistä Outlook uudelleen, jotta koodi tulee voimaan.
4. Tästä eteenpäin, kun lähetät sähköposteja liitteineen, liitteet poistetaan automaattisesti lähetetyistä kohteista seuraavan kuvakaappauksen mukaisesti:
Huomautuksia: Tämä koodi on käytettävissä vain oletustietotilillä.
Parhaat toimiston tuottavuustyökalut
Breaking News: Kutools for Outlook julkaisee ilmaisen version!
Koe täysin uusi Kutools for Outlook ILMAINEN versio, jossa on yli 70 uskomatonta ominaisuutta, sinun käytössäsi IKUISESTI! Lataa nyt napsauttamalla!
📧 Sähköpostiautomaatio: Automaattinen vastaus (saatavilla POP:lle ja IMAP:lle) / Ajoita sähköpostien lähettäminen / Automaattinen CC/BCC sääntöjen mukaan lähetettäessä sähköpostia / Automaattinen edelleenlähetys (lisäsäännöt) / Automaattinen tervehdys / Jaa usean vastaanottajan sähköpostit automaattisesti yksittäisiksi viesteiksi ...
📨 Sähköposti Management: Muista sähköpostit / Estä huijaussähköpostit aiheiden ja muiden taholta / Poista päällekkäiset sähköpostit / Tarkennettu Haku / Yhdistä kansiot ...
📁 Liitteet Pro: Erätallennus / Erä Irrota / Eräpakkaus / Automaattinen tallennus / Automaattinen irrotus / Automaattinen pakkaus ...
🌟 Interface Magic: 😊Lisää kauniita ja siistejä emojia / Muistuttaa sinua tärkeistä sähköpostiviesteistä / Minimoi Outlook sulkemisen sijaan ...
???? Yhden napsautuksen Wonders: Vastaa kaikkiin liitteillä / Tietojenkalastelun vastaiset sähköpostit / 🕘Näytä lähettäjän aikavyöhyke ...
👩🏼🤝👩🏻 Yhteystiedot ja kalenteri: Erä Lisää yhteystietoja valituista sähköpostiviesteistä / Jaa yhteysryhmä yksittäisiin ryhmiin / Poista syntymäpäivämuistutukset ...
