Call transaction SO10 and define an introductory text (language-dependent) in the text ID FIKO. Select your own name for the text.
Enter the name of the introductory text in the field FINAA-NAMEP of process exit 1040.

FUNCTION zsample_process_00001040.
*"----------------------------------------------------------------------
*"*"Локальный интерфейс:
*"  IMPORTING
*"     VALUE(I_KNA1) LIKE  KNA1 STRUCTURE  KNA1
*"     VALUE(I_KNB1) LIKE  KNB1 STRUCTURE  KNB1
*"     VALUE(I_LFA1) LIKE  LFA1 STRUCTURE  LFA1
*"     VALUE(I_LFB1) LIKE  LFB1 STRUCTURE  LFB1
*"     VALUE(I_MHNK) LIKE  MHNK STRUCTURE  MHNK
*"     VALUE(I_F150D2) LIKE  F150D2 STRUCTURE  F150D2
*"     VALUE(I_T047E) LIKE  T047E STRUCTURE  T047E
*"     VALUE(I_UPDATE) LIKE  BOOLE-BOOLE
*"  TABLES
*"      T_FIMSG STRUCTURE  FIMSG
*"  CHANGING
*"     VALUE(C_FINAA) LIKE  FINAA STRUCTURE  FINAA
*"     VALUE(C_ITCPO) LIKE  ITCPO STRUCTURE  ITCPO
*"     VALUE(C_ARCHIVE_INDEX) LIKE  TOA_DARA STRUCTURE  TOA_DARA
*"       DEFAULT SPACE
*"     VALUE(C_ARCHIVE_PARAMS) LIKE  ARC_PARAMS STRUCTURE  ARC_PARAMS
*"       DEFAULT SPACE
*"----------------------------------------------------------------------


  DATA: l_adr6  TYPE adr6,
        l_namep LIKE c_finaa-namep VALUE 'ZFXXXX_DUNN_MAIL_BODY'.

  IF i_t047e-fornr = 'ZF150_DUNN_01'
    AND i_kna1 IS NOT INITIAL.

    SELECT SINGLE *
      INTO l_adr6
      FROM adr6
      WHERE addrnumber = i_kna1-adrnr.

    break support.

    c_itcpo-tdtitle     = 'Напоминание по дебиторской задолженности'.

    c_finaa-nacha       = 'I'. "by e-mail
    c_finaa-intad       =  l_adr6-smtp_addr.

    REPLACE 'XXXX' IN l_namep WITH i_mhnk-bukrs.
    c_finaa-namep       = l_namep. "'ZF75_DUNN_MAIL_BODY'.



*    c_finaa-mail_body_text = l_namep."'ZF75_DUNN_MAIL_BODY'.

  ENDIF.

ENDFUNCTION.