ABAP-HTML-MAIL详解编程语言

 1 class ZCTR0600 definition 
 2   public 
 3   final 
 4   create public . 
 5  
 6 public section. 
 7  
 8   types: 
 9     begin of ty_html_head, 
10       hfgcolor  type wwwcolor, 
11       hbgcolor  type wwwcolor, 
12       lfgcolor  type wwwcolor, 
13       lbgcolor  type wwwcolor, 
14       size      type w3size, 
15       attrb     type w3html, 
16       tabhd     type w3head, 
17     end of ty_html_head . 
18   types: 
19     begin of ty_html_fcat, 
20     text  type w3head-text, 
21     end of ty_html_fcat . 
22   types: 
23     tt_html_fcat  type table of ty_html_fcat . 
24   types: 
25     tt_html_html  type table of w3html . 
26   types: 
27     begin of ty_mail_head, 
28         sender        type ad_smtpadr, 
29         mailtype      type so_obj_tp, 
30         subject       type so_obj_des, 
31         atta_subject  type so_obj_des, 
32         end of ty_mail_head . 
33   types TY_MAIL_RECE type ADR6 . 
34   types TY_MAIL_ATTA type RMPS_POST_CONTENT . 
35   types TY_MAIL_BODY type SOLI . 
36   types: 
37     tt_mail_rece  type table of ty_mail_rece . 
38   types: 
39     tt_mail_atta  type table of ty_mail_atta . 
40   types: 
41     tt_mail_body  type table of ty_mail_body . 
42  
43   class-methods SEND_MAIL 
44     importing 
45       value(IS_MAIL_HEAD) type TY_MAIL_HEAD optional 
46       value(IT_MAIL_BODY) type TT_MAIL_BODY optional 
47       value(IT_MAIL_ATTA) type TT_MAIL_ATTA optional 
48       value(IT_MAIL_RECE) type TT_MAIL_RECE optional 
49     exporting 
50       value(ER_ROOT) type ref to ZCX_ROOT . 
51   class-methods MAIL_HTML 
52     importing 
53       value(IS_HTML_HEAD) type TY_HTML_HEAD optional 
54       value(IT_HTML_FCAT) type TT_HTML_FCAT optional 
55       value(IT_HTML_ANY) type ANY optional 
56     exporting 
57       value(ER_ROOT) type ref to ZCX_ROOT 
58       value(ET_HTML) type TT_HTML_HTML . 
59   class-methods MAIL_ATTA 
60     importing 
61       value(IV_STRING) type STRING optional 
62     exporting 
63       value(ES_ATTA) type RMPS_POST_CONTENT 
64       value(ER_ROOT) type ref to ZCX_ROOT .

 1   method mail_atta. 
 2   data: lv_size type so_obj_len. 
 3   try. 
 4     try. 
 5       cl_bcs_convert=>string_to_solix( 
 6         exporting 
 7           iv_string   = iv_string 
 8           iv_codepage = '4103'          "suitable for MS Excel, leave empty 
 9           iv_add_bom  = abap_true       "for other doc types 
10         importing 
11           et_solix    = es_atta-cont_hex 
12           ev_size     = lv_size 
13           ). 
14  
15       "es_atta-docsize = lv_size. 
16       catch cx_bcs into data(lr_cx_bcs). 
17       data(lv_txt) = lr_cx_bcs->get_text( ). 
18       raise exception type zcx_root 
19         exporting 
20           textid = value #( 
21                      msgid = '00' 
22                      msgno = '001' 
23                      attr1 = lv_txt 
24                      ). 
25     endtry. 
26     catch zcx_root into data(lr_root). 
27     er_root = lr_root. 
28   endtry. 
29   endmethod.

  1   method mail_html. 
  2   data: lr_ref    type ref to data. 
  3   data: lt_header type table of w3head, 
  4         lt_fields type table of w3fields, 
  5         lt_html   type table of w3html. 
  6  
  7   try. 
  8  
  9     data: 
 10       lr_any_t  type ref to data, 
 11       lr_any_s  type ref to data. 
 12     data: 
 13       lr_dref   type ref to data, 
 14       lr_stru   type ref to cl_abap_structdescr, 
 15       lr_table  type ref to cl_abap_tabledescr, 
 16       lr_elem   type ref to cl_abap_elemdescr, 
 17       lt_para   type cl_abap_structdescr=>component_table, 
 18       lt_comp   type cl_abap_structdescr=>component_table. 
 19     field-symbols: 
 20       <fs_tab>  type any, 
 21       <ft_tab>  type standard table. 
 22  
 23     try. 
 24  
 25       lr_table ?= cl_abap_tabledescr=>describe_by_data( it_html_any ). 
 26  
 27 *      loop at lr_stru->components[] into data(ls_comps). 
 28 *        if ls_comps-type_kind = 'P' 
 29 *        or ls_comps-type_kind = 'X'. 
 30 *        else. 
 31 *          ls_comps-length = ls_comps-length / 2. 
 32 *        endif. 
 33 * 
 34 *        append initial line to lt_comp assigning field-symbol(<fs_comp>). 
 35 *        <fs_comp>-name  =   ls_comps-name. 
 36 *        <fs_comp>-type  ?=  cl_abap_elemdescr=>get_by_kind( 
 37 *                            p_type_kind = ls_comps-type_kind 
 38 *                            p_length = ls_comps-length 
 39 *                            p_decimals = ls_comps-decimals ). 
 40 *        unassign <fs_comp>. 
 41 *      endloop. 
 42 * 
 43 *      if lt_comp[] is not initial. 
 44 *        clear:lr_stru,lr_table. 
 45 *        lr_stru   =   cl_abap_structdescr=>create( lt_comp ). 
 46 *        lr_table  =   cl_abap_tabledescr=>create( lr_stru ). 
 47 * 
 48 *        create data lr_any_s type handle lr_stru. 
 49 *        assign lr_any_s->* to <fs_tab>. 
 50 * 
 51 *        create data lr_any_t type handle lr_table. 
 52 *        assign lr_any_t->* to <ft_tab>. 
 53 *      endif. 
 54  
 55       if lr_table is not initial. 
 56         create data lr_any_t type handle lr_table. 
 57         assign lr_any_t->* to <ft_tab>. 
 58       endif. 
 59  
 60       move-corresponding it_html_any to <ft_tab>[]. 
 61  
 62       catch cx_root into data(lr_rt). 
 63       data(lv_txt) = lr_rt->get_text( ). 
 64       raise exception type zcx_root 
 65         exporting 
 66           textid = value #( 
 67                      msgid = '00' 
 68                      msgno = '001' 
 69                      attr1 = lv_txt 
 70                      ). 
 71     endtry. 
 72  
 73     loop at it_html_fcat into data(ls_html_fcat). 
 74       call function 'WWW_ITAB_TO_HTML_HEADERS' 
 75         exporting 
 76           field_nr = sy-tabix 
 77           text     = ls_html_fcat-text 
 78           fgcolor  = is_html_head-hfgcolor 
 79           bgcolor  = is_html_head-hbgcolor 
 80         tables 
 81           header   = lt_header. 
 82  
 83       call function 'WWW_ITAB_TO_HTML_LAYOUT' 
 84         exporting 
 85           field_nr = sy-tabix 
 86           fgcolor  = is_html_head-lfgcolor 
 87           bgcolor  = is_html_head-lbgcolor 
 88           size     = is_html_head-size 
 89         tables 
 90           fields   = lt_fields. 
 91     endloop. 
 92  
 93     call function 'WWW_ITAB_TO_HTML' 
 94       exporting 
 95         table_attributes  = is_html_head-attrb 
 96         table_header      = is_html_head-tabhd 
 97       tables 
 98         html              = lt_html 
 99         fields            = lt_fields 
