Sending email with ThisWorkbook.Route problem

Hi i love your platform, i have this code:

Public Sub email()

ThisWorkbook.save

ThisWorkbook.HasRoutingSlip = True

With ThisWorkbook.RoutingSlip

.Recipients = Array("gfdsgdsf@dsf.com")

.Subject = "l"

.Message = ""

.AttachWorkbook = True

End With

ThisWorkbook.Route

End Sub

The problem is, when i am loggen in it works, but when i am logged out it gives an "unknown error" on the ThisWorkbook.Route line and the email isnt sent can this be fixed?

Thank you very much.

Best Regards,

Ric