Forward form to multiple recipients

[alan.hardy]

I've created a form which is sent to a public folder and all works
well, but some further functionality has been requested and I'd be
grateful for any assistance.

Once the sent form is opened in the original public folder, a user will
review the read page, possibly make one two changes to field values,
but will then need to forward the form with any changes onto one or
more e-mail addresses (up to about 6, and they are also public
folders).

I'd like to create a command button on the read page that when
selected, displays a list or combobox with the forward addresses, from
which one or more can then be chosen to populate the To field (and also
automatically delete the original form recipient address if it still
lurking in there). I'd prefer this method rather than have to force the
user to open the global address book and find the address(es)
themselves. A secondary command button (presume I can't achieve all of
this with one) would then selected to actually forward the form to the
chosen recipients (and then close).

I'm somewhat stuck with where to start with this (and have separately
been trying out Forward events without much success), so would very
much appreciate some initial advice or code.

Many thanks,
Alan.

 

[Alan]

Well, I've created a successful command button on the read page which
forwards the sent item from one folder to another (though only to one
address coded into the command button - haven't yet worked out how to
populate the To field based on multiple list box selections, and have
also discovered that all potential users of the folders will need the
oft published to their personal library, which will be a bind each time
I make minor upgrades), but this has been at the expense of existing
functionality.

I did originally prevent usage of the Send button on the toolbar of the
compose page, so that a custom command button was instead selected to
send the form, using various instances of "blnOKToSend = True/False"
and then "If Not blnOKToSend Then Item_Send = False" within Function
Item_Send. But in order to get my forward command button to work, the
code within that needs to open a new item and use the Send event in
order to forward it:

Sub cmdForwardIA_Click
Dim objNewItem
Set objNewItem = Item.Forward
objNewItem.To = "address"
If objNewItem.Recipients.ResolveAll Then
objNewItem.Send
Else
objNewItem.Display
End If
Item.Save
Item.Close(2)
End Sub

But when selecting the forward button on the read page, I'm getting the
error message I usually receive on the original compose page which
informs users they can only use the custom command button to send,
instead of Send! May I ask if there is an obvious solution to this (at
the moment I've simply commented out Function Item_Send in order for
the forward to work, but of course this has reactivated the Send
button).