Results 1 to 4 of 4
  1. #1
    Star Lounger
    Join Date
    Apr 2002
    Location
    Busselton, Western Australia, Australia
    Posts
    59
    Thanks
    1
    Thanked 2 Times in 2 Posts
    Hi everyone,
    I would like to be able to send a workbook to a group of people, one after another, by using the "Routing Slip" functionality.
    I have found all the bits and pieces on how to send emails from within VBA, but I can not seem to find anything on setting up a Routing Slip and activating it from VBA.
    Can anyone help?
    Thanks in advance.
    Brian.

  2. #2
    Platinum Lounger
    Join Date
    Feb 2001
    Location
    Weert, Limburg, Netherlands
    Posts
    4,812
    Thanks
    0
    Thanked 0 Times in 0 Posts
    Copied Directly from Excel 2003 VBA help:

    Route Method
    See AlsoApplies ToExampleSpecificsRoutes the workbook, using the workbook's current routing slip.

    expression.Route
    expression Required. An expression that returns a Workbook object.

    Remarks
    Routing a workbook sets the Routed property to True.

    Example
    This example creates a routing slip for Book1.xls and then sends the workbook to three recipients, one after another.

    Workbooks("BOOK1.XLS").HasRoutingSlip = True
    With Workbooks("BOOK1.XLS").RoutingSlip
    .Delivery = xlOneAfterAnother
    .Recipients = Array("Adam Bendel", _
    "Jean Selva", "Bernard Gabor")
    .Subject = "Here is BOOK1.XLS"
    .Message = "Here is the workbook. What do you think?"
    End With
    Workbooks("BOOK1.XLS").Route
    Jan Karel Pieterse
    Microsoft Excel MVP, WMVP
    www.jkp-ads.com
    Professional Office Developers Association

  3. #3
    Star Lounger
    Join Date
    Apr 2002
    Location
    Busselton, Western Australia, Australia
    Posts
    59
    Thanks
    1
    Thanked 2 Times in 2 Posts
    [quote name='pieterse' post='773886' date='06-May-2009 15:51']Copied Directly from Excel 2003 VBA help:

    Route Method
    See AlsoApplies ToExampleSpecificsRoutes the workbook, using the workbook's current routing slip.

    expression.Route
    expression Required. An expression that returns a Workbook object.

    Remarks
    Routing a workbook sets the Routed property to True.

    Example
    This example creates a routing slip for Book1.xls and then sends the workbook to three recipients, one after another.

    Workbooks("BOOK1.XLS").HasRoutingSlip = True
    With Workbooks("BOOK1.XLS").RoutingSlip
    .Delivery = xlOneAfterAnother
    .Recipients = Array("Adam Bendel", _
    "Jean Selva", "Bernard Gabor")
    .Subject = "Here is BOOK1.XLS"
    .Message = "Here is the workbook. What do you think?"
    End With
    Workbooks("BOOK1.XLS").Route[/quote]

    Thanks Pieterse,
    Just the sort of thing I was hoping to get from the board!
    Could not find this in XL2002... but could have been using the wrong search string...?
    Anyway, I will give this a try today, hope it works for 2002.
    Regards
    Brian.

  4. #4
    Star Lounger
    Join Date
    Apr 2002
    Location
    Busselton, Western Australia, Australia
    Posts
    59
    Thanks
    1
    Thanked 2 Times in 2 Posts
    Woohoo!
    Just found the section in the help file as described by Pieterse.
    Like a hell of a lot of things in the Help system, if you type in the right question or keyword, you get the right answers!
    Fantastic.

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •