Sub Invia_email()

Set OutApp = CreateObject("Outlook.Application")

ActiveWorkbook.HasRoutingSlip = True
 
 With Workbook.RoutingSlip
 .Delivery = xlOneAfterAnother
 .Recipients = "masettiluca@hotmail.it"
 .Subject = "Here is BOOK1.XLS"
 .Message = "Here is the workbook. What do you think?"
 End With
 ActiveWorkbook.Route

 End Sub