Forms, Custom Properties and VBScript advice required!

K

Kristy

Hi

I have created a custom form for Outlook 2000 and higher (based on Sue
Moshers Vacation Request Form). Basically the form (which is
published to the Organisational Forms Library) is filled out by the
"Requestor" and then sent to the "Manager" for his/her
approval/dissaproval.

As part of the process I need to assign a custom property to a Hidden
Message (basically it's a Vacation Request Number that acts as a
counter) but it doesn't want to work (it works in VB6.0 where I can
explicity declare NewValue as a string but I can't do this in the
form) can anyone help???

This is the code for the bit I'm refering to (PropValue is the current
Vacation Request Number).


NewValue = PropValue + 1 'increment for next request
Set sItem = CreateObject("Redemption.SafeMailItem")
sItem.Item = HiddenMsg
PR_VACREQUEST_PROP = utils.GetIDsFromNames(sItem.MAPIOBJECT,
"{00020329-0000-
000-C000-000000000046}", "Request Number", True)
PR_VACREQUEST_PROP = PR_VACREQUEST_PROP + &H1E
sItem.Fields(PR_VACREQUEST_PROP) = NewValue
sItem.Subject = sItem.Subject
sItem.Save

Like I said before in VB6 with NewValue declared as a string it works
as expected, but it doesn't retain the value without?

Kristy
 

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