Como aplicar um botão para enviar e-mail com o arquivo Word atual anexado?
Se você precisar enviar uma mensagem de e-mail de um documento do Word através do Outlook e também anexar o arquivo atual do Word, poderá criar um botão de comando e, em seguida, enviar a mensagem clicando neste botão sem abrir o Outlook. Neste artigo, vou apresentar como lidar com isso de forma rápida e fácil.
Aplique um botão para enviar e-mail com o arquivo Word atual anexado
Aplique um botão para enviar e-mail com o arquivo Word atual anexado
Siga os seguintes passos para resolver este trabalho em arquivo Word:
1. Primeiro, você deve criar um botão de comando, clique Developer > Ferramentas Legadas > Botão de comando (controle ActiveX), veja a captura de tela:
2. Selecione o botão e clique Propriedades sob a Developer guia, no Propriedades painel, digite o texto da legenda que você precisa no Subtítulo campo, veja a captura de tela:
3. Então, feche o Propriedades painel, agora, clique com o botão direito no botão e escolha Ver código, veja a captura de tela:
4. E então, no display Microsoft Visual Basic para Aplicações janela, copie e cole o código abaixo entre os scripts originais, veja a captura de tela:
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 = ""
.Importance = olImportanceNormal
.Attachments.Add xDoc.FullName
.Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True
Note: No código acima, você deve alterar o assunto, corpo do texto ou endereço de envio conforme sua necessidade.
5. Em seguida, salve e feche este código, clique Modo de design para desligar o modo de design. Agora, ao clicar no botão de comando que você criou, um e-mail será criado com o documento do Word atual como anexo, veja a imagem:
6. Por fim, você só precisa clicar ENVIAR botão para enviar esta mensagem.
Melhores ferramentas de produtividade de escritório
Kutools for Word - Eleve sua experiência com palavras com mais 100 Recursos notáveis!
🤖 Assistente de IA do Kutools: Transforme sua escrita com IA - Gerar conteúdo / Reescrever texto / Resumir documentos / Pergunte para obter informações com base no documento, tudo dentro do Word
📘 Domínio de documentos: Páginas divididas / Mesclar Documentos / Seleção de exportação em vários formatos (PDF/TXT/DOC/HTML...) / Conversão em lote para PDF / Exportar páginas como imagens / Imprima vários arquivos de uma vez...
✏ Edição de conteúdo: Localização e substituição em lote em vários arquivos / Redimensionar todas as imagens / Transpor linhas e colunas da tabela / Converter tabela em texto...
🧹 Limpeza sem esforço: Varrer Espaços extras / Quebras de seção / Todos os cabeçalhos / Caixas de Texto / hiperlinks / Para mais ferramentas de remoção, acesse nosso Remover Grupo...
➕ Inserções criativas: Inserir Mil Separadores / Caixas de seleção / botões de rádio / QR Code / Código de barras / Tabela de linhas diagonais / Legenda da equação / Legenda da Imagem / Legenda da Tabela / Várias fotos / Descubra mais no Inserir Grupo...
🔍 Seleções de precisão: Identificar páginas específicas / tabelas / formas / parágrafos de título / Melhore a navegação com mais Selecione recursos...
⭐ Aprimoramentos de estrelas: Navegue rapidamente para qualquer local / inserir automaticamente texto repetitivo / alternar perfeitamente entre janelas de documentos / 11 ferramentas de conversão...