Hi Sue,

Here is the amended code in my form:

------------------------------------------------------------------------------
Public strFile

Function Item_Send()

Dim strVersion
Dim strUserName

Set cmbType = _
Item.GetInspector.ModifiedFormPages.Item("Message" ).Controls("cmbType")
Set txtVersion = _
Item.GetInspector.ModifiedFormPages.Item("Message" ).Controls("txtVersion")
strVersion = txtVersion.Value
[Subject] = "Document " & cmbType.Value & " - " & strFile & " v" & strVersion

Select Case cmbType.Text
Case "Change Request"
Item.VotingOptions = "Reject; Implement Immediately; Schedule
Implementation"
Case else
Item.VotingOptions = "Accept; Reject"
End Select

strUserName = Application.Session.CurrentUser.Name

Item.ReplyRecipients.Add "DMS"
Item.ReplyRecipients.Add strUserName

End Function

Sub cmdBrowseFile_Click()

Dim strFilePath
Dim fso, f
Dim strOrigBody

Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter = "All Files|*.xls;*.doc"
objDialog.InitialDir = "Y:\Comshare\Procedures and Guides\Review\"
intResult = objDialog.ShowOpen

If intResult 0 Then
strFilePath = "file://" & objDialog.FileName & ""
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(objDialog.FileName)
strFile = f.Name
strOrigBody = [Body]
[Body] = strFilePath & vbNewLine & _
vbNewLine & strOrigBody
End If

End Sub

--------------------------------------------------------------------------------------

However, whenever the user clicks on any of the voting buttons the reply is
sent to the originator only and does not include the DMS user.

Thanks
David




"Sue Mosher [MVP-Outlook]" wrote:

You'd need to work with the ReplyRecipients collection, which works just like the main Recipients collection, e.g. to add two recipients:

Item.ReplyRecipients.Add ")
strUserAddress = Application.Session.CurrentUser.Address
If strUserAddress "" Then
Item.ReplyRecipients.Add strUserAddress
End If

--
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

"DavidW" wrote in message ...
I have created a custom form and am using VBScript to manipulate the objects
on the form. The form has voting buttons added to it automatically but what I
am having difficulty with is dynamically setting the 'Have replies sent to
option'. I would like responses sent to the originator and also to another
fixed address. Can someone please provide me with some sample VBScript code
that I could use to accomplish this task?

Thanks