100         row_header        = lt_header 
101         itable            = <ft_tab>[]. 
102  
103     et_html[] = lt_html[]. 
104  
105     catch zcx_root into data(lr_root). 
106     er_root = lr_root. 
107   endtry. 
108   endmethod.

 1   method mail_atta. 
 2   data: lv_size type so_obj_len. 
 3   try. 
 4     try. 
 5       cl_bcs_convert=>string_to_solix( 
 6         exporting 
 7           iv_string   = iv_string 
 8           iv_codepage = '4103'          "suitable for MS Excel, leave empty 
 9           iv_add_bom  = abap_true       "for other doc types 
10         importing 
11           et_solix    = es_atta-cont_hex 
12           ev_size     = lv_size 
13           ). 
14  
15       "es_atta-docsize = lv_size. 
16       catch cx_bcs into data(lr_cx_bcs). 
17       data(lv_txt) = lr_cx_bcs->get_text( ). 
18       raise exception type zcx_root 
19         exporting 
20           textid = value #( 
21                      msgid = '00' 
22                      msgno = '001' 
23                      attr1 = lv_txt 
24                      ). 
25     endtry. 
26     catch zcx_root into data(lr_root). 
27     er_root = lr_root. 
28   endtry. 
29   endmethod.

  1 form frm_mail_send_b  tables   ft_item    structure wa_alv 
  2                                ft_return  structure bapiret2 
  3                       using    fs_head    like      wa_alv. 
  4  
  5   constants: lc_tab   type c value cl_abap_char_utilities=>horizontal_tab. 
  6   data: lr_root       type ref to zcx_root. 
  7   data: ls_mail_head  type  zctr0600=>ty_mail_head. 
  8   data: lt_mail_body  type  zctr0600=>tt_mail_body, 
  9         lt_mail_atta  type  zctr0600=>tt_mail_atta, 
 10         lt_mail_rece  type  zctr0600=>tt_mail_rece. 
 11   data: ls_html_head  type  zctr0600=>ty_html_head. 
 12   data: lt_html_fcat  type  zctr0600=>tt_html_fcat, 
 13         lt_html_any   like  table of wa_mail, 
 14         lt_html       type  table of w3html. 
 15   data: lv_string     type  string, 
 16         ls_atta       type  zctr0600=>ty_mail_atta. 
 17  
 18   check fs_head-smtp_type = 'B'. 
 19  
 20   try. 
 21  
 22   ls_html_head-hfgcolor   =  'white'. 
 23   ls_html_head-hbgcolor   =  'blue'. 
 24   ls_html_head-lfgcolor   =  'black'. 
 25   ls_html_head-lbgcolor   =  ''. 
 26   ls_html_head-size       =  '3'. 
 27   ls_html_head-attrb-line =  'BORDER=0'. 
 28   ls_html_head-tabhd-text =  text-101. 
 29   ls_html_head-tabhd-font =  'Arial'. 
 30   ls_html_head-tabhd-size =  '2'. 
 31  
 32   loop at ft_item into data(ls_item). 
 33     append initial line to lt_html_any assigning field-symbol(<fs_html_any>). 
 34     move-corresponding ls_item to <fs_html_any>. 
 35     unassign <fs_html_any>. 
 36   endloop. 
 37  
 38   perform frm_mail_send_fcat tables lt_html_fcat. 
 39  
 40   zctr0600=>mail_html( 
 41     exporting 
 42       is_html_head  = ls_html_head 
 43       it_html_fcat  = lt_html_fcat 
 44       it_html_any   = lt_html_any 
 45     importing 
 46       er_root       = lr_root 
 47       et_html       = lt_html 
 48       ). 
 49   if lr_root is not initial. 
 50     raise exception lr_root. 
 51   endif. 
 52  
 53   loop at lt_html into data(ls_html). 
 54     lv_string = lv_string && ls_html-line. 
 55   endloop. 
 56  
 57   zctr0600=>mail_atta( 
 58     exporting 
 59       iv_string     = lv_string 
 60     importing 
 61       es_atta       = ls_atta 
 62       er_root       = lr_root 
 63       ). 
 64   if lr_root is not initial. 
 65     raise exception lr_root. 
 66   endif. 
 67  
 68   ls_mail_head-subject      = text-100. 
 69   ls_mail_head-sender       = space. 
 70   ls_mail_head-mailtype     = 'HTM'. 
 71   ls_mail_head-atta_subject = space. 
 72  
 73   append initial line to lt_mail_atta assigning field-symbol(<fs_mail_atta>). 
 74   <fs_mail_atta>-doc_type = 'HTM'. 
 75   <fs_mail_atta>-subject  = text-102. 
 76   <fs_mail_atta>-filename = text-102. 
 77   <fs_mail_atta>-objtp    = 'HTML'. 
 78   <fs_mail_atta>-cont_hex = ls_atta-cont_hex. 
 79   unassign <fs_mail_atta>. 
 80  
 81   append initial line to lt_mail_rece assigning field-symbol(<fs_mail_rece>). 
 82   <fs_mail_rece>-smtp_addr  = fs_head-smtp_addr. 
 83   unassign <fs_mail_rece>. 
 84  
 85   zctr0600=>send_mail( 
 86     exporting 
 87       is_mail_head  = ls_mail_head 
 88       it_mail_rece  = lt_mail_rece 
 89       it_mail_body  = lt_mail_body 
 90       it_mail_atta  = lt_mail_atta 
 91     importing 
 92       er_root       = lr_root 
 93       ). 
 94     if lr_root is not initial. 
 95       raise exception lr_root. 
 96     endif. 
 97     catch zcx_root into lr_root. 
 98     data(lv_err) = lr_root->get_text( ). 
 99     perform frm_get_message 
100     tables  ft_return 
101     using   'E' 
102             '00' 
103             '001' 
104             fs_head-smtp_addr 
105             lv_err 
106             space 
107             space. 
108   endtry. 
109 endform.