Como listar todos os nomes de anexos no corpo da mensagem ao compor um e-mail no Outlook?
Existem boas maneiras de inserir todos os nomes de anexos no corpo da mensagem ao compor um e-mail no Outlook? Neste artigo, vou falar sobre como resolver essa tarefa no Outlook.
Listar todos os nomes de anexos no corpo da mensagem ao compor e-mail com código VBA
Listar todos os nomes de anexos no corpo da mensagem ao compor e-mail com um recurso simples
Listar todos os nomes de anexos no corpo da mensagem ao compor e-mail com código VBA
Por favor, siga as etapas a seguir para concluir esta tarefa:
1. Pressione e segure as teclas ALT + F11 para abrir a janela do Microsoft Visual Basic for Applications.
2. Na janela do Microsoft Visual Basic for Applications, clique duas vezes em ThisOutlookSession no painel Project1(VbaProject.OTM) para abrir o modo, e depois copie e cole o seguinte código no módulo em branco.
Código VBA: Listar todos os nomes de anexos 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. Depois, continue clicando em Inserir > Módulo, copie e cole o código abaixo no módulo em branco aberto, veja a captura de tela:
Código VBA: Listar todos os nomes de anexos 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 então clique em Ferramentas > Referências na janela do Microsoft Visual Basic for Applications, na caixa de diálogo Referências-Projeto1 que apareceu, marque a opção Microsoft Word Object Library na caixa de listagem Referências Disponíveis, veja a captura de tela:
 |  |  |
5. Clique em OK para sair da caixa de diálogo, depois você deve adicionar o botão de macro à Barra de Acesso Rápido. Na nova janela de Mensagem, escolha Mais Comandos no menu suspenso Personalizar Barra de Acesso Rápido, veja a captura de tela:
6. Na caixa de diálogo Opções do Outlook, faça as seguintes operações:
(1.) Selecione Macros na lista suspensa Escolher comandos de;
(2.) Clique no nome da macro que você inseriu agora mesmo;
(3.) E então clique no botão Adicionar para adicionar a macro à Barra de Acesso Rápido Personalizada.
7. Em seguida, clique em OK para fechar a caixa de diálogo, agora, o botão de macro foi inserido na Barra de Acesso Rápido, veja a captura de tela:
8. Agora, quando você 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 na captura de tela a seguir:
Listar todos os nomes de anexos no corpo da mensagem ao compor e-mail com um recurso simples
Talvez o código acima seja um pouco difícil para você aplicar, se você tiver o Kutools for Outlook, com seu recurso Copiar Nomes, você pode copiar rapidamente os nomes dos anexos de uma mensagem e colá-los onde precisar.
Após instalar o Kutools for Outlook, por favor, faça o seguinte:
1. Primeiro, crie o novo e-mail que você precisa e, em seguida, clique em Kutools > Copiar Nomes na nova janela de Mensagem, veja a captura de tela:
2. E então, uma caixa de aviso 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, basta pressionar as teclas Ctrl + V juntas para colar os nomes dos anexos no corpo da mensagem que você precisa, veja a captura de tela:
Mais artigos relacionados:
- Responder a Todos com Anexos Originais no Outlook
- Normalmente, quando você usa a função Responder a Todos para responder a mensagem para todos os destinatários no Outlook, os anexos originais serão perdidos automaticamente. É possível anexar os anexos originais ao responder a todos no Outlook?
- Baixar/Salvar Anexos do Outlook para uma Pasta Específica
- Geralmente falando, você pode salvar todos os anexos de um e-mail clicando em Anexos > Salvar Todos os Anexos no Outlook. Mas, se você precisar salvar todos os anexos de todos os e-mails recebidos e recebendo, alguma ideia? Este artigo apresentará duas soluções para baixar automaticamente anexos do Outlook para uma pasta específica.
- Alterar Local Padrão de Salvamento de Anexos no Outlook
- Você já se cansou de encontrar o local de anexo que especificou toda vez que inicia o Outlook? Neste tutorial, mostraremos como alterar o local padrão de salvamento de anexos. Depois disso, a pasta de salvamento de anexos especificada será aberta automaticamente sempre que você salvar os anexos, mesmo reiniciando o Outlook.
- Remover Todos os Anexos de um E-mail no Outlook
- Normalmente, ao visualizar um e-mail, você pode excluir um anexo clicando com o botão direito e selecionando o item Remover Anexo. Às vezes, pode haver muitos anexos em uma mensagem de e-mail, e pode ser tedioso removê-los um por um. Aqui apresentamos dois truques fáceis para remover todos os anexos de um e-mail e remover todos os anexos de vários e-mails também no Outlook.
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente agora a nova versão GRATUITA do Kutools para Outlook, com mais de70 recursos incríveis para você usar PARA SEMPRE! Clique para baixar agora!
📧 Automação de Email: Resposta automática (Disponível para POP e IMAP) / Agendar envio de emails / CC/BCC automático por Regra ao enviar email / Encaminhamento automático (Regra avançada) / Adicionar saudação automaticamente / Dividir automaticamente emails com múltiplos destinatários em mensagens individuais...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails suspeitos por assunto e outros critérios / Excluir Emails Duplicados / Pesquisa Avançada / Organizar Pastas...
📁 Anexos Pro: Salvar em lote / Desanexar em lote / Comprimir em lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir...
🌟 Interface Mágica: 😊Mais emojis bonitos e estilosos / Aviso quando emails importantes chegarem / Minimizar Outlook ao invés de fechar...
👍 Recursos com Um Clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente...
👩🏼🤝👩🏻 Contatos & Calendário: Adicionar contatos em lote a partir de emails selecionados / Dividir um grupo de contatos em grupos individuais / Remover lembrete de aniversário...
