VBA code for send e-mail button

Question

Hello,

I'm trying to find some Word VBA code that I can use to send an active document as an e-mail attachment.

• I will attach it to a button
• We're using Windows 7 and Office 2010

Can anyone help me?

Thanks

Answer 1

Although the methods and properties for routing slips are still present in Word VBA, they cannot be used any more starting with Word 2007.

Try this instead:

Sub Test()

    Options.SendMailAttach = True

    ActiveWindow.EnvelopeVisible = True

    With ActiveDocument.MailEnvelope.Item

        .Subject = "Testing 123"

        .Recipients.Add "******@somewhere.com"

    End With

End Sub

Answer 2

It's a simple as copy and paste into the Word VBA editor, as the code is listed for you (don't forget you'll need the function from the linked page to complete the code), but the document must be saved whatever the process. Even the simple two line code saves the document. - take a look at the attachment.  You can't send the content of your PCs memory.

See Example Template for a working version of the code I posted. Create a new document from the template. Click the button. An Outlook message is created with the settings in the code, and then you are prompted to choose whether to create another document.

Answer 3

>>To send an document as an attachment, it is necessary to be able to specify the field name so that it can be attached and thus it is necessary to save the document.<<

Thanks, I'll try that.

But the

Options.SendMailAttach = True

ActiveDocument.SendMail

code sends the document without saving it (this is what the 'email' command in the QAT does.).  I was hoping this could be as simple as that.

My boss created a similar 'email-me' button in a PDF form (no saving of the form required!), and I was trying to replicate the same behavior without having to change platforms!

jk