Come rimuovere automaticamente gli allegati dopo l'invio di e-mail dagli elementi inviati?

Autore: Xiaoyang Ultima modifica: 2018-04-10

Quando si inviano e-mail con alcuni allegati, gli allegati verranno archiviati con le e-mail nella cartella della posta inviata per impostazione predefinita. Per ridurre le dimensioni del file PST, potresti voler rimuovere automaticamente gli allegati dagli elementi inviati dopo l'invio delle e-mail. In questo articolo, parlerò di questa attività in Outlook.

Rimuovi automaticamente gli allegati dopo l'invio di e-mail dagli elementi inviati

Rimuovi automaticamente gli allegati dopo l'invio di e-mail dagli elementi inviati

Il seguente codice VBA può aiutarti a eliminare automaticamente gli allegati dopo l'invio di e-mail da Outlook, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Nel Microsoft Visual Basic, Applications Edition finestra, fare doppio clic Questa sessione di Outlook dal Progetto1 (VbaProject.OTM) riquadro per aprire la modalità, quindi copia e incolla il codice seguente nel modulo vuoto.

Codice VBA: rimuove automaticamente gli allegati dopo l'invio di e-mail dagli 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 per rendere effettivo il codice.

4. D'ora in poi, quando invii e-mail con allegati, gli allegati verranno eliminati automaticamente dagli elementi inviati come mostrato nella seguente schermata: