Come rimuovere automaticamente gli allegati dopo l'invio delle email dalla cartella degli elementi inviati?
Quando si invia un'email con alcuni allegati, questi verranno salvati insieme alle email nella cartella degli elementi inviati per impostazione predefinita. Per ridurre la dimensione del file PST, potresti voler rimuovere automaticamente gli allegati dagli elementi inviati dopo l'invio delle email. In questo articolo, parlerò di come eseguire questa operazione in Outlook.
Rimuovi automaticamente gli allegati dopo l'invio delle email dalla cartella degli elementi inviati
Rimuovi automaticamente gli allegati dopo l'invio delle email dalla cartella degli elementi inviati
Il seguente codice VBA può aiutarti a eliminare automaticamente gli allegati dopo l'invio delle email da Outlook, procedi come segue:
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 seguente codice nel modulo vuoto.
Codice VBA: Rimozione automatica degli allegati dopo l'invio delle email dalla cartella degli 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. Dopo aver inserito il codice sopra, riavvia Outlook affinché il codice abbia effetto.
4. Da ora in poi, quando invii email con allegati, questi verranno eliminati automaticamente dagli elementi inviati, come mostrato nello screenshot seguente:
Nota: Questo codice è disponibile solo per l'account dati predefinito.
I migliori strumenti per la produttività in Office
Ultime novità: Kutools per Outlook lancia la versione gratuita!
Scopri la nuovissima versione GRATUITA di Kutools per Outlook con oltre70 funzionalità straordinarie, da utilizzare PER SEMPRE! Clicca per scaricarla subito!
📧 Automazione Email: Risposta automatica (disponibile per POP e IMAP) / Programma invio email / CC/BCC automatico tramite regola durante l'invio / Inoltro automatico (Regola avanzata) / Aggiungi saluto automaticamente / Suddividi automaticamente le email con più destinatari in messaggi individuali...
📨 Gestione Email: Richiama Email / Blocca email di phishing per oggetto e altri criteri / Elimina email duplicate / Ricerca Avanzata / Organizza cartelle...
📁 Allegati Pro: Salva in blocco / Distacca in blocco / Comprimi in blocco / Salvataggio automatico / Distacca automaticamente / Auto Comprimi...
🌟 Magia dell'interfaccia: 😊Più emoji belle e originali / Notifiche per email importanti / Riduci Outlook a icona invece di chiuderlo...
👍 Funzioni rapide: Rispondi a Tutti con Allegati / Email anti-phishing / 🕘Mostra il fuso orario del mittente...
👩🏼🤝👩🏻 Contatti & Calendario: Aggiungi in blocco contatti dalle email selezionate / Dividi un gruppo di contatti in gruppi individuali / Rimuovi promemoria di compleanno...
