How to apply a button to send email with current Word file attached? 

If you need to send an email message from a Word document via Outlook, and attach the current Word file as well, you can create a command button, and then, send the message by clicking this button without opening the Outlook. This article, I will introduce how to deal with it quickly and easily.

Apply a button to send email with current Word file attached


Apply a button to send email with current Word file attached

Please do with the following steps for solving this job in Word file:

1. First, you should create a command button, please click Developer > Legacy Tools > Command Button(ActiveX Control), see screenshot:

doc button to send email 1

2. Select the button, and click Properties under the Developer tab, in the Properties pane, type the caption text you need into the Caption field, see screenshot:

doc button to send email 2

3. Then, close the Properties pane, now, right click the button, and choose View Code, see screenshot:

doc button to send email 3

4. And then, in the displayed Microsoft Visual Basic for Applications window, copy and paste the below code between the original scripts, see screenshot:

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

doc button to send email 4

Note: In the above code, you should change the subject, body text or sent address to your need.

5. Then, save and close this code, click Design Mode to turn off the design mode. Now, when clicking the command button you have created, an email will be created with the current Word document as attachment, see screenshot:

doc button to send email 5

6. At last, you just need to click Send button to send this message.



Recommended Word Productivity Tools

 

Kutools For Word - More Than 100 Advanced Features For Word, Save Your 50% Time

  • Complicated and repeated operations can be done one-time processing in seconds.
  • Insert multiple images across folders into Word document at once.
  • Merge and combine multiple Word files across folders into one with your desired order.
  • Split the current document into separate documents according to heading, section break or other criteria.
  • Convert files between Doc and Docx, Docx and PDF, collection of tools for common conversions and selection, and so on...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    andrew · 5 days ago
    I had it working at first, and then for some reason now, it gives me an error of error 429 about activeX component can't create object. i literally just copied and pasted. This worked before but i just changed font size, made button bigger, and relabeled caption. i don't think i accidentally changed some other settings? any idea what it could be?
  • To post as a guest, your comment is unpublished.
    Tausif · 11 days ago
    I have made a fillable form in MS word. I have used legacy tools for calculation etc. I have also added a submit button which works to send the form to email. The problem is that when I reopen this document after saving, it does not work. I have even tried saving it as macro enabled document but no use. Can you please help ?
    Thanks
  • To post as a guest, your comment is unpublished.
    Don Patterson · 24 days ago
    Can this be done so you only send one page of a document?
  • To post as a guest, your comment is unpublished.
    Abhi · 28 days ago
    Hi Extend Office Team,

    I believe 'xEmile' is misspelt. It should be 'xEmail'.

    While the code runs and there is no issue, the following statement will do nothing:

    Set xEmail = Nothing
    • To post as a guest, your comment is unpublished.
      skyyang · 28 days ago
      Hi,Abhi,
      Thank you for your comment, as you said, the 'xEmile' is misspelt, it should be 'xEmail'. I have updated the code.
      Thank you again!
  • To post as a guest, your comment is unpublished.
    Alondra · 6 months ago
    Hola, me podrían apoyar para que el archivo se convierta en PDF y se adjunte al correo en ves del word por favor.
    Muchas gracias.
  • To post as a guest, your comment is unpublished.
    Nichole · 1 years ago
    I am trying to have the email send with the subject line being the contents of one of my fields. Is this possible?