E
Eddie Brophy
I have set up a user-defined field at folder level using
New Field. I am now trying to set its value to be the
same as another user-defined field I previously set up at
item level, prior to deleting the item-level version. (I
thought it would be better to work with user-defined
fields set up at folder level.)
I am trying to do this from Excel VBA because I am
familiar with this but cannot find any way to set the
value of a user-defined folder field. I can set the value
OK if the item already has the folder field
manually "added" to it but otherwise I get "Object or with
block not set". I have tried using .Add to add the user
property but then if I go into manual edit in Outlook the
folder version of the user-defined field overwrites the
item version.
Does any of this make sense? I am using Outlook 2000.
Example code below:
If objContact.UserProperties
("CopiesRDNewsletter") Is Nothing Then
Set objProperty =
objContact.UserProperties.Add("CopiesRDNewsletter",
olNumber, False)
objProperty = objContact.UserProperties
("RDNewsLetter")
Else
objContact.UserProperties
("CopiesRDNewsletter").Value = objContact.UserProperties
("RDNewsLetter")
End If
objContact.Save
Thanks in advance if anyone can offer any tips.
Eddie Brophy
London
New Field. I am now trying to set its value to be the
same as another user-defined field I previously set up at
item level, prior to deleting the item-level version. (I
thought it would be better to work with user-defined
fields set up at folder level.)
I am trying to do this from Excel VBA because I am
familiar with this but cannot find any way to set the
value of a user-defined folder field. I can set the value
OK if the item already has the folder field
manually "added" to it but otherwise I get "Object or with
block not set". I have tried using .Add to add the user
property but then if I go into manual edit in Outlook the
folder version of the user-defined field overwrites the
item version.
Does any of this make sense? I am using Outlook 2000.
Example code below:
If objContact.UserProperties
("CopiesRDNewsletter") Is Nothing Then
Set objProperty =
objContact.UserProperties.Add("CopiesRDNewsletter",
olNumber, False)
objProperty = objContact.UserProperties
("RDNewsLetter")
Else
objContact.UserProperties
("CopiesRDNewsletter").Value = objContact.UserProperties
("RDNewsLetter")
End If
objContact.Save
Thanks in advance if anyone can offer any tips.
Eddie Brophy
London