ABAP-邮件发送程序
ABAP-邮件发送程序
说明： IT_ITAB 是要传送的EXCEL表格中的数据
data: IT_DOCUMENT_DATA TYPE SODOCCHGI1,
IT_CONTENT_TEXT TYPE STANDARD TABLE OF SOLISTI1 WITH HEADER LINE,
IT_PACKING_LIST TYPE TABLE OF SOPCKLSTI1 WITH HEADER LINE,
IT_RECEIVERS TYPE STANDARD TABLE OF SOMLRECI1 WITH HEADER LINE,
IT_ZPROGRAM_EMAIL TYPE TABLE OF ZPROGRAM_EMAIL WITH HEADER LINE,
LC_MAIL_ATTACH TYPE STRING,
LT_CONTENT_HEX TYPE STANDARD TABLE OF SOLIX WITH HEADER LINE,
LT_OBJECT_HEADER TYPE STANDARD TABLE OF SOLISTI1 WITH HEADER LINE,
LC_MAIL_XATTACH TYPE XSTRING,
LV_SEND_ALL TYPE C,
it_makt like TABLE OF makt WITH HEADER LINE,
fir_date type sy-datum,
MIMETYPE TYPE CHAR64.
DATA: IT_ITAB TYPE TABLE OF ITAB WITH HEADER LINE,
wa_itab type itab.
CONSTANTS:LC_TAB TYPE C VALUE CL_BCS_CONVERT=>GC_TAB,
LC_CTRL TYPE C VALUE CL_BCS_CONVERT=>GC_CRLF.
PARAMETER E_FLAG TYPE C AS CHECKBOX.
IF E_FLAG = 'X'.
perform SEND_EMAIL.
ENDIF.
*&---------------------------------------------------------------------*
*& Form SEND_EMAIL
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
FORM SEND_EMAIL.
data SY_VLINE TYPE I.
DATA:
MBLNR TYPE STRING, "物料凭证
MATNR TYPE STRING, "物料
MJAHR TYPE STRING, "年度
LGORT TYPE STRING, "库位
BWART TYPE STRING, "移动类型
ZEILE TYPE STRING, "项目
SOBKZ TYPE STRING, "特许库存
BUDAT TYPE STRING, "过账日期
MENGE TYPE STRING, "数量
MEINS TYPE STRING, "单位
CPUDT TYPE STRING,
CPUTM TYPE STRING,
BLDAT TYPE STRING,
AUFNR TYPE STRING,
WEMPF TYPE STRING,
UMLGO TYPE STRING,
GRUND TYPE STRING,
LIFNR TYPE STRING,
EBELN TYPE STRING,
EBELP TYPE STRING,
BKTXT TYPE STRING,
CHARG TYPE STRING,
XBLNR TYPE STRING,
KOSTL TYPE STRING,
DMBTR TYPE STRING,
USNAM TYPE STRING,
maktx TYPE STRING, "物料描述
MTART TYPE STRING "物料类型
.
SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_ZPROGRAM_EMAIL FROM ZPROGRAM_EMAIL WHERE ZPRO = SY-CPROG.
" ZPROGRAM_EMAIL 表
IT_DOCUMENT_DATA-OBJ_DESCR = 'DG1M物料凭证清单' .
IT_DOCUMENT_DATA-PRIORITY = '1'.
IT_DOCUMENT_DATA-OBJ_NAME = 'OFFER'.
IT_DOCUMENT_DATA-OBJ_LANGU = SY-LANGU.
* ****邮件正文信息
IT_CONTENT_TEXT = '各位好：'.
APPEND IT_CONTENT_TEXT.
IT_CONTENT_TEXT = ' '.
APPEND IT_CONTENT_TEXT.
IT_CONTENT_TEXT = 'DG1M物料凭证清单请见附件！'.
APPEND IT_CONTENT_TEXT.
DESCRIBE TABLE IT_CONTENT_TEXT LINES SY_VLINE.
IT_DOCUMENT_DATA-DOC_SIZE = 255 * ( SY_VLINE - 1 ) + STRLEN( IT_CONTENT_TEXT ).
IT_PACKING_LIST-TRANSF_BIN = SPACE.
IT_PACKING_LIST-HEAD_START = 1.
IT_PACKING_LIST-HEAD_NUM = 0 .
IT_PACKING_LIST-BODY_NUM = SY_VLINE.
IT_PACKING_LIST-BODY_START = 1.
IT_PACKING_LIST-DOC_TYPE = 'RAW'.
APPEND IT_PACKING_LIST.
***收件人信息
LOOP AT IT_ZPROGRAM_EMAIL.
IT_RECEIVERS-RECEIVER = IT_ZPROGRAM_EMAIL-EMAIL.
IT_RECEIVERS-REC_TYPE = 'U'.
IT_RECEIVERS-COM_TYPE = 'INT'.
IT_RECEIVERS-NOTIF_DEL = 'X'.
IT_RECEIVERS-NOTIF_NDEL = 'X'.
APPEND IT_RECEIVERS.
ENDLOOP.
LOOP AT IT_itab.
AT FIRST.
CONCATENATE '物料' LC_TAB
'物料凭证' LC_TAB
'物料类型' LC_TAB
'物料描述' LC_tab
'年度' LC_TAB
'库位' LC_TAB
'移动类型' LC_TAB
'项目' LC_TAB
'特许库存' LC_TAB
'过账日期' LC_TAB
'数量' LC_TAB
'单位' LC_TAB
'输入日期' LC_TAB
'输入时间' LC_TAB
'凭证日期' LC_TAB
'订单' LC_TAB
'收货方' LC_TAB
'收货' LC_TAB
'原因' LC_TAB
'供应商' LC_TAB
'采购订单' LC_TAB
'项目' LC_TAB
'凭证抬头文本' LC_TAB
'批次' LC_TAB
'参照' LC_TAB
'成本中心' LC_TAB
'本位币金额' LC_TAB
'用户名称' LC_CTRL
INTO LC_MAIL_ATTACH.
ENDAT.
CLEAR: MBLNR , MATNR , MJAHR , LGORT , BWART , ZEILE ,
SOBKZ , BUDAT , CPUDT , CPUDT , BLDAT , AUFNR ,WEMPF , UMLGO , GRUND , LIFNR , EBELN ,
EBELP , BKTXT ,CHARG , XBLNR , KOSTL , DMBTR, USNAM , MTART .
MBLNR = IT_ITAB-MBLNR .
MATNR = IT_ITAB-MATNR .
MJAHR = IT_ITAB-MJAHR .
LGORT = IT_ITAB-LGORT .
BWART = IT_ITAB-BWART .
ZEILE = IT_ITAB-ZEILE .
SOBKZ = IT_ITAB-SOBKZ .
BUDAT = IT_ITAB-BUDAT .
CPUDT = IT_ITAB-CPUDT .
CPUDT = IT_ITAB-CPUDT.
BLDAT = IT_ITAB-BLDAT.
AUFNR = IT_ITAB-AUFNR.
WEMPF = IT_ITAB-WEMPF.
UMLGO = IT_ITAB-UMLGO.
GRUND = IT_ITAB-GRUND.
LIFNR = IT_ITAB-LIFNR .
EBELN = IT_ITAB-EBELN.
EBELP = IT_ITAB-EBELP.
BKTXT = IT_ITAB-BKTXT.
CHARG = IT_ITAB-CHARG.
XBLNR = IT_ITAB-XBLNR.
KOSTL = IT_ITAB-KOSTL.
DMBTR = IT_ITAB-DMBTR.
USNAM = IT_ITAB-USNAM.
maktx = it_itab-maktx.
MTART = IT_ITAB-MTART . "物料类型
IF IT_ITAB-SHKZG = 'H'.
MENGE = IT_ITAB-MENGE .
CONCATENATE '-' MENGE INTO MENGE.
ELSE.
MENGE = IT_ITAB-MENGE .
ENDIF.
MEINS = IT_ITAB-MEINS .
CONCATENATE LC_MAIL_ATTACH
MATNR LC_TAB
MBLNR LC_TAB
MTART LC_TAB
maktx LC_TAB
MJAHR LC_TAB
LGORT LC_TAB
BWART LC_TAB
ZEILE LC_TAB
SOBKZ LC_TAB
BUDAT LC_TAB
MENGE LC_TAB
MEINS LC_TAB
CPUDT LC_TAB
CPUDT LC_TAB
BLDAT LC_TAB
AUFNR LC_TAB
WEMPF LC_TAB
UMLGO LC_TAB
GRUND LC_TAB
LIFNR LC_TAB
EBELN LC_TAB
EBELP LC_TAB
BKTXT LC_TAB
CHARG LC_TAB
XBLNR LC_TAB
KOSTL LC_TAB
DMBTR LC_TAB
USNAM LC_CTRL
INTO LC_MAIL_ATTACH.
ENDLOOP.
MIMETYPE = 'APPLICATION/MSEXCEL;CHARSET=UTF-16LE'.
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
EXPORTING
TEXT = LC_MAIL_ATTACH
MIMETYPE = MIMETYPE
* ENCODING =
IMPORTING
BUFFER = LC_MAIL_XATTACH
EXCEPTIONS
FAILED = 1
OTHERS = 2 .
IF SY-SUBRC = 0.
CONCATENATE CL_ABAP_CHAR_UTILITIES=>BYTE_ORDER_MARK_LITTLE LC_MAIL_XATTACH INTO LC_MAIL_XATTACH IN BYTE MODE.
ENDIF.
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
EXPORTING
BUFFER = LC_MAIL_XATTACH
* APPEND_TO_TABLE = ' '
* IMPORTING
* OUTPUT_LENGTH =
TABLES
BINARY_TAB = LT_CONTENT_HEX .
LT_OBJECT_HEADER = 'DG1M物料凭证清单'.
APPEND LT_OBJECT_HEADER.
DESCRIBE TABLE LT_CONTENT_HEX LINES SY_VLINE.
IT_PACKING_LIST-TRANSF_BIN = 'X'.
IT_PACKING_LIST-HEAD_START = 1 .
IT_PACKING_LIST-HEAD_NUM = 0 .
IT_PACKING_LIST-BODY_START = 1.
IT_PACKING_LIST-BODY_NUM = SY_VLINE.
IT_PACKING_LIST-DOC_TYPE = 'XLS'.
IT_PACKING_LIST-DOC_SIZE = 255 * SY_VLINE.
IT_PACKING_LIST-OBJ_NAME = 'DG1M物料凭证清单'.
IT_PACKING_LIST-OBJ_DESCR = IT_PACKING_LIST-OBJ_NAME.
APPEND IT_PACKING_LIST.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
DOCUMENT_DATA = IT_DOCUMENT_DATA
PUT_IN_OUTBOX = 'X'
COMMIT_WORK = 'X'
IMPORTING
SENT_TO_ALL = LV_SEND_ALL
* NEW_OBJECT_ID =
TABLES
PACKING_LIST = IT_PACKING_LIST[]
OBJECT_HEADER = LT_OBJECT_HEADER[]
* CONTENTS_BIN =
CONTENTS_TXT = IT_CONTENT_TEXT[]
CONTENTS_HEX = LT_CONTENT_HEX[]
* OBJECT_PARA =
* OBJECT_PARB =
RECEIVERS = IT_RECEIVERS[]
EXCEPTIONS
* TOO_MANY_RECEIVERS = 1
DOCUMENT_NOT_SENT = 1
* DOCUMENT_TYPE_NOT_EXIST = 3
OPERATION_NO_AUTHORIZATION = 2
PARAMETER_ERROR = 3
X_ERROR = 4
ENQUEUE_ERROR = 5
OTHERS = 6 .
ENDFORM. "SEND_EMAIL