Sap ABAP Sending Mails options:add sender , add multiple Recipients as DL, add CC add subject,add body ..and attaching multiple excel sheets.

[Former Member]

Hi All,

I have developed a SAP ABAP code  which can Use Multiple Options:

1) Attaching Multiple excels

2) Adding Sender Option

3) Adding  CC Option

4) Adding Subject

5) Adding content in the Body.

6) Adding DL as Recipient(DL created in sbwp tcode)

              Sending Mails Through ABAP.

Data declaration:

DATA: wa_bin_ext TYPE soli,
      it_bin_ext TYPE soli_tab,

v_email                TYPE ad_smtpadr,

document           TYPE REF TO cl_document_bcs,
sender             TYPE REF TO cl_sapuser_bcs,
recipient          TYPE REF TO if_recipient_bcs,
recipient1         TYPE REF TO if_recipient_bcs,
bcs_exception      TYPE REF TO cx_bcs,
sent_to_all        TYPE os_boolean,

it_lenght          TYPE so_obj_len,

send_request       TYPE REF TO cl_bcs,
  cc                TYPE OS_BOOLEAN,
subject            TYPE so_obj_des,
att_type            TYPE soodk-objtp,
it_text            TYPE bcsy_text,
wa_text            LIKE soli,
it_bin             TYPE solix_tab,

wa_bin              TYPE string,"SO_RAW255,"SOLIX,
wa_bin1            TYPE solix,

n10(10)            TYPE n.

CONSTANTS: con_newl  TYPE abap_char1 VALUE cl_abap_char_utilities=>newline,

(space for line)
                 

con_tab  TYPE abap_char1 VALUE cl_abap_char_utilities=>horizontal_tab..

(tab space)

1. TRY.
           send_request = cl_bcs=>create_persistent( ).

PERFORM f_head_cont.

PERFORM f_xls_att2.

•Dokument (mit Anhang) setzen(comment)
        CALL METHOD send_request->set_document( document ).

*•"EMAIL RECIPIENTS.**        making recipient a dl(if you want recipient as DL)
         recipient = cl_distributionlist_bcs=>getu_persistent(
         i_dliname = lv_mlrec
         i_private = space ).

*•Absender setzen p_sender as the parameter(the sap id of sender)
        sender = cl_sapuser_bcs=>create( p_sender ).
        CALL METHOD send_request->set_sender
          EXPORTING
            i_sender = sender.

*•"SET RECEIVER.*•"EMAIL RECIPIENTS.
        recipient = cl_cam_address_bcs=>create_internet_address(
                                       v_email ).

        CALL METHOD send_request->add_recipient
          EXPORTING
            i_recipient = recipient
            i_express   = 'X'.***adding the carbon copy(cc) in the mail**** validating in bu_sso is not blank.


         recipient1 = cl_cam_address_bcs=>create_internet_address(
                                       v_email1 ).


        CALL METHOD send_request->add_recipient
          EXPORTING
            i_recipient = recipient1
            i_copy      = 'X'.
*•Dokument senden
        CALL METHOD send_request->send(
          EXPORTING
            i_with_error_screen = 'X'
          RECEIVING
            result              = sent_to_all ).
        COMMIT WORK.*•Sende-Error abfangen
      CATCH cx_bcs INTO bcs_exception.
        WRITE: 'error Occurred.'(001).
        WRITE: 'error Type:'(002), bcs_exception->error_type.
        EXIT.
    ENDTRY.

FORM f_head_cont .

Subject= ‘subject line for mail’.

It_text =’Body Content’.

att_type = 'RAW'.

  DESCRIBE TABLE it_text LINES n10.
  n10 = ( n10 - 1 ) * 255 + STRLEN( wa_text ).
  it_lenght = n10.
  document = cl_document_bcs=>create_document(
            i_type    = att_type
            i_text    = it_text
            i_length  = it_lenght
            i_subject = subject ).

1. Endform.

FORM f_xls_att2 .

********************************************************************* Fill Entire Final Data into it_bin_ext.

converting into raw255 format.*******************************************************************
  CALL FUNCTION 'SO_SOLITAB_TO_SOLIXTAB'
    EXPORTING
      ip_solitab  = it_bin_ext
    IMPORTING
      ep_solixtab = it_bin.
  REFRESH it_bin_ext.

  att_type = 'XLS'.
  subject = ‘Subject for attached file’.

DESCRIBE TABLE it_bin LINES n10.
  n10 = ( n10 - 1 ) * 255 + STRLEN( wa_bin_ext ).
  it_lenght = n10.
  CLEAR wa_bin_ext.

  CALL METHOD document->add_attachment
    EXPORTING
      i_attachment_type    = att_type
      i_att_content_hex    = it_bin
      i_attachment_size    = it_lenght
      i_attachment_subject = subject.

  REFRESH: it_bin,
           it_bin_ext.
  CLEAR:    it_lenght.

1. Endform.