Send as attachment

T

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 [email protected] and
will make the subject of the email say "Order Form".

Thanks in advance

Todd Huttenstine
 
D

David

Private Sub CommandButton2_Click()
ActiveWorkbook.Save

ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Delivery = xlAllAtOnce
.Recipients = "[email protected]"
.Subject = "Order Form"
.ReturnWhenDone = False
.TrackStatus = False

End With
ActiveWorkbook.Route
 
Top