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