Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/vidyadharg/ABAP-HTML-eMail
SAP ABAP send email using eMail Templates with or without CDS
https://github.com/vidyadharg/ABAP-HTML-eMail
abap-html-email cl-smtg-email-api email-templates smtg-wb-start
Last synced: about 1 month ago
JSON representation
SAP ABAP send email using eMail Templates with or without CDS
- Host: GitHub
- URL: https://github.com/vidyadharg/ABAP-HTML-eMail
- Owner: vidyadharg
- License: gpl-3.0
- Created: 2021-12-27T10:17:03.000Z (almost 3 years ago)
- Default Branch: main
- Last Pushed: 2024-04-05T18:43:54.000Z (9 months ago)
- Last Synced: 2024-08-02T19:01:37.485Z (5 months ago)
- Topics: abap-html-email, cl-smtg-email-api, email-templates, smtg-wb-start
- Language: ABAP
- Homepage:
- Size: 41 KB
- Stars: 10
- Watchers: 1
- Forks: 5
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
- License: LICENSE
Awesome Lists containing this project
- abap-florilegium - ABAP-HTML-eMail
README
# SAP ABAP send email using eMail Templates with or without CDS
## 1. Create E-Mail Template
## 2. Create class ZCL_EMAIL inheriting from CL_BCS_MESSAGE
2.1. METHODS SET_BODY_SO10 " get Email body from so10 text.
2.2. METHODS SET_PLACEHOLDER " set dynamic variable to be replaced in email to body
2.3. METHODS replace_placeholder " replace placehoder for non cds email template
2.4. METHODS SET_PLACEHOLDER_ITAB " replace Itab placehoder for non cds email template
2.5. METHODS SET_SUB_BODY_TEMPLATE "read email body from email template
"2.5.1. Dont pass place holders when Email teplate created without CDS.
SELECT SINGLE cds_view FROM smtg_tmpl_hdr
INTO @DATA(lv_cds_view)
WHERE id EQ @iv_template_id
AND version EQ 'A'. "GC_VERSION_ACTIVE
IF sy-subrc EQ 0.
IF lv_cds_view IS NOT INITIAL.
DATA(lt_data_key) = gt_data_key.
ENDIF.
"2.5.2. Read email template in HTML or Text.
TRY.
DATA(lo_email_api) = cl_smtg_email_api=>get_instance( iv_template_id = iv_template_id ).
lo_email_api->render(
EXPORTING
iv_language = iv_lang
it_data_key = lt_data_key
IMPORTING
ev_subject = DATA(lv_subject)
ev_body_html = DATA(lv_body_html)
ev_body_text = DATA(lv_body_text) ).
CATCH cx_smtg_email_common INTO DATA(ex). " E-Mail API Exceptions
ENDTRY.
"2.5.3. Replace placehoder for non-cds email template
IF iv_doctype EQ 'HTM'.
DATA(lv_mailbody) = lv_body_html.
ELSE.
lv_mailbody = lv_body_text.
ENDIF.
IF lv_cds_view IS INITIAL.
lv_mailbody = replace_placeholder( lv_mailbody ).
lv_subject = replace_placeholder( lv_subject ).
ENDIF.
"2.5.4. set subject and body using supper class CL_BCS_MESSAGE
set_subject( lv_subject ).
set_main_doc(
EXPORTING
iv_contents_txt = lv_mailbody " Main Documet, First Body Part
iv_doctype = iv_doctype ). " Document Category
```
## 3. Demo program
```
REPORT zdemo_email.
"send email with HTML body using email template
TRY.
DATA(email) = NEW zcl_email( ).
data lv_expiry_dt TYPE dats.
select CARRID, CONNID, FLDATE, PRICE
UP TO 10 ROWS FROM SFLIGHT INTO TABLE @data(lt_SFLIGHT).
lv_expiry_dt = sy-datum + 10. "add logic to get user id expiry date
DATA(lv_days) = lv_expiry_dt - sy-datum.
email->add_recipient( iv_address = CONV #( '[email protected]' ) ).
email->set_sender( iv_address = '[email protected]' iv_visible_name = 'Do not reply ' ).
"set internal table as html email body
email->set_placeholder_itab(
EXPORTING
placeholder_name = '&SFLIGHT_TAB&'
placeholder_itab = lt_SFLIGHT
table_Title = 'Flights Details').
email->set_placeholder(
EXPORTING
placeholder_name = '&USER_FIRST_NAME&'
placeholder_value = CONV #( 'User firstname' ) ).
email->set_placeholder(
EXPORTING
placeholder_name = '&USER_ID&'
placeholder_value = CONV #( 'user_id' ) ).
email->set_placeholder(
EXPORTING
placeholder_name = '&EXPIRY_DT&'
placeholder_value = |{ lv_expiry_dt DATE = ISO }| ).
email->set_placeholder(
EXPORTING
placeholder_name = '&DAYS&'
placeholder_value = CONV #( lv_days ) ).
email->set_subject_body_template(
EXPORTING
template_id = 'ZET_DEMO' "Email body from Email template
doctype = 'HTM' ).
email->set_send_immediately( abap_false ).
email->send( ).
CATCH cx_bcs_send INTO DATA(ex).
MESSAGE ex->get_text( ) TYPE 'S'.
ENDTRY.
```
## 4. SOST email preview
