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

Do you want to display the e-mail so that the user can enter the recipient(s) etc., or do you want to provide all necessary info in the macro and send the message automatically?

Answer 3

Try

ActiveWorkbook.SendMail "******@somewhere.com", "Monthly report"

Answer 4

Hans,

As usual, people change their minds. :)  Back to your question, here is the new requirements:

1. Attach active document to email
2. Address it to an e-mail address (e.g., ******@test.com)
3. Insert some text – “ in the subject field

Let me know if you can help. Thanks!

Answer 5

I found it:

Activedocument.SendMail