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

Thanks. I found this before but I get an error. I wonder if this is releated to Word 2010. It says "That method is not available in that object". It stops at the first line.

Any ideas?

Activedocument.HasRoutingSlip = True

With Activedocument.RoutingSlip

    .Subject = "New subject goes here"

    .AddRecipient "******@Mail.com"

    .AddRecipient "******@Mail.com"

    .Delivery = wdAllAtOnce

End With

Activedocument.Route

Answer 3

See - http://answers.microsoft.com/en-us/office/forum/office_2010-word/save-account-subject-line-in-send-to-mail/8ec79ab4-88bf-49f9-93c1-51d92dc82f51

Answer 4

Oops, sorry! I didn't pay attention.

See http://word.mvps.org/faqs/interdev/sendmail.htm.

Answer 5

Thanks.

It's telling me that an object is required. Should ActiveWorkbook say ActiveDocument? This is for Word.

Private Sub CommandButton1_Click()

ActiveWorkbook.SendMail "e-mail_address_here", "Monthly report"

End Sub