Note: The other languages of the website are Google-translated. Back to English

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

6. Clique OK, e todos os anexos com o tipo específico que você definiu foram excluídos de uma vez, consulte a captura de tela:

doc remover anexo por tipo 3


Kutools for Outlook - traz 100 recursos avançados para o Outlook e torna o trabalho muito mais fácil!

  • Auto CC / BCC por regras ao enviar e-mail; Avanço automático Vários emails por encomenda; Resposta automatica sem servidor Exchange e mais recursos automáticos ...
  • Aviso BCC - mostrar mensagem quando você tentar responder a todos se o seu endereço de e-mail estiver na lista BCC; Lembrar quando houver anexos ausentes, e mais recursos de lembrete ...
  • Responder (todos) com todos os anexos na conversa de correio; Responder muitos e-mails em segundos; Adicionar saudação automaticamente quando responder; Adicionar data ao assunto ...
  • Ferramentas de anexo: gerenciar todos os anexos em todos os e-mails, Desanexação Automática, Comprimir tudo, Renomear tudo, Salvar tudo ... Relatório rápido, Contar e-mails selecionados...
  • Lixo eletrônico poderoso por costume; Remover e-mails e contatos duplicados... Permite que você faça de maneira mais inteligente, rápida e melhor no Outlook.
tiro kutools aba kutools do outlook 1180x121
tiro kutools outlook kutools mais guia 1180x121
 
Comentários (1)
Ainda não há classificações. Seja o primeiro a avaliar!
Este comentário foi feito pelo moderador no site
Maravilhoso, estava procurando exatamente isso. Acabei de fazer uma modificação para remover anexos com string específica no nome.
Não há comentários postados aqui ainda
Deixe o seu comentário
Postando como convidado
×
Avalie esta postagem:
0   Personagens
Locais sugeridos