SAP ABAP 带附件的邮件发送

  DATA: lt_per_log TYPE TABLE OF zesopt_per_log.
  DATA: ls_per_log TYPE zesopt_per_log.
  DATA: lt_mailrecipients TYPE STANDARD TABLE OF somlrec90 WITH HEADER LINE,
        lt_mailtxt        TYPE STANDARD TABLE OF soli      WITH HEADER LINE,
        lt_attachment     TYPE STANDARD TABLE OF solisti1  WITH HEADER LINE,
        lt_mailsubject    TYPE sodocchgi1,
        lt_packing_list   TYPE STANDARD TABLE OF sopcklsti1 WITH HEADER LINE,
        lv_cnt            TYPE i.
  DATA: lt_contents_hex TYPE TABLE OF solix.

"是否发送邮件
  CHECK p_email IS NOT INITIAL.
"收件人
  SELECT email INTO  lt_mailrecipients-receiver FROM  zhrpa005  WHERE progname  = sy-cprog  AND zlock  = '' .
    lt_mailrecipients-rec_type = 'U'.    "Internet address
    lt_mailrecipients-com_type = 'INT'.
    APPEND lt_mailrecipients.
  ENDSELECT.

  CHECK lt_mai