Come rimuovere automaticamente gli allegati dalle email dopo averle inviate dalla cartella Elementi inviati?
Quando invii email con allegati, questi vengono archiviati automaticamente insieme ai messaggi nella cartella Elementi inviati. Per ridurre le dimensioni del file PST, potresti voler rimuovere automaticamente gli allegati dalla cartella Elementi inviati subito dopo l’invio delle email. In questo articolo ti spiego come fare in Outlook.
Rimuovi automaticamente gli allegati dopo l'invio delle email da Elementi inviati
Rimuovi automaticamente gli allegati dopo l'invio delle email da Elementi inviati
Il seguente codice VBA ti permette di eliminare automaticamente gli allegati subito dopo l’invio delle email da Outlook. Ecco come procedere:
1. Tieni premuti i tasti «ALT» +"F11« per aprire la finestra »Microsoft Visual Basic for Applications".
2.Nella finestra «Microsoft Visual Basic for Applications», fai doppio clic su «ThisOutlookSession» nel riquadro "Project1 (VbaProject.OTM)" per aprire il modulo, quindi copia e incolla il codice seguente nel modulo vuoto.
Codice VBA: Rimozione automatica degli allegati dopo l'invio delle email da Elementi inviati:
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. Riavvia Outlook per attivare il codice dopo aver inserito quello indicato sopra.
4. D’ora in poi, ogni volta che invierai un’email con allegati, questi verranno eliminati automaticamente dalla cartella Elementi inviati, come mostrato nello screenshot seguente:
Nota: Questo codice è disponibile esclusivamente per l'account dati predefinito.
Migliori strumenti per la produttività in Office
Scopri il nuovissimo Kutools per Outlook con 100+ funzionalità incredibili!Clicca per scaricare ora!
📧Automazione delle email: Risposta automatica (disponibile per POP e IMAP) / Invio email programmato / CC/BCC automatico in base a regole durante l’invio delle email / Inoltro automatico (regola avanzata) / Aggiunta automatica del saluto / Divisione automatica delle email con destinatari multipli in messaggi individuali...
📨Gestione delle email: Richiama Email / Blocca le email truffaldine in base all’oggetto e ad altri criteri / Elimina email duplicate / Ricerca avanzata / Organizza cartelle...
📁Allegati Pro: Salvataggio batch / Distacco batch / Compressione batch / Salvataggio automatico / Distacco automatico / Compressione automatica…
🌟Magia dell’interfaccia: 😊 Più emoji graziose e accattivanti / Ti avvisa all’arrivo di email importanti / Riduci a icona Outlook invece di chiuderlo...
👍Meraviglie con un clic: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘 Mostra il fuso orario – Ora corrente del mittente...
👩🏼🤝👩🏻Contatti e calendario: Aggiungi contatti in blocco dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi i promemoria dei compleanni...
Usa Kutools nella tua lingua preferita: supporta inglese, spagnolo, tedesco, francese, cinese e oltre 40 altre lingue!
🚀 Download con un clic — Ottieni tutti i componenti aggiuntivi per Office
Fortemente consigliato: Kutools for Office (5-in-1)
Un clic per scaricare cinque programmi di installazionetutti insieme —Kutools per Excel, Outlook, Word, PowerPointe Office Tab Pro.Clicca per scaricare ora!
- ✅Comodità con un solo clic: scarica tutti e cinque i pacchetti di installazione in un’unica azione.
- 🚀Pronto per qualsiasi attività in Office: installa i componenti aggiuntivi che ti servono, esattamente quando ti servono.
- 🧰Inclusi: Kutools per Excel / Kutools per Outlook / Kutools per Word / Office Tab Pro / Kutools for PowerPoint