...Actually, I wrote this on one machine, copied it to the machine whre I access the UT, ran and debugged it on the other machine and never updated the copy. Sorry. ;-(

Did it help?...

Larry,

I am not sure yet. They got an error saying "oSebdTo" is not an object, but looking at the code it seems to me the only way it could have gotten to the
offending line is for oSendTo to be an object. I will have to wait until
Monday to find out which line of code actually caused the error. Note I am using vfp5 and changed the vartype() line to type().

Kevin

DO while occurs(";",lcsendstr) > 0
lctemp = alltrim(left(lcsendstr,at(";", lcsendstr)-1) )
oSendTo = loDoc.GetFirstItem("SendTo")
*!* ***IF vartype(oSendTo) <> "O" then && vfp6.0 syntax
IF type("oSendTo") <> "O"
loDoc.AppendItemValue("SendTo",lctemp)
ELSE
oSendTo.AppendToTextList(lctemp)
ENDIF
lcsendstr = substr(lcsendstr,at(";",lcsendstr)+1)
ENDDO