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

What's the nature of the problem? Where is the form published?

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


wrote in message oups.com...
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

Hi Sue

The form is an .oft at present. The code breaks whenever I try to send
the form to the Approver, using the 'cmdsendPCa_Click()' function on a
button.

Does that help?
Thanks
Darryl

By default no code runs on items created with .oft form templates. You must publish the form.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


wrote in message oups.com...
Hi Sue

The form is an .oft at present. The code breaks whenever I try to send
the form to the Approver, using the 'cmdsendPCa_Click()' function on a
button.

Does that help?
Thanks
Darryl

I get this error message:

"There must be at least one name or distribution list in the To, Cc or
Bcc box"

Thanks
Darryl

THis is normal behavior when the Send command is executed if there are no recipients yet.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


wrote in message oups.com...
I get this error message:

"There must be at least one name or distribution list in the To, Cc or
Bcc box"

Thanks
Darryl

Sue

I anticipated your response, and published the form, but it still
didn;t work.

The first route function works, until I add the routeb function. Any
ideas?

Thanks
Darryl

Where did you publish the form?

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003
http://www.turtleflock.com/olconfig/index.htm
and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers
http://www.outlookcode.com/jumpstart.aspx


wrote in message ups.com...
Sue

I anticipated your response, and published the form, but it still
didn;t work.

The first route function works, until I add the routeb function. Any
ideas?

Thanks
Darryl