Skip to main content

Como aplicar um botão para enviar um email com o arquivo do Word atual anexado?

Author: Xiaoyang Last Modified: 2025-08-06

Se você precisa enviar um email a partir de um documento do Word usando o Outlook e anexar o arquivo do Word atual, pode inserir um botão de comando que envia o email com um clique - sem precisar abrir o Outlook manualmente. Este guia mostra como configurá-lo rapidamente e facilmente.

Aplicar um botão para enviar email com o arquivo do Word atual anexado

Aplicar um botão para enviar email com o arquivo do Word atual anexado

Siga estas etapas para realizar a tarefa no seu documento do Word:

  1. Primeiro, insira um botão de comando. Vá para "Desenvolvedor" > "Ferramentas Legadas" > "Botão de Comando (Controle ActiveX)".

    Observação: Se você não visualizar a guia Desenvolvedor na faixa de opções, visite: Como mostrar a guia Desenvolvedor na faixa de opções do Word.

    Developer tab with Controls group selected, Legacy Tools clicked, and Command Button highlighted
  2. Selecione o botão, depois clique em "Propriedades" na guia "Desenvolvedor". No painel Propriedades, digite o texto que deseja exibir no botão no campo "Legenda".
    Properties button on the ribbon and Properties dialog popped up
  3. Feche o painel Propriedades. Em seguida, clique com o botão direito no botão e escolha "Exibir Código".
    View Code option on the context menu
  4. Na janela "Microsoft Visual Basic for Applications", cole o seguinte código entre as tags da sub-rotina existente: 
    Dim xOutlookObj As Object
Dim xEmail As Object
Dim xDoc As Document
Application.ScreenUpdating = False
Set xOutlookObj = CreateObject("Outlook.Application")
Set xEmail = xOutlookObj.CreateItem(olMailItem)
Set xDoc = ActiveDocument
xDoc.Save
With xEmail
    .Subject = "Fax-data"
    .Body = "This is a test email."
    .To = "yy@addin99.com"
    .Importance = olImportanceNormal
    .Attachments.Add xDoc.FullName
    .Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True
    VBA window with the above code pasted

    Observação: Você pode alterar o assunto, o conteúdo do corpo e o endereço de email do destinatário no código para corresponder aos detalhes reais da sua mensagem.

  5. Salve e feche o editor do VBA. Clique em "Modo de Design" na guia Desenvolvedor para desativá-lo. Agora, ao clicar no botão de comando, um email é criado automaticamente no Outlook com o documento do Word atual anexado.
    An email is created with the current Word document as an attachment
  6. Por fim, clique no botão "Enviar" no Outlook para enviar a mensagem.

Melhores Ferramentas de Produtividade para Escritório

Kutools para Word – Eleve sua experiência no Word com mais de 100 recursos incríveis!

🤖 Recursos de IA do Kutools: Assistente de IA / Assistente em Tempo Real / Super Polir (Preservar Formato) / Super Traduzir (Preservar Formato) / Redação por IA / Revisão por IA...

📘 Domínio do Documento: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Diversos Formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...

✏ Edição de Conteúdo: Localizar e Substituir em Lote em Múltiplos Arquivos / Redimensionar Todas as Imagens / Transpor Linhas e Colunas da Tabela / Converter Tabela para Texto...

🧹 Limpeza Sem Esforço: Livre-se de Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de remoção, acesse o grupo Remover...

➕ Inserções Criativas: Inserir Separadores de Milhar / Caixas de Seleção / Botões de Rádio / QR Code / Código de Barras / Múltiplas Imagens / Descubra mais no grupo Inserir...

🔍 Seleções de Precisão: Selecione Páginas Específicas / Tabelas / Formas / Parágrafos de Título / Melhore a navegação com mais recursos do Selecionar ...

⭐ Aprimoramentos Estrela: Navegue para Qualquer Localização / Insira Texto Repetitivo Automaticamente / Alterne Entre Janelas de Documento /11 Ferramentas de Conversão...

🌍 Suporte a mais de40 idiomas: Use o Kutools no seu idioma preferido – compatível com Inglês, Espanhol, Alemão, Francês, Chinês e muitos outros!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Quer experimentar esses recursos? Baixe o Kutools para Word agora! 🚀
 

Melhores Ferramentas de Produtividade para Escritório

Kutools para Word – 100+ ferramentas para Word

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools