Skip to main content

Kutools para Office — Uma Suíte. Cinco Ferramentas. Aumente sua Produtividade.

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

Author Xiaoyang Last modified

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 Office

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

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

📘 Domínio de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em vários formatos (PDF/TXT/DOC/HTML...) / Converter em Lote para PDF...

✏ Edição de Corpo: Localizar e Substituir em Lote em múltiplos arquivos / Redimensionar todas as Imagens / Transpor Linhas e Colunas de Tabela / Converter Tabela para Texto...

🧹 Limpeza Fácil: Elimine Espaços Extras / Quebras de Seção / Caixas de Texto / Hiperlinks / Para mais ferramentas de Remover, acesse o grupo Remover...

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

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

⭐ Melhorias Destacadas: Navegue para qualquer Intervalo / Insira Texto Repetitivo automaticamente / Alternar entre Janelas de Documento /11 ferramentas de Conversão...

🌍 Compatível com40+ Idiomas: Use Kutools no seu idioma preferido — compatível com Inglês, Espanhol, Alemão, Francês, Chinês e mais de40 outros!

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

✨ Kutools for Office – Uma Instalação, Cinco Ferramentas Poderosas!

Inclui Office Tab Pro · Kutools para Excel · Kutools para Outlook · Kutools for Word · Kutools for PowerPoint

📦 Tenha todas as5 ferramentas em uma única suíte | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economize Tempo e aumente a produtividade imediatamente

Melhores Ferramentas de Produtividade para Office

Kutools for Word – 100+ ferramentas para Word

Download Gratuito Comprar Agora Saiba Mais sobre o Kutools