Macro to active Menu Command of FileSend ToRouting Recipent
 

Hello,
I am very determined to get the routing to work. I am trying to eliminate
the need for the user to go to FileSend ToRouting Recipent by create a
macro to do this. I under the code to get to open the routing dialog box:

Application.Dialogs(xlDialogRoutingSlip).Show

The problem is that if I use this, it must skip something that links to the
users outlook. When I run the above code, it opens another dialog box that
asks the user to choose a profile. This will totally confuse my users. Is
there a way to have a macro do the commands of FileSend ToRouting Recipent?
The macro recorder does not for this...

Please help...I would welcome any suggestions to make this work. Thank you,
Mike

Macro to active Menu Command of FileSend ToRouting Recipent
 

Try these.
Sub Tester1()
Dim btn As CommandBarButton
Set btn = CommandBars("File").Controls("Sen&d To") _
.Controls("&Routing Recipient...")
btn.Execute
End Sub

Sub Tester2()
Dim btn As CommandBarButton
Set btn = Application.CommandBars.FindControl(ID:=259)
btn.Execute
End Sub

--
Regards,
Tom Ogilvy


"Mike R." wrote in message
...
Hello,
I am very determined to get the routing to work. I am trying to eliminate
the need for the user to go to FileSend ToRouting Recipent by create a
macro to do this. I under the code to get to open the routing dialog box:

Application.Dialogs(xlDialogRoutingSlip).Show

The problem is that if I use this, it must skip something that links to
the
users outlook. When I run the above code, it opens another dialog box
that
asks the user to choose a profile. This will totally confuse my users.
Is
there a way to have a macro do the commands of FileSend ToRouting
Recipent?
The macro recorder does not for this...

Please help...I would welcome any suggestions to make this work. Thank
you,
Mike

Macro to active Menu Command of FileSend ToRouting Recipent
 

This literally executes the command as you requested:

CommandBars("File").Controls("Send To").Controls("&Routing
Recipient...").Execute

However, this produced exactly the same result for me, running Excel 2003,
as your macro. I get a security warning about a program trying to access
Outlook either way. FWIW

--
Jim Rech
Excel MVP
"Mike R." wrote in message
...
| Hello,
| I am very determined to get the routing to work. I am trying to eliminate
| the need for the user to go to FileSend ToRouting Recipent by create a
| macro to do this. I under the code to get to open the routing dialog box:
|
| Application.Dialogs(xlDialogRoutingSlip).Show
|
| The problem is that if I use this, it must skip something that links to
the
| users outlook. When I run the above code, it opens another dialog box
that
| asks the user to choose a profile. This will totally confuse my users.
Is
| there a way to have a macro do the commands of FileSend ToRouting
Recipent?
| The macro recorder does not for this...
|
| Please help...I would welcome any suggestions to make this work. Thank
you,
| Mike