Voting Button

S

Sue Mosher [MVP-Outlook]

What I wanted to test is whether adding DMS to the ReplyRecipients of a normal message without voting buttons and sending it to someone else results in the reply going back to DMS. You might also want to try resolving each reply recipient before you send the original message.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers


DavidW said:
Hi Sue,

I think we must have crossed wires. To recap, if I create a normal e-mail
and send it to DMS the e-mail is delivered correctly to the DMS mailbox. If I
then access the DMS mailbox and reply to the message the response is
delivered correctly to my mailbox.

With the voting buttons, if I generate an e-mail and add voting buttons and
enter both my mail address and that of the DMS account into the 'Have replies
sent to' field on the Options page, when a voting button is selected the
response is sent to me and to DMS correctly.

The only time that this does not work is if I try to add the recipients
using VBScript.


Regards
David


Sue Mosher said:
Then I can't explain why it isn't working on a regular reply (leaving aside the voting button issue). A look at the received message with Outlook Spy or MFCMAPI might be revealing.

DavidW said:
Hi Sue,

I am allowing Outlook to resolve it.


:

When you do it manually, are you letting Outlook resolve it or are you choosing an autocomplete entry? If the latter, delete the autocomplete entry and try again.
Hi Sue,

When I type in DMS as you suggested, the e-mail is sent to the DMS mailbox.

Regards
David

:

If you type DMS into the To box of a message and try to send it, what happens? For best results, you should use the SMTP address or a unique string that points to that mailbox.

Hi Sue,

The form is published to my Personal forms library and no, when I simply
reply the DMS user is not added to the recipients list.

Thanks
David

:

Is this a form published to the Organizational Forms library?

Just curious: If the recipient does a regular reply to the message, rather than choosing a voting button, does it go to both recipients?


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




:

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 "(e-mail address removed)")
strUserAddress = Application.Session.CurrentUser.Address
If strUserAddress <> "" Then
Item.ReplyRecipients.Add strUserAddress
End If

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
 
G

Guest

Hi Sue,

I created a new form based upon the Message form in the Standard Forms
library and added the following code:

Function Item_Send()

Item.ReplyRecipients.Add "(e-mail address removed)"

End Function

The form was published but I did not check the check box when prompted
(something to do with distributing the form). I then ran the form and sent an
e-mail to myself. When I clicked on Reply I did not see DMS in the 'To' field
and after sending the message a copy was not delivered to DMS.

Thanks for your help with this.
David

Sue Mosher said:
What I wanted to test is whether adding DMS to the ReplyRecipients of a normal message without voting buttons and sending it to someone else results in the reply going back to DMS. You might also want to try resolving each reply recipient before you send the original message.

--
Sue Mosher, Outlook MVP
Author of Configuring Microsoft Outlook 2003

and Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers


DavidW said:
Hi Sue,

I think we must have crossed wires. To recap, if I create a normal e-mail
and send it to DMS the e-mail is delivered correctly to the DMS mailbox. If I
then access the DMS mailbox and reply to the message the response is
delivered correctly to my mailbox.

With the voting buttons, if I generate an e-mail and add voting buttons and
enter both my mail address and that of the DMS account into the 'Have replies
sent to' field on the Options page, when a voting button is selected the
response is sent to me and to DMS correctly.

The only time that this does not work is if I try to add the recipients
using VBScript.


Regards
David


Sue Mosher said:
Then I can't explain why it isn't working on a regular reply (leaving aside the voting button issue). A look at the received message with Outlook Spy or MFCMAPI might be revealing.

Hi Sue,

I am allowing Outlook to resolve it.


:

When you do it manually, are you letting Outlook resolve it or are you choosing an autocomplete entry? If the latter, delete the autocomplete entry and try again.


Hi Sue,

When I type in DMS as you suggested, the e-mail is sent to the DMS mailbox.

Regards
David

:

If you type DMS into the To box of a message and try to send it, what happens? For best results, you should use the SMTP address or a unique string that points to that mailbox.

Hi Sue,

The form is published to my Personal forms library and no, when I simply
reply the DMS user is not added to the recipients list.

Thanks
David

:

Is this a form published to the Organizational Forms library?

Just curious: If the recipient does a regular reply to the message, rather than choosing a voting button, does it go to both recipients?


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




:

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 "(e-mail address removed)")
strUserAddress = Application.Session.CurrentUser.Address
If strUserAddress <> "" Then
Item.ReplyRecipients.Add strUserAddress
End If

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top