1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
|
REPORT zstkoes_send_html_mail.
DATA(lo_mime_helper) = NEW cl_gbt_multirelated_service( ).
" Get MIME-Repository Object
DATA(gv_filename) = |ABDOC_SOC_bad_EN.jpg|.
cl_mime_repository_api=>get_api( )->get(
EXPORTING
i_url = |SAP/PUBLIC/BC/ABAP/{ gv_filename }|
i_check_authority = abap_true
IMPORTING
e_content = DATA(gv_content)
e_mime_type = DATA(gv_mime_type)
EXCEPTIONS
parameter_missing = 1
error_occured = 2
not_found = 3
permission_failure = 4
OTHERS = 5 ).
IF sy-subrc EQ 0 AND gv_content IS NOT INITIAL.
*... split xstring into lt_solix table (which is need for email)
DATA(lt_solix) = VALUE solix_tab( LET lv_total_length = xstrlen( gv_content ) lv_max_off = lv_total_length - 255 IN
FOR lv_off = 0 THEN lv_off + 255 UNTIL lv_off GT lv_total_length
( line = COND #( WHEN lv_off LE lv_max_off
THEN gv_content+lv_off(255)
ELSE gv_content+lv_off ) ) ).
*Attach image to HTML body
DATA(gv_obj_len) = xstrlen( gv_content ).
lo_mime_helper->add_binary_part( content = lt_solix
content_type = CONV #( gv_mime_type )
length = CONV #( gv_obj_len )
content_id = gv_filename ).
ENDIF.
*... create the HTML content for the body of the email
DATA(lt_soli) = VALUE soli_tab(
( |<html xmlns="http://www.w3.org/1999/xhtml" xmlns:xfa="http://www.xfa.org/schema/xfa-template/2.1/"><head></head>| )
( |<body>| )
( |<p>Manchmal ist es notwendig ein Bild in eine E-Mail einzubinden.</p>| )
( |{ COND #( WHEN lt_solix IS NOT INITIAL THEN |<p><img alt="logo" src="cid:{ gv_filename }" /></p>| ) }| )
( |<p>Und hier ist, wie es funktioniert.</p>| )
( |</body></html>| ) ).
*... set the HTML with description
lo_mime_helper->set_main_html( content = lt_soli
filename = 'message.htm' " filename for HMTL form
description = 'Email message' ). " Title
"Create HTML using BCS class and attach html and image part to it.
DATA(lo_doc_bcs) = cl_document_bcs=>create_from_multirelated( i_subject = 'E-Mail mit MIME-Repository Bild'
i_multirel_service = lo_mime_helper ).
DATA(lo_bcs) = cl_bcs=>create_persistent( ).
"Create Document
lo_bcs->set_document( i_document = lo_doc_bcs ).
* Set sender
lo_bcs->set_sender( cl_cam_address_bcs=>create_internet_address( 'abap@koester-consulting.eu' ) ).
"Set Recipient
lo_bcs->add_recipient( cl_cam_address_bcs=>create_internet_address( 'abap@koester-consulting.eu' ) ).
lo_bcs->send( ).
COMMIT WORK.
|
