Autosend emails?

[FrenchCAD]

I'm getting mad trying to make this. I can't get it working :

Private Sub App_WorkbookBeforeClose()
Dim Message
ActiveWorkbook.HasRoutingSlip = True
With ActiveWorkbook.RoutingSlip
.Delivery = xlAllAtOnce
.Recipients = Array("user1@mail", "user2@mail", "user3@mail&quot
.Subject = "Test"
.Message = "wooohoooo, it works"
End With
ActiveWorkbook.Route
If ActiveWorkbook.HasRoutingSlip And Not ActiveWorkbook.Routed Then
Message = MsgBox("Mail not sent", vbOKOnly, "Error&quot
ActiveWorkbook.Route
End If
ActiveWorkbook.Save
End Sub

Cyril Guichard
Mechanical Engineer

 

[FrenchCAD]

Strangely, I have the macro running fine into Workbook_Open() but not into WorkbookBeforeClose()

Also, the HasRoutingSlip method automatically sends the excel file, which I don't want to do. Is there a way to bypass this?

Cyril Guichard
Mechanical Engineer