Como listar todos os nomes de anexo no corpo da mensagem ao redigir e-mail no Outlook?

Existem boas maneiras de inserirmos todos os nomes de anexo no corpo da mensagem ao redigir um e-mail no Outlook? Neste artigo, falarei sobre como resolver esse trabalho no Outlook.

Liste todos os nomes de anexo no corpo da mensagem ao redigir e-mail com código VBA

Liste todos os nomes de anexo no corpo da mensagem ao escrever e-mail com um recurso simples

Liste todos os nomes de anexo no corpo da mensagem ao redigir e-mail com código VBA

Execute as seguintes etapas para concluir esta tarefa:

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

2. No 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: liste todos os nomes de anexo no corpo da mensagem:

Private Sub Application_ItemSend(ByVal Item As Object, Cancel As Boolean)
    Dim xMailItem As MailItem
    If Item.Class = olMail Then
        Set xMailItem = Item
        If xMailItem.Attachments.Count > 0 Then
          AddAttachmentNamesToBody
        End If
    End If
    End Sub

3. Então continue clicando 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: liste todos os nomes de anexo no corpo da mensagem:

Public Sub AddAttachmentNamesToBody()
    Dim xMailItem As MailItem
    Dim xAttachment As Attachment
    Dim xFileName As String
   Dim xInspector As Outlook.Inspector
    Dim xDoc As Word.Document
    Dim xWdSelection As Word.Selection
    On Error Resume Next
    Set xMailItem = Outlook.ActiveInspector.CurrentItem
    If xMailItem.Attachments.Count = 0 Then
        Exit Sub
    End If
    xFileName = ""
    For Each xAttachment In xMailItem.Attachments
        If xFileName = "" Then
            xFileName = " <" & xAttachment.FileName & "> "
        Else
            xFileName = xFileName & vbCrLf & " <" & xAttachment.FileName & "> "
        End If
    Next xAttachment
    Set xInspector = Outlook.Application.ActiveInspector()
    Set xDoc = xInspector.WordEditor
    Set xWdSelection = xDoc.Application.Selection
    xWdSelection.HomeKey Unit:=wdStory
    xWdSelection.InsertBefore "Attachments: " & vbCrLf & xFileName & vbCrLf & vbCrLf
    Set xMailItem = Nothing
    End Sub

4. E, em seguida, clique em Ferramentas > Referências no Microsoft Visual Basic para Aplicações janela, no estalou para fora Referências-Projeto1 caixa de diálogo, verifique Biblioteca de objetos do Microsoft Word opção do Referências Disponíveis caixa de lista, veja a captura de tela:

5. Clique OK para sair da caixa de diálogo, então você deve adicionar o botão de macro no Barra de Ferramentas de Acesso Rápido. No novo Mensagem janela, escolha Mais comandos do Personalize a barra de ferramentas de acesso rápido drop down, veja a captura de tela:

6. No Opções do Outlook caixa de diálogo, faça as seguintes operações:

(1.) Selecione Macros do Escolha comandos de lista suspensa;

(2.) Clique no nome da macro que você inseriu agora;

(3.) Em seguida, clique em Adicionar botão para adicionar a macro ao Personalize a barra de ferramentas de acesso rápido.

7. Então clique OK para fechar a caixa de diálogo, agora, o botão de macro foi inserido no Barra de Ferramentas de Acesso Rápido, veja a captura de tela:

8. Agora, ao criar uma nova mensagem e clicar no botão de macro, os nomes dos anexos serão inseridos acima do corpo da mensagem, conforme mostrado a seguir:

Liste todos os nomes de anexo no corpo da mensagem ao escrever e-mail com um recurso simples

Pode ser que o código acima seja tão difícil para você aplicar, se você tiver Kutools for Outlook, Com o seu Copiar nomes recurso, você pode copiar rapidamente os nomes dos anexos de uma mensagem e colá-los em qualquer lugar que precisar.

Depois de instalar Kutools for Outlook, por favor, faça o seguinte:

1. Primeiro, crie o novo e-mail de que precisa e clique em Kutools > Copiar nomes no novo Mensagem janela, veja a imagem:

2. E então, uma caixa de prompt aparecerá para lembrá-lo de que os nomes dos anexos foram copiados para a área de transferência, veja a captura de tela:

3. Agora, você só precisa pressionar Ctrl + V juntas para colar os nomes dos anexos no corpo da mensagem de que você precisa, consulte a captura de tela:

Mais artigos relativos:

---

Melhores ferramentas de produtividade de escritório

Kutools for Outlook - Mais de 100 recursos poderosos para turbinar seu Outlook

🤖 Assistente de correio AI: E-mails profissionais instantâneos com magia de IA – um clique para respostas geniais, tom perfeito, domínio multilíngue. Transforme o envio de e-mails sem esforço! ...

📧 Automação de e-mail: Fora do escritório (disponível para POP e IMAP)  /  Agendar envio de e-mails  /  CC/BCC automático por regras ao enviar e-mail  /  Encaminhamento automático (regras avançadas)   /  Adicionar saudação automaticamente   /  Divida automaticamente e-mails de vários destinatários em mensagens individuais ...

📨 Gestão de E-mail: Lembre-se facilmente de e-mails  /  Bloquear e-mails fraudulentos por assuntos e outros  /  Apagar Emails Duplicados  /  Pesquisa Avançada  /  Consolidar pastas ...

📁 Anexos Pró: Salvar em lote  /  Desanexar lote  /  Comprimir em Lote  /  Salvamento automático   /  Desanexação Automática  /  Compressão automática ...

???? Interface Mágica: 😊Mais emojis bonitos e legais   /  Aumente a produtividade do seu Outlook com visualizações com guias  /  Minimize o Outlook em vez de fechar ...

???? Maravilhas com um clique: Responder a todos com anexos recebidos  /   E-mails antiphishing  /  🕘Mostrar fuso horário do remetente ...

👩🏼‍🤝‍👩🏻 Contatos e calendário: Adicionar contatos em lote de e-mails selecionados  /  Dividir um grupo de contatos em grupos individuais  /  Remover lembretes de aniversário ...

Sobre Características 100 Aguarde sua exploração! Clique aqui para descobrir mais.

Saiba Mais       Download grátis      Comprar