Automate email

[amal1973]

I am trying to create a button on the tool bar of excel. On click I want the workbook to be saved and automatically sent by email to me. That’s what I have found so far .. but think there is a better way

Private Sub CommandButton1_Click()

Workbooks("0840679_2001.xls&quot.HasRoutingSlip = False

With Workbooks("0840679_2001.xls&quot.RoutingSlip
.Delivery = xlAllAtOnce
.Recipients = "ITEC-Brokerage"
.Subject = "Here is 0840679_2001.xls"
.Message = "Here is the workbook. What do you think?"
End With
Workbooks("0840679_2001.xls&quot.Route
End Sub


OR

Private Sub CommandButton2_Click()
ActiveWorkbook.SendMail Recipients:=" ITEC-Brokerage "


End Sub

 

[amal1973]

I also want to loop in side 65 sheets and place this button in them ..would apreceate any advice
thanks