发送邮件根据屏幕做交互

 DATA: ls_docdata   TYPE sodocchgi1, "邮件抬头信息
        lt_packlist  TYPE TABLE OF sopcklsti1 WITH HEADER LINE, "传输内容格式
*      it_contxt    TYPE TABLE OF solisti1   WITH HEADER LINE, "邮件正文
        lt_conhex    TYPE TABLE OF solix      WITH HEADER LINE, "二进制内容
        lt_objbin    TYPE TABLE OF solisti1   WITH HEADER LINE, "附件内容
        lt_objheader TYPE TABLE OF solisti1   WITH HEADER LINE, "附件名称
        lt_receivers TYPE TABLE OF somlreci1  WITH HEADER LINE. "收件人信息

  DATA: lv_tablines TYPE i,
        lv_string   TYPE string,
        lv_mimetype TYPE char64 VALUE 'APPLICATION/MSEXCEL;charset=utf-16le',
        lv_xattach  TYPE xstring.
DATA LT_CONTXT LIKE TABLE OF SOLISTI1 WITH HEADER LINE.
DATA LT_SMTP_ADDR LIKE TABLE OF ZGLSMTP_ADDR WITH HEADER LINE.
DATA LV_TITLE TYPE SODOCCHGI1-OBJ_DESCR.
DATA ZTGLSBC_MSG TYPE TABLE OF ZGLSBC_MSG.
DATA ZSGLSBC_MSG TYPE ZGLSBC_MSG.
DATA LV_ZHI TYPE STRING.
LV_ZHI = lv_tablines.

 CONSTANTS:
    lc_tab  TYPE c VALUE cl_bcs_convert=>gc_tab,  "CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB
    lc_crlf TYPE c VALUE cl_bcs_convert=>gc_crlf. "CL_ABAP_CHAR_UTILITIES=>CR_LF
*针对有批次管理的且有生产日期的物料（原材，客供品）剩余一个月过期时，则有邮件触发提醒功能;
  IF GT_MARD IS NOT INITIAL.
    LOOP AT  GT_MARD INTO DATA(LS_MARD).
      IF LS_MARD-OVERDUE = '剩余一个月过期' AND LS_MARD-CHARG IS NOT INITIAL AND LS_MARD-HSDAT IS NOT INITIAL  .

        GS_DATA-LGOBE = LS_MARD-LGOBE.      "仓库地点的描述
        GS_DATA-WERKS = LS_MARD-WERKS.     "工厂
        GS_DATA-MATNR = LS_MARD-MATNR.     "物料
        GS_DATA-MAKTX = LS_MARD-MAKTX.     "物料描述
        GS_DATA-MATTEXT = LS_MARD-MATTEXT. "规格
        GS_DATA-CLABS  =  LS_MARD-CLABS.                "库存数量（发货）
        GS_DATA-HOLD  = LS_MARD-CSPEM.     "HOLD
        GS_DATA-CINSM = LS_MARD-CINSM.     "质检数量