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 os seguintes passos para concluir esta tarefa:
1. Pressione 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. Em seguida, 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-Project1 que apareceu, marque a opção Microsoft Word Object Library na lista de referências disponíveis, veja a captura de tela:
 |  |  |
5. Clique em OK para sair da caixa de diálogo, então você deve adicionar o botão de macro à Barra de Acesso Rápido. Na nova janela 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 de aplicar para você, se você tiver o Kutools para Outlook, com o 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 para Outlook, por favor, faça o seguinte:
1. Primeiro, crie o novo e-mail que você precisa, e então clique em Kutools > Copiar Nomes na nova janela Mensagem, veja a captura de tela:
2. Em seguida, uma caixa de aviso aparecerá para lembrá-lo 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 à 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, 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 introduzirá 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 dos anexos que especificou toda vez que inicia o Outlook? Neste tutorial, mostraremos como alterar o local padrão dos anexos. Depois disso, a pasta de salvamento de anexos especificada será aberta automaticamente sempre que você salvar os anexos, mesmo que reinicie 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 removê-los um por um pode ser tedioso. Aqui apresentamos dois truques fáceis para remover todos os anexos de um e-mail e também remover todos os anexos de vários e-mails no Outlook.
Melhores Ferramentas de Produtividade para Office
Notícia de Última Hora: Kutools para Outlook Lança Versão Gratuita!
Experimente o novo Kutools para Outlook com mais de100 recursos incríveis! Clique para baixar agora!
📧 Automação de E-mail: Resposta automática (Disponível para POP e IMAP) / Agendar Enviar Email / 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 Email individuais ...
📨 Gerenciamento de Email: Recallar Email / Bloquear emails fraudulentos por Assunto e outros critérios / Excluir Duplicado / Pesquisa Avançada / Organizar Pastas ...
📁 Anexos Pro: Salvar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar automaticamente / Desanexar automaticamente / Auto Comprimir ...
🌟 Magia da Interface: 😊Mais emojis bonitos e legais / Notificações de emails importantes / Minimizar Outlook em vez de fechar ...
👍 Recursos de um clique: Responder a Todos com Anexos / Emails Anti-Phishing / 🕘Exibir o fuso horário do remetente ...
👩🏼🤝👩🏻 Contatos e Calendário: Adicionar contato em lote dos Email selecionados / Dividir um Grupo de Contatos em grupos individuais / Remover lembrete de aniversário ...
Utilize o Kutools no idioma que preferir — disponível em Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!
🚀 Download com um clique — Baixe todos os complementos de Office
Recomendado fortemente: Kutools para Office (5 em1)
Um clique para baixar cinco instaladores de uma vez — Kutools para Excel, Outlook, Word, PowerPoint e Office Tab Pro. Clique para baixar agora!
- ✅ Comodidade em um clique: Baixe todos os cinco pacotes de instalação em uma única ação.
- 🚀 Pronto para qualquer tarefa no Office: Instale os complementos que você precisa, quando precisar.
- 🧰 Inclui: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools para PowerPoint