enming
10-11-2016, 11:04 AM
Hi,
I hope anyone can help me change this to code that is using "ActiveWorkbook.SendMail".
The reason is my original code won't work on EXCEL 2010 now.
There were not enough examples to support "ActiveWorkbook.SendMail" from Microsoft, I can't figure out how to update this myself.
Range("A6").Select
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = "Speidel, Byron"
.Subject = "PK53 Cash"
.Message = ""
.Delivery = xlAllAtOnce
.ReturnWhenDone = False
.TrackStatus = False
End With
ActiveWorkbook.Route
Much appreciation.
Ming
I hope anyone can help me change this to code that is using "ActiveWorkbook.SendMail".
The reason is my original code won't work on EXCEL 2010 now.
There were not enough examples to support "ActiveWorkbook.SendMail" from Microsoft, I can't figure out how to update this myself.
Range("A6").Select
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Recipients = "Speidel, Byron"
.Subject = "PK53 Cash"
.Message = ""
.Delivery = xlAllAtOnce
.ReturnWhenDone = False
.TrackStatus = False
End With
ActiveWorkbook.Route
Much appreciation.
Ming