程序启用后台JOB自动发送邮件给邮箱
示例效果：
每半个小时自动发邮件给邮箱，邮件内容如下：
1.配置SAP发送邮件功能：
1.1 SU01更改如下：
可参考：https://blog.csdn.net/wangjolly/article/details/38367203
1.2 SCOT 更改如下：
1.3 配置完成后可使用SBWP及SOST测试是否配置成功。
2.程序自动跑JOB参考如下：
https://blog.csdn.net/weixin_41725521/article/details/83473283
2.SE38编写程序如下(如果程序中已经制定了自动JOB，则运行一次之后，后续会自动schedule job)：
*&---------------------------------------------------------------------*
*& Report ZTEST2
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
REPORT ZTEST2.
*======================================================================*
* 说明书编号 :
* 程序名称 : ZTEST005
* 程序描述 :
* 功能顾问 : XIONGHN
* 开发顾问 :
* 开始日期 :
* 完成日期 :
*======================================================================*
* 修改历史.
*----------------------------------------------------------------------*
*
*序号. 修改人 日期 描述
*--- ----------- ---- -----------
*
*
*======================================================================*
* Tables used in the program
*======================================================================*
TABLES: vbak,vbap,vbkd,cdhdr.
*======================================================================*
* Type declarations in the program
*======================================================================*
TYPE-POOLS:slis.
*------定义输出表结构
TYPES: BEGIN OF ty_lockso,
vkorg TYPE vbak-vkorg, "销售组织
vbeln TYPE vbak-vbeln, "销售凭证
kunnr TYPE vbak-kunnr, "售达方
erdat TYPE vbak-erdat, "创建日期
END OF ty_lockso.
TYPES:BEGIN OF ty_vbakpd,
vkorg TYPE vbak-vkorg,
cmgst TYPE vbak-cmgst, "信用状态
vbeln TYPE vbak-vbeln, "销售订单号
kunnr TYPE vbak-kunnr,
erdat TYPE vbak-erdat,
posnr TYPE vbap-posnr,
lfgsa TYPE vbap-lfgsa, "总体交货状态
pltyp TYPE vbkd-pltyp, "订单审核状态
objectid TYPE cdhdr-objectid,
END OF ty_vbakpd.
TYPES: BEGIN OF ty_chghist,
objectid TYPE cdhdr-objectid,
username TYPE cdhdr-username, "更改人
tcode TYPE cdhdr-tcode, "更改事务代码
END OF ty_chghist.
DATA: SEND_REQUEST TYPE REF TO CL_BCS,
DOCUMENT TYPE REF TO CL_DOCUMENT_BCS,
FAIL TYPE REF TO CX_BCS,
RECIPIENT TYPE REF TO IF_RECIPIENT_BCS.
DATA: LS TYPE STRING,
MAIN_TEXT TYPE BCSY_TEXT,
TITLE TYPE SO_OBJ_DES.
*======================================================================*
* Internal Tables used in the program
*======================================================================*
DATA : gt_fcat TYPE TABLE OF lvc_s_fcat,
gs_fcat TYPE lvc_s_fcat,
gs_layo TYPE lvc_s_layo.
DATA: gt_data TYPE TABLE OF ty_lockso,
gs_data TYPE ty_lockso.
DATA: gt_vbakpd TYPE TABLE OF ty_vbakpd,
gs_vbakpd TYPE ty_vbakpd.
DATA: gt_chghist TYPE TABLE OF ty_chghist,
gs_chghist TYPE ty_chghist.
DATA: lt_valutab TYPE STANDARD TABLE OF rsparams,
lv_jobname TYPE tbtcjob-jobname,
lv_jobcount TYPE tbtcjob-jobcount,
lv_info TYPE i,
lv_ret TYPE i,
lv_jobstatus TYPE tbtco-status,
ls_tbtcv TYPE tbtcv,
lv_count TYPE i.
DATA lv_uname TYPE sy-uname.
*======================================================================*
* Data declarations in the program
*======================================================================*
*======================================================================*
* CONSTANTS
*======================================================================*
*======================================================================*
* Input Selection Screen
*======================================================================*
SELECTION-SCREEN:BEGIN OF BLOCK a1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:s_vkorg FOR vbak-vkorg,
s_vbeln FOR vbak-vbeln, "销售订单
s_kunnr FOR vbak-kunnr,