Como aplicar um botão para enviar um e-mail com o ficheiro do Word atual anexado?

AutorXiaoyang Data de Modificação2025-04-18

Se precisar de enviar um e-mail diretamente a partir de um documento do Word utilizando o Outlook e anexar automaticamente o ficheiro do Word em que está a trabalhar, pode inserir um botão de comando que envie o e-mail com apenas um clique — sem ter de abrir manualmente o Outlook. Este guia mostra-lhe como configurar esta funcionalidade de forma rápida e fácil.

Aplicar um botão para enviar um e-mail com o ficheiro do Word atual anexado

Siga estes passos para concluir a tarefa no seu documento do Word:

Em primeiro lugar, insira um botão de comando. Aceda a «Programador» > «Ferramentas Legadas» > «Botão de Comando (Controlo ActiveX)».
Nota: Se não vir o separador Programador no Friso, visite: Como mostrar o separador Programador no Friso do Word.
Selecione o botão e, em seguida, clique em «Propriedades» no separador «Programador». No painel Propriedades, insira no campo «Legenda» o texto que pretende exibir no botão.
Feche o painel Propriedades e, em seguida, clique com o botão direito do rato no botão e selecione «Ver Código».

Na janela «Microsoft Visual Basic for Applications», cole o seguinte código entre as etiquetas de sub-rotina existentes:

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

Nota: Pode alterar o assunto, o corpo da mensagem e o endereço de email do destinatário no código para corresponder aos detalhes reais da sua mensagem.

Feche e guarde o editor VBA. Clique em «Modo de Estrutura» no separador Programador para o desativar. Agora, ao clicar no botão de comando, é automaticamente criado um e-mail no Outlook com o documento do Word atual anexado.
Por fim, clique no botão «Enviar» no Outlook para enviar a sua mensagem.

As Melhores Ferramentas de Produtividade para o Office

Kutools para Word – Potencie a sua experiência no Word com mais de 100 funcionalidades extraordinárias!

🤖Funcionalidades do KUTOOLS AI: 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 de Documentos: Dividir Páginas / Mesclar Documentos / Exportar Seleção em Vários Formatos (PDF, TXT, DOC, HTML...) / Conversão em Lote para PDF...

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

🧹Limpeza sem Esforço: remova facilmente Espaços Extra, Quebras de Secção, Caixas de Texto e Hiperligações. Para mais ferramentas de remoção, aceda ao grupo Remover...

➕Inserções Criativas: Insira Separadores de Milhares, Caixa de Seleção, Botão de Rádio, Código QR, Código de Barras ou Múltiplas Imagens — descubra mais no grupo Inserir...

🔍Seleções Precisas: Selecione com precisão Páginas Específicas, Tabelas, Formas e Parágrafo de Título. Melhore a navegação com mais funcionalidades de seleçãofeatures ......

⭐Melhorias Estrela: Navegar para Qualquer Localização / Inserir Automaticamente Texto Repetitivo / Alternar entre Documentos do Windows / 11 Conversão Ferramentas de...

🌍Suporta mais de 40 idiomas: Utilize o Kutools na sua língua preferida – disponível em inglês, espanhol, alemão, francês, chinês e mais de 40 idiomas!

Kutools for Word separadores na faixa de opções

Transferência Gratuita Comprar Agora Saber Mais

Office Tab– Traz a interface com separadores para o Office, tornando o seu trabalho muito mais fácil

Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
Abra e crie múltiplos documentos em novos separadores da mesma janela, em vez de em novas janelas.
Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato por dia!

Transferência Gratuita Comprar Agora Saber Mais

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

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

📦 Obtenha todas as 5 ferramentas num único conjunto | 🔗 Integração perfeita com o Microsoft Office | ⚡ Economizar Tempo e potencie imediatamente a produtividade

⬇️ Transferir Agora 🎁 Comprar o Conjunto Completo 📖 Saber Mais

As Melhores Ferramentas de Produtividade para o Office

Kutools para Word– Ferramentas 100+ para o Word

🤖KUTOOLS AI Funcionalidades:Assistente de IA/Assistente em Tempo Real/Super Polir/Super Traduzir/Redação por IA/Revisão por IA
📘Domínio de Documentos:Dividir Páginas/Mesclar Documentos/Conversão em Lote para PDF
✏Edição de Conteúdos:Localizar e Substituir em Lote/Redimensionar Todas as Imagens
🧹Limpeza sem Esforço:Remover Espaços Extra/Remover Quebra de Seção
➕Inserções Criativas:Inserir Separadores de Milhares/Inserir Caixa de Seleção/Criar Códigos QR
🌍Suporta mais de 40 idiomas: O Kutools fala a sua língua – com suporte a mais de 40 idiomas!

Transferência Gratuita Comprar Agora Saber Mais sobre o Kutools