sendmail problem and fix ..

[fatfat]

Dear all,

the sendmail FROM, and TO, sometimes can't work with smtp server,

when "title <em...@abc.com>" or to : user1 <us...@abc.com>, user2 <
us...@abc.com>

fixed by create a email only field for sending and assign the orginal field
to "from/to" field

------------------------------------------- modified Code segment from
sendmail.prg

// cTo2
cTmp := ''
IF ValType( aTo ) == "A"
IF Len( aTo ) > 1
FOR EACH cTo2 IN aTo
IF HB_EnumIndex() != 1
cTmp += token(cTo2,"<>",if(' '$cTo2, 2,1))+ ","
ENDIF
NEXT
cTmp := SubStr( cTmp, 1, Len( cTmp ) - 1 )
ENDIF
cTo2 := aTo[ 1 ]
cTo2 := token(cTo2,"<>",if(' '$cTo2, 2, 1))
IF Len( cTmp ) > 0
cTo2 += "," + cTmp
ENDIF
ELSE
cTo2 := AllTrim( aTo )
cTo2 := token(cTo2,"<>",if(' '$cTo2, 2, 1))
ENDIF
----------------------------------------------------
TRY
oUrl := tUrl():New( "smtp://" + cUser + "@" + cServer + '/' + cTo2 )
CATCH
lReturn := .F.
END
-------------------------------------------------------
oInMail:oUrl:cUserid := token(cFrom,"<>",if(' '$cFrom, 2,1))
oMail:hHeaders[ "To" ] := cTo