乐清做网站的公司,网站支付怎么做虚拟币支付,网站建设用什么书,贵阳两学一做网站原文链接#xff1a;https://blog.csdn.net/sapliumeng/article/details/134152739 在SAP实施中#xff0c;邮件发送功能在很多项目都会用到#xff0c;而且往往是把内表以Excel或者CSV的格式发送附件#xff0c;最好是这个表格也可以显示在正文中#xff0c;这样的话如果…原文链接https://blog.csdn.net/sapliumeng/article/details/134152739 在SAP实施中邮件发送功能在很多项目都会用到而且往往是把内表以Excel或者CSV的格式发送附件最好是这个表格也可以显示在正文中这样的话如果数据行数比较少就不需要打开附件了。
发送的邮件如下图所示 以往这种需要都是每个程序单独写好长的代码代码的工作量非常大本文就是把功能都集成到几个子程序和函数中大大减少了开发工作量。
程序特点 1、支持发送到多个外部邮箱 2、支持发送到SAP账号使用事务码SBWP看邮件 3、可以选择是否紧急邮件 4、支持多个内表发送表格和附件分别显示 5、附件压缩为ZIP文件 6、邮件表格界面友好美观 7、如果正文表格未显示所有内表行则最后一行为省略号
示例代码
*---------------------------------------------------------------------*
* Report ZCYCLE064
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*
REPORT zcycle064.
**** RFC 版发送邮件测试 START ********
*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,
* 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_convertgc_tab, excel换格符
* lc_ctrl TYPE c VALUE cl_bcs_convertgc_crlf. excel换行符
*
*PARAMETER p_flag TYPE c AS CHECKBOX.
*
*IF p_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, 年度
* maktx TYPE string. 物料描述
*
* it_document_data-obj_descr 邮件主题 . 内容的简短描述
* it_document_data-priority 1. 优先次序 1~9 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.
*
* DESCRIBE TABLE it_content_text LINES sy_vline.
* it_document_data-doc_size 255 * ( sy_vline - 1 ) strlen( it_content_text ). SAPoffice 文档的大小用于 API1
*
* 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.
*
*
****收件人信息
* it_receivers-receiver 1243327997qq.com. 收件人地址
* it_receivers-rec_type U.
* it_receivers-com_type INT.
* it_receivers-notif_del X.
* it_receivers-notif_ndel X.
* APPEND it_receivers.
*
* CONCATENATE 物料 lc_tab
* 物料凭证 lc_tab
* 物料描述 lc_tab
* 年度 lc_ctrl INTO lc_mail_attach. lc_ctrl换行符
*
* CLEAR:mblnr, matnr, mjahr, maktx.
* mblnr 7777777.
* matnr 7777777.
* mjahr 7777.
* maktx seven.物料类型
*
* CONCATENATE lc_mail_attach
* matnr lc_tab
* mblnr lc_tab
* mjahr lc_tab
* maktx lc_ctrl INTO lc_mail_attach. lc_ctrl换行符
*
* CLEAR:mblnr, matnr, mjahr, maktx.
* mblnr 8888888.
* matnr 8888888.
* mjahr 8888.
* maktx seven.物料类型
*
* CONCATENATE lc_mail_attach
* matnr lc_tab
* mblnr lc_tab
* mjahr lc_tab
* maktx lc_ctrl INTO lc_mail_attach. lc_ctrl换行符
*
* mimetype APPLICATION/MSEXCEL;CHARSETUTF-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_utilitiesbyte_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 Seven test.
* 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 附件名.
* it_packing_list-obj_descr it_packing_list-obj_name.
* APPEND it_packing_list.
*
*
*方法1 无法指定发送人邮箱
******** 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 2
******** document_type_not_exist 3
******** operation_no_authorization 4
******** parameter_error 5
******** x_error 6
******** enqueue_error 7
******** others 8 .
*
*方法2 可以指定发送人邮箱
* CALL FUNCTION SO_DOCUMENT_SEND_API1
* EXPORTING
* document_data it_document_data
* put_in_outbox X
* sender_address lei.caolifotronic.com 发件人邮箱
* sender_address_type INT
* commit_work X
** IP_ENCRYPT
** IP_SIGN
** IV_VSI_PROFILE
* IMPORTING
* sent_to_all lv_send_all
** NEW_OBJECT_ID
** SENDER_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[]
** ET_VSI_ERROR
* EXCEPTIONS
* too_many_receivers 1
* document_not_sent 2
* document_type_not_exist 3
* operation_no_authorization 4
* parameter_error 5
* x_error 6
* enqueue_error 7
* others 8
* .
* IF sy-subrc 0.
** Implement suitable error handling here
* ELSE.
* SUBMIT RSCONN01 WITH MODE INT
* WITH OUTPUT X
* AND RETURN.
* ENDIF.
*
*ENDFORM. SEND_EMAIL
**** RFC 版发送邮件测试 END ************ OO 版发送邮件测试 START ********************
TABLES adr6.
DATA: BEGIN OF gt_out OCCURS 0,bukrs TYPE t001-bukrs,butxt TYPE t001-butxt,ort01 TYPE t001-ort01,land1 TYPE t001-land1,waers TYPE t001-waers,spras TYPE t001-spras,END OF gt_out.SELECT-OPTIONS s_smtp FOR adr6-smtp_addr NO INTERVALS OBLIGATORY.
PARAMETERS p_subj TYPE so_obj_des DEFAULT 发送邮件测试.AT SELECTION-SCREEN OUTPUT.%_s_smtp_%_app_%-text 接收邮箱.%_p_subj_%_app_%-text 邮件主题.START-OF-SELECTION.SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_out FROM t001.PERFORM sendmail.MESSAGE s000(oo) WITH Done.*---------------------------------------------------------------------*
* sendmail
*---------------------------------------------------------------------*
FORM sendmail.DATA lv_string TYPE string.DATA lv_csvxstr TYPE xstring.DATA lv_binlen TYPE i.DATA lt_html TYPE TABLE OF w3html WITH HEADER LINE.DATA lt_smtp TYPE TABLE OF piqapp_email WITH HEADER LINE.DATA lt_atta TYPE wlftt_mail_attachment WITH HEADER LINE.***邮件内容文本APPEND TEST TEST TEST TEST TEST TEST TEST TEST TEST TESTbr/ TO lt_html.APPEND TEST TEST TEST TEST TEST TEST TEST TEST br/ TO lt_html.APPEND TEST TEST TEST TEST br/br/ TO lt_html.***下面显示表格如果有多个内表需要发送重复下面4个步骤即可SELECT * INTO CORRESPONDING FIELDS OF TABLE gt_out FROM t001.
***内表转为CSV文件PERFORM itab_to_csvTABLES gt_outUSING 公司代码,名称,城市,国家,货币,语言 CSV文件的标题CHANGING lv_string lv_csvxstr.***压缩CSV文件PERFORM xstr2zipxstrUSING BUKRS.XLS lv_csvxstrCHANGING lv_csvxstr.***压缩文件作为附件CALL FUNCTION SCMS_XSTRING_TO_BINARYEXPORTINGbuffer lv_csvxstrIMPORTINGoutput_length lv_binlenTABLESbinary_tab lt_atta-binary_content.lt_atta-description BUKRS.zip.lt_atta-binary_size lv_binlen.APPEND lt_atta.***内表的前N条以表格的形式显示在邮件正文中PERFORM itab_to_mail_bodyTABLES gt_out lt_htmlUSING 公司代码列表: 表格上面文本公司代码,名称,城市,国家,货币,语言 表格标题XXXXXX 要显示的列按照顺序如果显示为X不显示为空格10. 显示内表前N行如果内表大于N行则最后一行显示省略号***接收邮箱LOOP AT s_smtp.APPEND s_smtp-low TO lt_smtp.ENDLOOP.***调用发送函数CALL FUNCTION ZPUB_SEND_MAILEXPORTINGsubject p_subjcommit Xatta_tab lt_atta[]TABLESmail_body lt_htmlrecv_smtp lt_smtp.
ENDFORM.*---------------------------------------------------------------------*
* 内表转为CSV文件
*---------------------------------------------------------------------*
FORM itab_to_csv TABLES t_intab USING pv_headerCHANGING cv_str cv_utf8x.DATA: lo_csv TYPE REF TO cl_rsda_csv_converter.DATA: lv_str TYPE char2048.CALL METHOD cl_rsda_csv_convertercreateRECEIVINGr_r_conv lo_csv.IF pv_header IS NOT INITIAL.cv_str pv_header %_cr_lf.ENDIF.LOOP AT t_intab.CALL METHOD lo_csv-structure_to_csvEXPORTINGi_s_data t_intabIMPORTINGe_data lv_str.cv_str cv_str lv_str %_cr_lf.ENDLOOP.CALL FUNCTION SCMS_STRING_TO_XSTRINGEXPORTINGtext cv_strmimetype UTF8IMPORTINGbuffer cv_utf8xEXCEPTIONSfailed 1OTHERS 2.IF sy-subrc 0.cv_utf8x cl_abap_char_utilitiesbyte_order_mark_utf8 cv_utf8x.ENDIF.
ENDFORM.*---------------------------------------------------------------------*
* XSTRING压缩为ZIP文件XSTRING
*---------------------------------------------------------------------*
FORM xstr2zipxstr USING pv_filename pv_xstr CHANGING cv_zipxstr.DATA: lo_zip TYPE REF TO cl_abap_zip.DATA: lv_str TYPE string.lv_str pv_filename.CREATE OBJECT lo_zip.CALL METHOD lo_zip-addEXPORTINGname lv_strcontent pv_xstr.CALL METHOD lo_zip-saveRECEIVINGzip cv_zipxstr.
ENDFORM.*---------------------------------------------------------------------*
* 内表写到邮件表格
*---------------------------------------------------------------------*
FORM itab_to_mail_body TABLES t_intab t_contents STRUCTURE solisti1USING pv_text pv_coldesc pv_mask pv_toline.DATA: lt_conts TYPE TABLE OF solisti1 WITH HEADER LINE,lt_title TYPE TABLE OF char40 WITH HEADER LINE.DATA: subrc TYPE sy-subrc,index TYPE sy-index,charc TYPE char2048,charstr TYPE string,lmask TYPE char200,omitnum TYPE i,ftype .FIELD-SYMBOLS fs_fld .CHECK t_intab[] IS NOT INITIAL.SPLIT pv_coldesc AT , INTO TABLE lt_title.lmask pv_mask.APPEND pv_text TO lt_conts.APPEND:style typetext/css.solid{BORDER-TOP: 1px solid; TO lt_conts,BORDER-RIGHT:1px solid;BORDER-BOTTOM: 1px solid; TO lt_conts,BORDER-LEFT: 1px solid}/styletable border1 TO lt_conts,cellpadding2 styleborder-collapse:collapse;font- TO lt_conts,size:10.5pttbodytr stylebackground:#DDD9C4; TO lt_conts.LOOP AT lt_title.APPEND |td classsolid{ lt_title }/td| TO lt_conts.ENDLOOP.APPEND /tr TO lt_conts.LOOP AT t_intab FROM 0 TO pv_toline.APPEND tr TO lt_conts.CLEAR omitnum.DO.index sy-index - 1.ASSIGN COMPONENT sy-index OF STRUCTURE t_intab TO fs_fld.IF sy-subrc 0.EXIT.ENDIF.CHECK lmaskindex(1) X OR lmask .omitnum omitnum 1.DESCRIBE FIELD fs_fld TYPE ftype.CASE ftype.WHEN I OR P OR F OR a OR e OR b OR s.charc abs( fs_fld ).CONDENSE charc NO-GAPS.IF fs_fld 0.CONCATENATE - charc INTO charc.ENDIF.charstr charc.WHEN D OR T.IF fs_fld IS INITIAL OR fs_fld .charc .ELSE.WRITE fs_fld TO charc .ENDIF.charstr charc.WHEN X OR y OR g.charstr fs_fld .WHEN OTHERS.WRITE fs_fld TO charc .charstr charc.ENDCASE.APPEND |td classsolid{ charstr }/td| TO lt_conts.ENDDO.APPEND /tr TO lt_conts.ENDLOOP.IF lines( t_intab ) pv_toline.APPEND tr TO lt_conts.DO omitnum TIMES.APPEND |td classsolid.../td| TO lt_conts.ENDDO.APPEND /tr TO lt_conts.ENDIF.APPEND /tbody/table br/ TO lt_conts.APPEND LINES OF lt_conts TO t_contents.
ENDFORM.
**** OO 版发送邮件测试 END ********************发送函数 ZPUB_SEND_MAIL 源代码
FUNCTION zpub_send_mail.
*----------------------------------------------------------------------
**本地接口
* IMPORTING
* REFERENCE(SUBJECT) TYPE SO_OBJ_DES
* REFERENCE(SENDER) TYPE AD_SMTPADR OPTIONAL
* REFERENCE(EXPRESS) TYPE OS_BOOLEAN OPTIONAL
* REFERENCE(COMMIT) TYPE CHAR1 OPTIONAL
* REFERENCE(ATTA_TAB) TYPE WLFTT_MAIL_ATTACHMENT OPTIONAL
* EXPORTING
* REFERENCE(RTYPE) TYPE BAPI_MTYPE
* REFERENCE(RTMSG) TYPE BAPI_MSG
* TABLES
* MAIL_BODY STRUCTURE SOLISTI1 OPTIONAL
* RECV_USER STRUCTURE SSCRUSER OPTIONAL
* RECV_SMTP STRUCTURE PIQAPP_EMAIL OPTIONAL
*----------------------------------------------------------------------DATA lr_email TYPE REF TO cl_bcs.DATA lr_body TYPE REF TO cl_document_bcs.DATA lr_sender TYPE REF TO if_sender_bcs.DATA lr_recver TYPE REF TO if_recipient_bcs.DATA lr_cxbcs TYPE REF TO cx_bcs.DATA ls_atta TYPE wlfs_mail_attachment.DATA lv_result TYPE os_boolean.TRY.lr_email cl_bcscreate_persistent( ).lr_body cl_document_bcscreate_document( i_type HTMi_text mail_body[]i_subject subject ).LOOP AT atta_tab INTO ls_atta.CALL METHOD lr_body-add_attachmentEXPORTINGi_attachment_type ls_atta-typei_attachment_subject ls_atta-descriptioni_attachment_size ls_atta-binary_sizei_att_content_hex ls_atta-binary_content.ENDLOOP.lr_email-set_document( lr_body ).IF sender IS INITIAL.lr_sender cl_sapuser_bcscreate( sy-uname ).ELSE.CALL METHOD cl_cam_address_bcscreate_internet_addressEXPORTINGi_address_string senderi_address_name SenderRECEIVINGresult lr_sender.ENDIF.lr_email-set_sender( lr_sender ).LOOP AT recv_user.lr_recver cl_sapuser_bcscreate( recv_user-uname ).lr_email-add_recipient( i_recipient lr_recver i_express express ).ENDLOOP.LOOP AT recv_smtp.lr_recver cl_cam_address_bcscreate_internet_address( recv_smtp-e_mail ).lr_email-add_recipient( i_recipient lr_recver i_express express ).ENDLOOP.lr_email-set_send_immediately( X ).lv_result lr_email-send( i_with_error_screen ).IF lv_result X.IF commit IS NOT INITIAL.COMMIT WORK. 在Update进程或者增强里面禁止提交ENDIF.ENDIF.CATCH cx_bcs INTO lr_cxbcs. cx_root INTO lr_cxroot.rtype E.rtmsg lr_cxbcs-get_text( ).ENDTRY.ENDFUNCTION.
