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 Desenvolvedor > Ferramentas Legadas > Botão de comando (controle ActiveX), veja a captura de tela:
2. Selecione o botão e clique Propriedades sob a Desenvolvedor 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 = "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: 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.
Ferramentas de produtividade de palavras recomendadas
Kutools para Word - Mais de 100 recursos avançados para Word, economize 50% do tempo
- Operações complicadas e repetidas podem ser executadas com processamento único em segundos.
- Insira várias imagens em pastas em um documento do Word de uma vez.
- Mescle e combine vários arquivos do Word em pastas em um na ordem desejada.
- Divida o documento atual em documentos separados de acordo com o título, quebra de seção ou outros critérios.
- Converta arquivos entre Doc e Docx, Docx e PDF, coleção de ferramentas para conversões e seleção comuns, e assim por diante ...
