Scribd
Upload
40 views9 pages

PDF Attached To An Email

1) The document provides steps to attach a PDF document generated from a smartform to an email using CL_BCS in ABAP. 2) It involves creating a smartform, converting it to a PDF using CONVERT_OTF, adding the PDF as an attachment to a document created using CL_BCS, setting the recipient and sender, and sending the email. 3) The results show an example email with the smartform PDF attached that is generated by executing the program.

Uploaded by

Juan Isaac Laredo
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
40 views9 pages

PDF Attached To An Email

1) The document provides steps to attach a PDF document generated from a smartform to an email using CL_BCS in ABAP. 2) It involves creating a smartform, converting it to a PDF using CONVERT_OTF, adding the PDF as an attachment to a document created using CL_BCS, setting the recipient and sender, and sending the email. 3) The results show an example email with the smartform PDF attached that is generated by executing the program.

Uploaded by

Juan Isaac Laredo
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as DOCX, PDF, TXT or read online on Scribd
You are on page 1/ 9

PDF attached to an email – But with

object oriented way


6 Likes 1,629 View 2 Comments

Introduction
In this blog post, you will learn how to attach a PDF document to your email. The PDF can be
generated from a smartform as an example.

Prerequisite
1. Some knowledge of using class CL_BCS for email sending.
2. A Smartform – It can be a basic smart form with a short text, we just need it for display
purpose.
3. A trigger program.

Steps
Create a Smartform with any Z/Y name.
I created with the name “ZTEST_SMARTFORM”. It actually just have a short text as below:

Create an executable program in SE38.


I created it with the name “ZTEST_EMAIL_ATTACHMENT”.
DATA DECLARATIONS
You can create the data objects as per your naming conventions.

CONSTANTS:
lc_sfname TYPE tdsfname VALUE 'ZTEST_SMARTFORM'. "Name of Smartform

"Object References
DATA: lo_bcs TYPE REF TO cl_bcs,
lo_doc_bcs TYPE REF TO cl_document_bcs,
lo_recep TYPE REF TO if_recipient_bcs,
lo_sapuser_bcs TYPE REF TO cl_sapuser_bcs,
lo_cx_bcx TYPE REF TO cx_bcs.

"Internal Tables.
DATA: lt_otfdata TYPE ssfcrescl,
lt_binary_content TYPE solix_tab,
lt_text TYPE bcsy_text,
lt_pdf_tab TYPE STANDARD TABLE OF tline,
lt_otf TYPE STANDARD TABLE OF itcoo.

"Work Areas
DATA: ls_ctrlop TYPE ssfctrlop,
ls_outopt TYPE ssfcompop.

"Variables
DATA: lv_bin_filesize TYPE so_obj_len,
lv_sent_to_all TYPE os_boolean,
lv_bin_xstr TYPE xstring,
lv_fname TYPE rs38l_fnam,
lv_string_text TYPE string.

Import the function module name of the SMARTFORM .


CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
formname = lc_sfname
IMPORTING
fm_name = lv_fname
EXCEPTIONS
no_form = 1
no_function_module = 2
OTHERS = 3.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
Populate control parameters, output options and then call the
FM of your SMARTFORM.
We will get the OTF data generated by the smartform in internal table “lt_otf”.

"Control Parameters
ls_ctrlop-getotf = 'X'.
ls_ctrlop-no_dialog = 'X'.
ls_ctrlop-preview = space.

"Output Options
ls_outopt-tdnoprev = 'X'.
ls_outopt-tddest = 'LOCL'.
ls_outopt-tdnoprint = 'X'.

CALL FUNCTION lv_fname


EXPORTING
control_parameters = ls_ctrlop
output_options = ls_outopt
IMPORTING
job_output_info = lt_otfdata
EXCEPTIONS
formatting_error = 1
internal_error = 2
send_error = 3
user_canceled = 4
OTHERS = 5.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

lt_otf[] = lt_otfdata-otfdata[].

Convert the OTF data to XSTRING “lv_bin_xstr”.


