Como listar todos os nomes dos anexos no corpo da mensagem ao compor um e-mail no Outlook?
Existem boas formas de inserir todos os nomes dos anexos no corpo da mensagem ao compor um e-mail no Outlook? Neste artigo, explico como resolver essa tarefa no Outlook.
Listar todos os Nome do Anexo no corpo da mensagem ao compor um e-mail com código VBA
Listar todos os Nome do Anexo no corpo da mensagem ao compor um e-mail com código VBA
Siga os passos seguintes para concluir esta tarefa:
1. Prima e mantenha premidas as teclas ALT + F11 para abrir a janela Microsoft Visual Basic para Aplicações.
2. Na janela Microsoft Visual Basic para Aplicações, faça duplo clique em ThisOutlookSession no painel Project1 (VbaProject.OTM) para abrir o módulo e, em seguida, copie e cole o seguinte código no módulo vazio.
Código VBA: Listar todos os Nome do 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. Em seguida, clique em Inserir > Módulo, copie e cole o código seguinte no módulo vazio aberto, conforme mostra a imagem:
Código VBA: Listar todos os Nome do 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. Depois, clique em Ferramentas > Referências na janela Microsoft Visual Basic para Aplicações. Na caixa de diálogo Referências – Project1 que surge, marque a opção Microsoft Word Object Library na lista Referências Disponíveis, conforme mostra a imagem:
 |  |  |
5. Clique em OK para fechar a caixa de diálogo e, de seguida, adicione o botão da macro à Barra de Acesso Rápido. Na nova janela Mensagem, escolha Mais Comandos no menu pendente Personalizar Barra de Acesso Rápido, conforme mostra a imagem:
6. Na caixa de diálogo Opções do Outlook, realize as seguintes operações:
(1.) Selecione Macrosna lista pendente Escolher comandos de;
(2.) Clique no nome da macro que acabou de inserir;
(3.) Em seguida, clique no botão Adicionar para adicionar a macro à Personalizar Barra de Acesso Rápido.
7. Em seguida, clique em OK para fechar a caixa de diálogo. Agora, o botão da macro foi inserido na Barra de Acesso Rápido, conforme mostra a imagem:
8. Agora, ao criar uma nova mensagem e clicar no botão da macro, os nomes dos anexos serão inseridos acima do corpo da mensagem, conforme mostra a imagem:
Listar todos os Nome do Anexo no corpo da mensagem ao compor um e-mail com uma funcionalidade simples
O código anterior pode ser um pouco complicado de aplicar. Mas, se tiver o Kutools para Outlook, com a sua funcionalidade Copiar Nomes, pode copiar rapidamente os nomes dos anexos de uma mensagem e colá-los exatamente onde precisar.
Após instalar o Kutools para Outlook, proceda da seguinte forma:
1. Em primeiro lugar, crie o novo e-mail de que necessita e, em seguida, clique em Kutools > Copiar Nomes na nova janela Mensagem, conforme mostra a imagem:
2. Em seguida, surgirá uma caixa de aviso a informar que os nomes dos anexos foram copiados para a área de transferência, conforme mostra a imagem:
3. Agora, basta premir em simultâneo as teclas Ctrl + V para colar o nome do anexo no corpo da mensagem pretendido, conforme mostra a imagem:
Mais artigos relacionados:
- Responder a Todos com Anexos Originais No Outlook
- Normalmente, ao utilizar a função «Responder a Todos» no Outlook, os anexos originais são automaticamente omitidos. Será possível incluir novamente os anexos originais ao responder a todos no Outlook?
- Transferir/Guardar Anexos do Outlook para uma Pasta Específica
- De um modo geral, pode guardar todos os anexos de um e-mail ao clicar em **Anexos > Guardar Todos os Anexos** no Outlook. Contudo, se precisar de guardar todos os anexos de **todos os e-mails recebidos**, existe alguma solução ideal? Este artigo apresenta duas soluções para transferir automaticamente os anexos do Outlook para uma pasta específica.
- Alterar a Localização Predefinida dos Anexos Área de salvamento no Outlook
- Está cansado de ter de procurar sempre a localização dos anexos que definiu cada vez que inicia o Outlook? Neste tutorial, mostramos-lhe como alterar a pasta predefinida para guardar anexos. Após essa alteração, a pasta que especificar será aberta automaticamente sempre que guardar anexos — mesmo após reiniciar o Outlook.
- Remover Todos os Anexos de um E-mail no Outlook
- Normalmente, ao pré-visualizar um e-mail, pode remover um anexo clicando nele com o botão direito do rato e selecionando **Remover Anexo**. Contudo, quando uma mensagem contém vários anexos, eliminar cada um individualmente pode tornar-se cansativo. Por isso, apresentamos-lhe dois truques simples: um para remover todos os anexos de um único e-mail e outro para eliminar todos os anexos de várias mensagens de uma só vez no Outlook.
Melhores Ferramentas de Produtividade para o Office
Experimente o totalmente novo Kutools para Outlook com 100+ funcionalidades incríveis!Clique para transferir já!
📧Automação de E-mails: Resposta Automática (disponível para POP e IMAP) / Agendar Envio de E-mails / CC/BCC Automático por Regras ao Enviar E-mail / Encaminhamento Automático (regra avançada) / Adicionar Saudação Automaticamente / Dividir Automaticamente E-mails com Múltiplos Destinatários em Mensagens Individuais...
📨Gestão de E-mails: Recallar e-mail / Bloquear e-mails fraudulentos por assunto e outros critérios / Eliminar e-mails duplicados / Pesquisa avançada / Organizar pastas...
📁Anexos Pro: Guardar em Lote / Desanexar em Lote / Comprimir em Lote / Salvar Automaticamente / Desanexar Automaticamente / Auto Comprimir...
🌟Magia da Interface: 😊 Mais Emojis Bonitos e Divertidos / Avisa-o quando chegam e-mails importantes / Minimizar o Outlook em vez de fechá-lo...
👍Maravilhas com um Clique: Responder a Todos com Anexos / E-mails Anti-Phishing / 🕘 Mostrar Fuso Horário – Hora Atual do Remetente...
👩🏼🤝👩🏻Contactos e Calendário: Criar contactos em lote a partir de e-mails selecionados / Dividir um grupo de contactos em grupos individuais / Remover lembrete de aniversário...
Utilize o Kutools no seu idioma preferido – com suporte para inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!
🚀 Transferência com um Clique — Obtenha Todos os Extras do Office
Altamente Recomendado: Kutools for Office (5 em 1)
Um clique para transferir cinco instaladoresde uma só vez —Kutools para Excel, Outlook, Word, PowerPointe Office Tab Pro.Clique para transferir já!
- ✅Conveniência com um clique: Transfira os cinco pacotes de instalação numa única ação.
- 🚀Pronto para qualquer tarefa no Office: instale os extras que precisa, exatamente quando os precisar.
- 🧰Incluídos: Kutools para Excel / Kutools para Outlook / Kutools para Word / Office Tab Pro / Kutools for PowerPoint