根据您的最新输入，我通过复制BCS_EXAMPLE_1创建了一个程序。 我对超链接的长度没有任何问题，所以问题出在您的代码上。

测试程序：

 REPORT bcs_example_1。
 *此示例显示如何发送
 *-内部文字行表格中提供的简单文字
 *-某些互联网电子邮件地址。
 *
 *通过立面CL_BCS完成的所有活动！
 数据：send_request类型参考cl_bcs。
 资料：文字TYPE bcsy_text。
 数据：文档类型参考cl_document_bcs。
 数据：发件人类型参考cl_sapuser_bcs。
 数据：收件人类型参考if_recipient_bcs。
 数据：bcs_exception类型参考cx_bcs。
 数据：send_to_all TYPE os_boolean。


 选择开始。
   执行主要。

 * -------------------------------------------------  -------------------- *
 *表格主要*
 * -------------------------------------------------  -------------------- *
 表格主要。
   尝试。
 * --------创建持久发送请求------------------------
       send_request = cl_bcs => create_persistent（）。
 * --------创建并设置文档-------------------------------
 *使用文本从内部表创建文档
 *附加" Hello world！" 到文本。
       数据l_length类型so_obj_len。
       PERFORM get_long_text使用'TEXT''ZZSRO''ST'sy-langu更改文本l_length。
       document = cl_document_bcs => create_document（
                       i_type ='HTM'
                       i_text =文字
                       i_length = l_length
                       i_subject ='由BCS_EXAMPLE_1创建的测试"）。
 *添加文件以发送请求
       调用方法send_request-> set_document（document）。
 * ---------设置发送者--------------------------------------  -----
 *注意：仅当您要设置发件人时才需要
 *与实际用户（SY-UNAME）不同。 否则，发件人是
 *与实际用户自动设置。
       发件人= cl_sapuser_bcs => create（sy-uname）。
       调用方法send_request-> set_sender
         出口
           i_sender =发件人。
 * ---------添加收件人（电子邮件地址）-----------------------
 *创建收件人-请替换电子邮件地址！！！
       收件人= cl_cam_address_bcs => create_internet_address（
                                         'joe.doe@crazy-company.com'）。
 *添加收件人及其相应属性以发送请求
       呼叫方法send_request-> add_recipient
         出口
           i_recipient =收件人
           i_express ='X'。
 * ----------发送文件-------------------------------------  -
       呼叫方法send_request-> send（
         出口
           i_with_error_screen ='X'
         接收
           结果= send_to_all）。
       如果send_to_all ='X'。
         写文字003。
       万一。
       提交工作。
 * -------------------------------------------------  ----------
 * *                     异常处理
 * -------------------------------------------------  ----------
 * *替换此非常基本的异常处理
 * *与您自己的一个！
 * -------------------------------------------------  ----------
     捕捉cx_bcs INTO bcs_exception。
       写：text-001。
       写：text-002，bcs_exception-> error_type。
       出口。
   ENDTRY。
 ENDFORM。  "主要
 FORM get_long_text使用tdobject tdname tdid tdspras更改文本类型soli_tab text_length。
   数据：ls_thead TYPE thead，
         lt_tline类型tline_tab。
   ls_thead-tdobject = tdobject。
   ls_thead-tdname = tdname。
   ls_thead-tdid = tdid。
   ls_thead-tdspras = tdspras。
   通话功能" READ_TEXT"
     出口
       对象= ls_thead-tdobject
       名称= ls_thead-tdname
       id = ls_thead-tdid
       语言= ls_thead-tdspras
     输入
       标头= ls_thead
     桌子
       行= lt_tline
     例外情况
       其他= 1。
   DATA stream_lines TYPE soli_tab。
   DATA unique_stream TYPE字符串。
   通话功能" CONVERT_ITF_TO_STREAM_TEXT"
     出口
       lf = abap_false
     桌子
       itf_text = lt_tline
       text_stream = stream_lines。
   将stream_lines的行合并为unique_stream RESPECTING空白。
   用'
'替换cl_abap_char_utilities => cr_lf IN unique_stream中的所有事件。
   文字= cl_document_bcs => string_to_soli（unique_stream）。
   text_length = strlen（unique_stream）。
 ENDFORM。