zcl_zwww=>sap_office_get_file_id( exporting i_file_name = conv #( lv_filename )
                                                       importing e_file_id   = data(lv_file_id)
                                                       exceptions file_not_found = 1  ).
   if sy-subrc ne '0'.
       exit.
   endif.

   ls_receivers-rec_type  = 'U'.
   ls_receivers-express = 'X'.
   ls_receivers-receiver  = email пользователя
   append ls_receivers to lt_receivers.

   CALL FUNCTION 'SO_OLD_DOCUMENT_SEND_API1'
       EXPORTING
          document_id                = lv_file_id
          PUT_IN_OUTBOX              = abap_true
        TABLES
          receivers                  = lt_receivers
        EXCEPTIONS
          too_many_receiver          = 1
          document_not_sent          = 2
          document_not_exist         = 3
          operation_no_authorization = 4
          parameter_error            = 5
          x_error                    = 6
          enqueue_error              = 7
          OTHERS                     = 8.

Case <IT_VALUES>-VAL_TYPE.
   when 'S'.
      Call method of Range 'Replace'
         EXPORTING
         #1 = <IT_VALUES>-FIND_TEXT
         #2 = lv_temp_string. "<IT_VALUES>-VALUE.

Case <IT_VALUES>-VAL_TYPE.
   when 'S'.
   DATA(lv_temp_string) = CONV string( <value> ).
   PERFORM fill_long_text USING <it_values>-find_text
                         lv_temp_string
                         range.

FORM fill_long_text USING iv_find_text TYPE char50
                     iv_value TYPE string
                     io_range.

"Сколько символов уместится, если добавить тэг
DATA(pivot) = 255 - strlen( iv_find_text ).

"Вставляем либо всю строку, либо начало строки + тег
DATA(lv_current) = COND #( when strlen( iv_value ) < 255
                     then iv_value
                     else iv_value(pivot) && iv_find_text ).

CALL METHOD OF io_range 'Replace'
   EXPORTING
   #1 = iv_find_text
   #2 = lv_current.
   
IF strlen( iv_value ) > 255.
   data(lv_rest) = iv_value+pivot.
   PERFORM fill_long_text USING iv_find_text lv_rest io_range.
ENDIF.

ENDFORM.

'r.Replace Ar(2), Ln, xlPart, xlByRows, False
Fill_Long_Text Ar(2), Ln, r
         
Sub Fill_Long_Text(find_text As String, line As String, r As Range)
    Dim pivot As Integer
    Dim current As String
   
    pivot = 255 - Len(find_text)
    If Len(line) < 255 Then
        current = line
    Else
        current = Left(line, pivot) & find_text
    End If
   
    r.Replace find_text, current, xlPart, xlByRows, False
    If Len(line) > 255 Then
        Fill_Long_Text find_text, Mid(line, pivot + 1), r
    End If
End Sub