Como remover tipos específicos de anexos de e-mails no Outlook?

Você já tentou remover anexos em vários e-mails selecionados por tipo de arquivo no Outlook? Por exemplo, remover todos os arquivos de anexo docx ou png dos e-mails selecionados. Como você resolveria esse trabalho no Outlook?

Remova tipos específicos de anexos de e-mails com código VBA

Remova tipos específicos de anexos de e-mails com código VBA

Para remover tipos específicos de anexos de e-mails selecionados, o seguinte código VBA pode lhe fazer um favor, faça o seguinte:

1. Selecione os e-mails cujos tipos específicos de anexos você deseja remover na lista de distribuição.

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

3. Então clique inserção > Módulo, copie e cole o código abaixo no módulo em branco aberto, veja a captura de tela:

Código VBA: remova tipos específicos de anexos de e-mails:

Sub DeleteSpecificTypeOfAttachments()
Dim xSelection As Outlook.Selection
Dim xItem As Object
Dim xMailItem As Outlook.MailItem
Dim xAttachment As Outlook.Attachment
Dim xFileType As String
Dim xType As String
Dim xFSO As Scripting.FileSystemObject
Dim I As Integer
On Error Resume Next
Set xSelection = Outlook.Application.ActiveExplorer.Selection
Set xFSO = New Scripting.FileSystemObject
xType = ""
xType = InputBox("Attachment Type:", "Kutools for Outlook", xType, 8)
If Len(Trim(xType)) = 0 Then Exit Sub
For Each xItem In xSelection
    If xItem.Class = olMail Then
        Set xMailItem = xItem
       If xMailItem.Attachments.Count > 0 Then
            For I = xMailItem.Attachments.Count To 1 Step -1
                Set xAttachment = xMailItem.Attachments.Item(I)
                xFileType = xFSO.GetExtensionName(xAttachment.FileName)
                If InStr(xFileType, Trim(xType)) > 0 Then
                    xAttachment.Delete
                End If
            Next I
            xMailItem.Save
        End If
    End If
Next
Set xMailItem = Nothing
Set xFSO = Nothing
End Sub

4. E então ainda no Microsoft Visual Basic para Aplicações janela, clique em Ferramentas > Referências para ir para o Referências-Projeto1 caixa de diálogo e verifique Tempo de execução de scripts da Microsoft opção do Referências Disponíveis caixa de lista, veja a captura de tela:

doc remover anexo por tipo 1

5. Então clique OK para fechar a caixa de diálogo, agora, pressione F5 para executar este código e uma caixa de prompt for exibida, digite o tipo de anexo que deseja remover, consulte a captura de tela:

doc remover anexo por tipo 2