Como remover automaticamente os anexos após o envio de emails dos itens enviados?

Ao enviar e-mail com alguns anexos, os anexos serão armazenados com os e-mails na pasta de itens enviados por padrão. Para reduzir o tamanho do seu arquivo PST, você pode remover os anexos dos itens enviados automaticamente após o envio dos e-mails. Neste artigo, vou falar sobre essa tarefa no Outlook.

Remova automaticamente os anexos após o envio de e-mails dos itens enviados

Remova automaticamente os anexos após o envio de e-mails dos itens enviados

O seguinte código VBA pode ajudá-lo a excluir automaticamente os anexos após o envio de e-mails de seu Outlook, faça o seguinte:

1. Segure o ALT + F11 chaves para abrir o Microsoft Visual Basic para Aplicações janela.

2. Na série Microsoft Visual Basic para Aplicações janela, clique duplo Esta sessão do Outlook do Projeto1 (VbaProject.OTM) painel para abrir o modo e, em seguida, copie e cole o código a seguir no módulo em branco.

Código VBA: remover automaticamente os anexos após o envio de e-mails dos itens enviados:

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. Depois de inserir o código acima, reinicie o Outlook para que o código tenha efeito.

4. A partir de agora, quando você enviar e-mails com anexos, os anexos serão excluídos automaticamente dos itens enviados, conforme mostrado a seguir: