January 31st, 2003, 11:58 AM
Join Date: Jan 2003
Time spent in forums: < 1 sec
Reputation Power: 0
Outlook Form Having Problems With Splitting
I am try to form that I can enter 2 text fields. 1 is a desciption the other is a Link. The Description will be added to a list Box. So that the user can later select and automaticly open a link. I started it by just adding it to a list box. Worked Great Untill I did a save the List box was empty. So I realized I have to add it to anouther Textbox as a string deleimited and then reload as a Array to put in the list box. Problem Is It seems to add But the split does not work. Here is the code..
'Add Link To Screen
Set objItem = Item.GetInspector.ModifiedFormPages("Comments and Attachments").Item("Link1")
Set objItemD = Item.GetInspector.ModifiedFormPages("Comments and Attachments").Item("Link1D")
set objlinkD = Item.GetInspector.ModifiedFormPages("Comments and Attachments").Item("edslink")
set objlinkDH = Item.UserProperties("edslinkll")
set objlink = Item.UserProperties("edslinkl")
if objitemD <> "" and objitem <> "" and objitem <> "http://" then
if objlinkDH.value = "" then
objlinkDH.value = objItem
objlink.value = objItemD
objlinkDH.value = objlinkDH.value + "|?|" + objItem
objlink.value = objlink.value + "|?|" + objItemD
<b> workk = split( objlinkDH, "|?|" ) It basicly does not work from here </B>
objitemD.value = ""
objitem.value = "http://"