SAP ABAP 发邮件方法(OO)
来源:互联网 发布:职业资格证书制作软件 编辑:程序博客网 时间:2024/05/17 04:40
*&---------------------------------------------------------------------*
*&Report ZSENDEMAIL08
*&
*&---------------------------------------------------------------------*
REPORT zsendemail08.
CONSTANTS:
gc_tab TYPE c VALUE cl_bcs_convert=>gc_tab, "CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB
gc_crlf TYPE c VALUE cl_bcs_convert=>gc_crlf. "CL_ABAP_CHAR_UTILITIES=>CR_LF
PARAMETERS: mailto TYPE ad_smtpadr DEFAULT 'justin.ding@usisz.com.cn'. " 收件人
DATAsend_request TYPE REF TO cl_bcs.
DATAdocument TYPE REF TO cl_document_bcs.
DATArecipient TYPE REF TO if_recipient_bcs.
DATAbcs_exception TYPE REF TO cx_bcs.
DATAmain_text TYPE bcsy_text.
DATAbinary_content TYPE solix_tab.
DATAsize TYPE so_obj_len.
DATAsent_to_all TYPE os_boolean.
START-OF-SELECTION.
PERFORM create_content.
PERFORM send.
*&---------------------------------------------------------------------*
*& Form create_content
*&---------------------------------------------------------------------*
*Create Example Content
*1) Write example text into a string
*2) convert this string to solix_tab
*----------------------------------------------------------------------*
FORMcreate_content.
DATA lv_string TYPE string.
DATA ls_t100 TYPE t100.
*--------------------------------------------------------------
*as example content we use some system messages out of t100
*get them for all installed languages from db
*and write one line for each language into the spread sheet
*columns are separated by TAB and each line ends with CRLF
CONCATENATE 'This Is Just Example Text!'
gc_crlf gc_crlf
INTO lv_string.
DO 10 TIMES.
CONCATENATE lv_string
'1111111111111111111111111111111111111111111111111111111111111' gc_tab
'2222222222222222222222222222222222222222222222222222222222222' gc_tab
'3333333333333333333333333333333333333333333333333333333333333' gc_tab
'aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa' gc_tab
'bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb' gc_tab
*&
*&
*&---------------------------------------------------------------------*
REPORT
CONSTANTS:
PARAMETERS:
DATA
DATA
DATA
DATA
DATA
DATA
DATA
DATA
START-OF-SELECTION.
*&---------------------------------------------------------------------*
*&
*&---------------------------------------------------------------------*
*
*
*
*----------------------------------------------------------------------*
FORM
*
*
*
*
*