Here is the code I used to write out the order writers name to two UDFs. Note that there is NOT an email address in the sy_user table.  Go look at User Maintenance, see an email field anywhere?  Whose email address are you trying to get? Salesperson, Customer?

sFirst = "" : sLast = "" : sKey= "" : sCKey = ""

retVal = oBusObj.GetValue("UserCreatedKey", sCKey)

Set oUser = oBusObj.AsObject(oBusObj.GetChildHandle("UserCreatedKey"))

retVal = oUser.getvalue("UserKey$",sKey)
retVal = oUser.getvalue("FirstName$",sFirst)
retVal = oUser.getvalue("LastName$",sLast)

If sKey = sCKey then
 retVal = oBusObj.SetValue("UDF_FIRST$", sFirst)
 retVal = oBusObj.SetValue("UDF_LAST$", sLast)

end if

The email address field was added for the 2014 release.

Hi BigLouie,

In 2014 there is now a user email address.  I want to use that to populate two fields, the order enter email, and my email udf.  What you posted is a different approach than I was using, I'll give it a shot at trying to pull the email.

BigLouie,

I tried the script below on set value with no luck.

sEmailadress = "" : sKey= "" : sCKey = ""

retVal = oBusObj.GetValue("UserCreatedKey", sCKey)

Set oUser = oBusObj.AsObject(oBusObj.GetChildHandle("UserCreatedKey"))

retVal = oUser.getvalue("UserKey$",sKey)

retVal = oUser.getvalue("EmailAddress$",sEmailaddress)

If sKey = sCKey then

retVal = oBusObj.SetValue("", sEmailaddress)

end if

You left out the name of the UDF and put in "".  In your original post you had retVal = oBusObj.SetValue("UDF_SHIP_CONF_EMAIL$", emailaddress) but now you have retVal = oBusObj.SetValue("", sEmailaddress).  If you had your original line I bet it works fine.

I figured that out, is still does not go in. No luck.

Here is the code to set default values.

sEmailadress = "" : sKey= "" : sCKey = ""

retVal = oBusObj.GetValue("UserCreatedKey", sCKey)

Set oUser = oBusObj.AsObject(oBusObj.GetChildHandle("UserCreatedKey"))

retVal = oUser.getvalue("UserKey$",sKey)

retVal = oUser.getvalue("EmailAddress$",sEmailaddress)

If sKey = sCKey then

retVal = oBusObj.SetValue("UDF_SHIP_CONF_EMAIL$", sEmailaddress)

end if

P.S. I now get an error 26 with the code.

Notice on your first line you have sEmailadress = "" : sKey= "" : sCKey = ""

and on the last line it is retVal = oBusObj.SetValue("UDF_SHIP_CONF_EMAIL$", sEmailaddress)

Adress on first line and Address on last line.

I fixed that and no error 26, but no data.  Should it be under set values, or something else. I also want this to populate the email address on S/O data entry, but that is not assigned until the customer is. Thanks.

Where do you have the script attached to? I attached mine to the Customer Number field, column post-validate