CALL FUNCTION 'CONVERT_OTF'
EXPORTING
format = 'PDF'
IMPORTING
bin_filesize = lv_bin_filesize
bin_file = lv_bin_xstr
TABLES
otf = lt_otf[]
lines = lt_pdf_tab[]
EXCEPTIONS
err_max_linewidth = 1
err_format = 2
err_conv_not_possible = 3
OTHERS = 4.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.

Convert the XSTRING to a binary table “lt_binary_content”.


***Xstring to binary
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
EXPORTING
buffer = lv_bin_xstr
TABLES
binary_tab = lt_binary_content.

Prepare to Send Email


 Create persistent send request
TRY.
* -------- create persistent send request ------------------------
lo_bcs = cl_bcs=>create_persistent( ).

 Create Email Body


"First line
CONCATENATE 'Dear Colleague' cl_abap_char_utilities=>newline INTO
lv_string_text.
APPEND lv_string_text TO lt_text.
CLEAR lv_string_text.
"Second line
CONCATENATE 'Please find attached a test smartform.'
cl_abap_char_utilities=>newline INTO lv_string_text.
APPEND lv_string_text TO lt_text.
CLEAR lv_string_text.
"Third line
APPEND 'Best Regards,' TO lt_text.
"Fourth line
APPEND 'Systems Administrator.' TO lt_text.
 Create Email
*---------------------------------------------------------------------
*-----------------& Create Document *------------------------
*---------------------------------------------------------------------
lo_doc_bcs = cl_document_bcs=>create_document(
i_type = 'RAW'
i_text = lt_text[]
i_length = '12'
i_subject = 'Test Email' ). "Subject of the Email

 Add attachment to document and


Add document to send request

The internal table “lt_binary_content” contains the content of our attachment.

*---------------------------------------------------------------------
*-----------------& Add attachment to document *----------------
*---------------------------------------------------------------------
* BCS expects document content here e.g. from document upload
* binary_content = ...
CALL METHOD lo_doc_bcs->add_attachment
EXPORTING
i_attachment_type = 'PDF'
i_attachment_size = lv_bin_filesize
i_attachment_subject = 'Test Email'
i_att_content_hex = lt_binary_content.

* add document to send request


CALL METHOD lo_bcs->set_document( lo_doc_bcs ).

 Set Sender
Note: this is necessary only if you want to set the sender different from actual user (SY-
UNAME). Otherwise sender is set automatically with actual user.
FYI. I have commented the code in my program.

*---------------------------------------------------------------------
*------------------------& Set Sender *-------------------------
*---------------------------------------------------------------------
* lo_sapuser_bcs = cl_sapuser_bcs=>create( sy-uname ).
* CALL METHOD lo_bcs->set_sender
* EXPORTING
* i_sender = lo_sapuser_bcs.

 Add recipient (e–mail address)


You can use more than one recipient as well.

lo_recep = cl_cam_address_bcs=>create_internet_address(
'[email protected]' ).

"Add recipient with its respective attributes to send request


CALL METHOD lo_bcs->add_recipient
EXPORTING
i_recipient = lo_recep
i_express = 'X'.

 Set Send Immediately


You can set this to send your email immediately.

CALL METHOD lo_bcs->set_send_immediately


EXPORTING
i_send_immediately = 'X'.

 Send the Email

*---------------------------------------------------------------------
*-----------------& Send the email *-----------------------------
*---------------------------------------------------------------------
CALL METHOD lo_bcs->send(
EXPORTING
i_with_error_screen = 'X'
RECEIVING
result = lv_sent_to_all ).

IF lv_sent_to_all IS NOT INITIAL.


COMMIT WORK.
ENDIF.

*---------------------------------------------------------------------
*-----------------& Exception Handling *------------------------
*---------------------------------------------------------------------
CATCH cx_bcs INTO lo_cx_bcx.
"Appropriate Exception Handling
WRITE: 'Exception:', lo_cx_bcx->error_type.
ENDTRY.

Results
Once you will execute the above program and see the result in transaction SOST, the email
will look like below:

You can see the email body as below and you can find the attached document in the
Attachments tab
The attached document will look like below:

You might also like