- SAP Managed Tags
We are sending emails from SAP for invoices, PO's and such. Some older programs still use the SO_NEW_DOCUMENT_ATT_SEND_API1 module, some are using the CL_BCS class. The first one should not be used anymore so new developments will use the class.
Bow for a certain functionality I ran into the COMMIT issue (you need the commit to send the mail via cl_bcs, but if you trigger it within an exit, commit is not allowed or even causes dumps). This can be solved by a wrapper FM and some calling mechanism, but there is an easier way, use cl_bcs_message instead of cl_bcs.
This works great in most cases (and I find it cleaner than cl_bcs, but that is just me), however.....
Now we run into the next issue: The user wants the company logo as part of the email body text. I can add everything as attachment to the mails, works like a charm, also company logos, but embedding of the logo in the (html) email body does not seem to work.
I'm now up to the point that I take the next steps (in a dummy test-program so I can fiddle around), in this order:
- get the html body text from a SO10 text
- convert the SO10 text into a string field.
- get the logo (BMP format as stored in SE78) via cl_ssf_xsf_utilities=>get_bds_graphic_as_bmp (we now have the logo in xstring format)
- convert the xstring to xtring table (solix) via cl_bcs_convert=>xstring_to_solix
- to be able to use the logo we need to add the binary part stored so we can reference it in the html tag (via obj_mime_helper->add_binary_part)
- create the email, with a subject, attachment (the same logo, from the xstring field, totally works fine), sender, recipient and the email body text from the SO10 string field created earlier.
In SOST it looks like this:
and the email looks like this:
As you can see, attachments work like a charm, but embedded images do not.
The source of the email shows this:
As you can see the CID used is "DITISHEM.bmp". I have tried without the extension (in the CID), used both lowercase and uppercase in the CID name, but to no avail.
I have the feeling that the preparation of the CID does magic for cl_bcs, but does nothing for cl_bcs_message.
Any ideas are more than appreciated....
REPORT zzzzz.
PARAMETERS: field TYPE c LENGTH 1.
DATA main_text_line TYPE soli.
DATA main_text TYPE soli_tab.
DATA body_text TYPE string.
DATA xstr_logo TYPE xstring.
DATA text_lines TYPE tlinet.
DATA image_id TYPE tdidgr VALUE 'BMAP'.
DATA text_line TYPE tline.
*
DATA: obj_mime_helper TYPE REF TO cl_gbt_multirelated_service.
DATA: lv_obj_len TYPE so_obj_len.
DATA: lt_solix TYPE solix_tab.
*
CLEAR text_lines.
CALL FUNCTION 'READ_TEXT'
EXPORTING
id = 'ST'
language = syst-langu
name = 'Zzzzzzzz'
object = 'TEXT'
TABLES
lines = text_lines
EXCEPTIONS
id = 1
language = 2
name = 3
not_found = 4
object = 5
reference_check = 6
wrong_access_to_archive = 7
OTHERS = 8.
LOOP AT text_lines INTO text_line.
body_text = |{ body_text }{ text_line-tdline }|.
ENDLOOP.
*---------------------------------------------------------------*
" Get the logo
CLEAR xstr_logo.
CALL METHOD cl_ssf_xsf_utilities=>get_bds_graphic_as_bmp
EXPORTING
p_object = 'GRAPHICS'
p_name = 'GGGGGG HHHHHH'
p_id = image_id
p_btype = 'BCOL'
RECEIVING
p_bmp = xstr_logo
EXCEPTIONS
not_found = 1
internal_error = 2
OTHERS = 3.
IF sy-subrc <> 0.
* Implement suitable error handling here
ELSE.
*
CLEAR lt_solix.
CALL METHOD cl_bcs_convert=>xstring_to_solix
EXPORTING
iv_xstring = xstr_logo
RECEIVING
et_solix = lt_solix.
*
lv_obj_len = xstrlen( xstr_logo ).
*
" check tx SMW0 -> Settings -> maintain MIME types
CREATE OBJECT obj_mime_helper.
CALL METHOD obj_mime_helper->add_binary_part
EXPORTING
content = lt_solix
filename = 'GGGGGG HHHHHH'
extension = 'BMP'
description = 'Graphic in BMP format'
content_type = 'image/bmp'
length = lv_obj_len
content_id = 'DITISHEM.bmp'.
*
ENDIF.
*---------------------------------------------------------------*
* Send the email -------------------------------------------------*
TRY.
* -------- create persistent send request --------------------
DATA(msg) = NEW cl_bcs_message( ).
* -------- set the mail subject ------------------------------
msg->set_subject( 'subject regel' ).
* -------- add the attachment file to the mail ---------------
msg->add_attachment( EXPORTING iv_contents_bin = xstr_logo
iv_doctype = 'bmp'
iv_filename = 'Gggggg.bmp' ).
* -------- add sender ----------------------------------------
msg->set_sender(
EXPORTING
iv_address = '[email protected]'
).
" Also add sender as recipient:
msg->add_recipient(
EXPORTING
iv_address = '[email protected]'
iv_copy = ' '
).
* -------- email body text ------------------------------------
msg->set_main_doc(
EXPORTING
iv_contents_txt = body_text
iv_doctype = 'htm' " Document Category
).
* -------- send the email -------------------------------------
msg->set_send_immediately( abap_false ).
msg->send( ).
* -------- errors? --------------------------------------------
CATCH cx_bcs_send INTO DATA(ex).
MESSAGE ex->get_text( ) TYPE 'E'.
ENDTRY.
Bluesky
