>>loWord = CREATEOBJECT("Word.Application") >>loEmOpt = loWord.EmailOptions >>loOlSig = loEmOpt.EmailSignature >>lcSigFileName = ALLTRIM(loOlSig.NewMessageSignature ) >>* Text signature >>lcPathAndFile = lcFilePath + lcSigFileName + ".txt" >>IF FILE(lcPathAndFile ) >> lcTextIn = FILETOSTR(lcPathAndFile ) >> >> IF LEFT( lcTextIn ,2) = 0hFFFE >> lcTextIn = SUBSTR(lcTextIn,3) >> ENDIF >> >> lcFileContent = STRCONV(lcTextIn ,6) >>ENDIF >>