Send as attachment

[Todd Huttenstine]

I have a VBA button and need to insert a code in it that
when the user clicks, it will send the document as an
attachment to (e-mail address removed) and
will make the subject of the email say "Order Form".

Thanks in advance

Todd Huttenstine

 

[David]

Private Sub CommandButton2_Click()
ActiveWorkbook.Save

ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Delivery = xlAllAtOnce
.Recipients = "(e-mail address removed)"
.Subject = "Order Form"
.ReturnWhenDone = False
.TrackStatus = False

End With
ActiveWorkbook.Route