Hello

I have created an Outlook form which I want to be:

1. Completed by a user
2. Forwarded to an approver
3. Then Forwarded to an administrator
4. Then Forwarded to another person

I seem to be hitting problems whenever I add a second send routine. Can
anyone help? Here is the code:

Option Explicit
'Forward to approver function
Function Item_CustomAction(ByVal Action, ByVal NewItem)
Select Case Action.Name
Case "Route"
Item_CustomAction = True
NewItem.To = "Approver1"
Case Else
Item_CustomAction = True
End Select
End Function
'The first send action
sub cmdsendPCa_Click()

Item.Actions.item("Route").Execute
Item.Close 1

end sub

'Forward to administrator function
Function Item_CustomAction(ByVal Action, ByVal NewItem)
Select Case Action.Name
Case "Routeb"
Item_CustomAction = True
NewItem.To = "Adminstrator"
Case Else
Item_CustomAction = True
End Select
End Function

'The second send action
sub cmdsendPCb_Click()

Item.Actions.item("Routeb").Execute
Item.Close 1

end sub

Hope you can help