How to put mail ids in CC and BCC while sending mail through ABAP?

Question

Hi all,
i have created a report which sends the output of the  report to external mail ids. I want to put some email ids in CC or BCC.
Please do guide me so that i can proceed with the development.
Thanks and Regards,
Syed

Answer 1

just go through below code and
*& Report  Z_TTTT
REPORT  Z_TTTT1.
*TABLE DECLARATIONS
TABLES: SOLI.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT_B1 NO INTERVALS.
SELECTION-SCREEN BEGIN  OF LINE .
PARAMETERS: SAPID RADIOBUTTON GROUP ADDR.
SELECTION-SCREEN COMMENT 5(20) T_SAPID.
PARAMETERS: EMAIL_ID RADIOBUTTON GROUP ADDR.
SELECTION-SCREEN COMMENT 30(20) T_EMAIL.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B1.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT_B2 NO INTERVALS.
SELECTION-SCREEN BEGIN  OF LINE .
SELECTION-SCREEN COMMENT 5(20) TXT_ID.
SELECT-OPTIONS: ID FOR SOLI-LINE NO INTERVALS.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN  OF LINE .
SELECTION-SCREEN COMMENT 5(20) TXT_CC.
SELECT-OPTIONS: CC FOR SOLI-LINE NO INTERVALS.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN  OF LINE .
SELECTION-SCREEN COMMENT 5(20) TXT_BCC.
SELECT-OPTIONS: BCC FOR SOLI-LINE NO INTERVALS.
SELECTION-SCREEN END OF LINE.
*SELECTION-SCREEN BEGIN  OF LINE .
*SELECTION-SCREEN COMMENT 5(20) TXT_SEND.
*PARAMETERS: SENDER LIKE SOUD-USRNAM.
*SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B2.
*SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-009.
*PARAMETERS: SUB_LINE(60) TYPE C.
*SELECTION-SCREEN END OF BLOCK B3.
*SELECTION-SCREEN BEGIN OF BLOCK B4 WITH FRAME TITLE TEXT-008.
*SELECT-OPTIONS: TEXT1 FOR SOLI-LINE NO INTERVALS.
*SELECTION-SCREEN END OF BLOCK B4.
SELECTION-SCREEN BEGIN OF BLOCK B5 WITH FRAME TITLE TEXT_B5.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: P_ATTACH AS CHECKBOX USER-COMMAND RAD1.
SELECTION-SCREEN COMMENT 5(20) T_ATTACH.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 5(20) T_FLNAME.
PARAMETERS: P_FLNAME  TYPE RLGRAP-FILENAME MODIF ID M1 .
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B5.
*Data Declarations
DATA: MAIL_CONTENT LIKE SOLI OCCURS 0 WITH HEADER LINE,
      SUBJECT_LINE LIKE SOOD1-OBJDES.
DATA : SENDER TYPE SY-UNAME.
DATA : IT_REC type SOLI OCCURS 0 WITH HEADER LINE.
*INITIALIZATION Block
INITIALIZATION.
  TEXT_B1 = 'Output Specification'.
  T_SAPID = 'SAP User ID'.
  T_EMAIL = 'Email ID'.
  TXT_ID =  'Receipient Id'.
  TXT_CC =  'CC'.
  TXT_BCC = 'BCC'.
  TEXT_B2 = 'Receipient'.
  TEXT_B5 = 'Attachment'.
  T_ATTACH = 'Attachment'.
  T_FLNAME = 'File name'.
*  TXT_SEND = 'Sender Name'.
AT SELECTION-SCREEN OUTPUT.
  LOOP AT SCREEN.
    IF P_ATTACH <> 'X'.
      IF SCREEN-GROUP1 = 'M1'.
        SCREEN-INPUT = 0. " Disable for input.
        MODIFY SCREEN.
      ENDIF.
    ENDIF.
  ENDLOOP.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR P_FLNAME.
  PERFORM GET_FILENAME.
*start of selection Block
START-OF-SELECTION.
*  LOOP AT TEXT1.
*    MOVE TEXT1-LOW TO MAIL_CONTENT-LINE.
*    APPEND MAIL_CONTENT.
*  ENDLOOP.
****  Mail Body
  MOVE 'Hi' TO MAIL_CONTENT-LINE.
  APPEND MAIL_CONTENT.
  MOVE 'This is Test mail' TO MAIL_CONTENT-LINE.
  APPEND MAIL_CONTENT.
  MOVE 'Thanxs' TO MAIL_CONTENT-LINE.
  APPEND MAIL_CONTENT.
****  Mail Heading
  MOVE 'Test Mail' TO SUBJECT_LINE.
  PERFORM SEND_EMAIL  TABLES MAIL_CONTENT USING SUBJECT_LINE.
*& Form SEND_EMAIL
FORM SEND_EMAIL TABLES OBJCONT STRUCTURE MAIL_CONTENT
                USING TITLE LIKE SOOD-OBJDES.
  DATA: RECEIVERS TYPE  SOOS1 OCCURS 0 WITH HEADER LINE,
        TSOOD1 TYPE SOOD1,
        PACKING_LIST TYPE SOXPL OCCURS 0 WITH HEADER LINE,
        OBJCONT1 type SOLI OCCURS 0 WITH HEADER LINE.
  DATA: BEGIN OF AT_HEADER OCCURS 1.
          INCLUDE STRUCTURE SOLI.
  DATA: END OF AT_HEADER.
  CLEAR: TSOOD1,
         RECEIVERS.
  REFRESH RECEIVERS.
  MOVE: SY-LANGU TO TSOOD1-OBJLA,
  'Email Notice' TO TSOOD1-OBJNAM,
  'C' TO TSOOD1-OBJSNS,
  TITLE TO TSOOD1-OBJDES,  " rajan
  'Rajan' TO TSOOD1-OWNNAM.
*loop through each ID and move them to recipient table
  LOOP AT ID.
*    TRANSLATE ID-LOW TO UPPER CASE.
    IF SAPID = 'X'.
      MOVE: SY-DATUM TO RECEIVERS-RCDAT,
      SY-UZEIT TO RECEIVERS-RCTIM,
      ' ' TO RECEIVERS-RECESC,
      ID-LOW TO RECEIVERS-RECNAM,
      'X' TO RECEIVERS-SNDEX.
    ELSE.
      MOVE: SY-DATUM TO RECEIVERS-RCDAT,
      SY-UZEIT TO RECEIVERS-RCTIM,
      'U' TO RECEIVERS-RECESC,
      'U-' TO RECEIVERS-RECNAM,
      ID-LOW TO RECEIVERS-RECEXTNAM.
    ENDIF.
    APPEND RECEIVERS.
    CLEAR RECEIVERS.
  ENDLOOP.
*loop through each CC and move them to recipient table
  LOOP AT CC.
    TRANSLATE CC-LOW TO UPPER CASE.
    IF SAPID = 'X'.
      MOVE: SY-DATUM TO RECEIVERS-RCDAT,
      SY-UZEIT TO RECEIVERS-RCTIM,
      ' ' TO RECEIVERS-RECESC,
      CC-LOW TO RECEIVERS-RECNAM,
      'X' TO RECEIVERS-SNDEX,
      'X' TO RECEIVERS-SNDCP.
    ELSE.
      MOVE: SY-DATUM TO RECEIVERS-RCDAT,
      SY-UZEIT TO RECEIVERS-RCTIM,
      'U' TO RECEIVERS-RECESC,
      'U-' TO RECEIVERS-RECNAM,
      CC-LOW TO RECEIVERS-RECEXTNAM,
      'X' TO RECEIVERS-SNDCP.
    ENDIF.
    APPEND RECEIVERS.
    CLEAR RECEIVERS.
  ENDLOOP.
*loop through each BCC and move them to recipient table
  LOOP AT BCC.
    TRANSLATE BCC-LOW TO UPPER CASE.
    IF SAPID = 'X'.
      MOVE: SY-DATUM TO RECEIVERS-RCDAT,
      SY-UZEIT TO RECEIVERS-RCTIM,
      ' ' TO RECEIVERS-RECESC,
      BCC-LOW TO RECEIVERS-RECNAM,
      'X' TO RECEIVERS-SNDEX,
      'X' TO RECEIVERS-SNDBC.
    ELSE.
      MOVE: SY-DATUM TO RECEIVERS-RCDAT,
      SY-UZEIT TO RECEIVERS-RCTIM,
      'U' TO RECEIVERS-RECESC,
      'U-' TO RECEIVERS-RECNAM,
      BCC-LOW TO RECEIVERS-RECEXTNAM,
      'X' TO RECEIVERS-SNDBC.
    ENDIF.
    APPEND RECEIVERS.
    CLEAR RECEIVERS.
  ENDLOOP.
  AT_HEADER = SY-DATUM.
  APPEND AT_HEADER.
  AT_HEADER = SY-UZEIT.
  APPEND AT_HEADER.
  IF SENDER EQ SPACE.
    SENDER = SY-UNAME.
  ENDIF.
  IF P_ATTACH EQ 'X'.
    PACKING_LIST-HEAD_START = 1.
    PACKING_LIST-HEAD_NUM = 2.
    PACKING_LIST-BODY_START = 1.
    PACKING_LIST-BODY_NUM = 9999.
    PACKING_LIST-FILE_EXT = 'PDF'.
    APPEND PACKING_LIST.
    CLEAR PACKING_LIST.
*    APPEND LINES OF OBJCONT TO OBJCONT1.
*    REFRESH OBJCONT.
    DATA : FLNAME TYPE  STRING.
    FLNAME = P_FLNAME.
    CALL FUNCTION 'GUI_UPLOAD'
      EXPORTING
        FILENAME                      = FLNAME
   FILETYPE                      = 'BIN'
*   HAS_FIELD_SEPARATOR           = ' '
*   HEADER_LENGTH                 = 0
*   READ_BY_LINE                  = 'X'
*   DAT_MODE                      = ' '
*   CODEPAGE                      = ' '
*   IGNORE_CERR                   = ABAP_TRUE
*   REPLACEMENT                   = '#'
*   CHECK_BOM                     = ' '
*   VIRUS_SCAN_PROFILE            =
*   NO_AUTH_CHECK                 = ' '
* IMPORTING
*   FILELENGTH                    =
*   HEADER                        =
      TABLES
        DATA_TAB                      = IT_REC
* EXCEPTIONS
*   FILE_OPEN_ERROR               = 1
*   FILE_READ_ERROR               = 2
*   NO_BATCH                      = 3
*   GUI_REFUSE_FILETRANSFER       = 4
*   INVALID_TYPE                  = 5
*   NO_AUTHORITY                  = 6
*   UNKNOWN_ERROR                 = 7
*   BAD_DATA_FORMAT               = 8
*   HEADER_NOT_ALLOWED            = 9
*   SEPARATOR_NOT_ALLOWED         = 10
*   HEADER_TOO_LONG               = 11
*   UNKNOWN_DP_ERROR              = 12
*   ACCESS_DENIED                 = 13
*   DP_OUT_OF_MEMORY              = 14
*   DISK_FULL                     = 15
*   DP_TIMEOUT                    = 16
*   OTHERS                        = 17
    IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
APPEND LINES OF IT_REC TO OBJCONT1.
*    APPEND  P_FLNAME TO OBJCONT1.
  ENDIF.
  CALL FUNCTION 'SO_OBJECT_SEND'
    EXPORTING
      SENDER                     = 'AAB_ABAP5'
      OBJECT_HD_CHANGE           = TSOOD1
      OBJECT_TYPE                = 'RAW'
    TABLES
      OBJCONT                    = OBJCONT
      RECEIVERS                  = RECEIVERS
      ATT_HEAD                   = AT_HEADER
      ATT_CONT                   = OBJCONT1
      PACKING_LIST               = PACKING_LIST
    EXCEPTIONS
      ACTIVE_USER_NOT_EXIST      = 1
      COMMUNICATION_FAILURE      = 2
      COMPONENT_NOT_AVAILABLE    = 3
      FOLDER_NOT_EXIST           = 4
      FOLDER_NO_AUTHORIZATION    = 5
      FORWARDER_NOT_EXIST        = 6
      NOTE_NOT_EXIST             = 7
      OBJECT_NOT_EXIST           = 8
      OBJECT_NOT_SENT            = 9
      OBJECT_NO_AUTHORIZATION    = 10
      OBJECT_TYPE_NOT_EXIST      = 11
      OPERATION_NO_AUTHORIZATION = 12
      OWNER_NOT_EXIST            = 13
      PARAMETER_ERROR            = 14
      SUBSTITUTE_NOT_ACTIVE      = 15
      SUBSTITUTE_NOT_DEFINED     = 16
      SYSTEM_FAILURE             = 17
      TOO_MUCH_RECEIVERS         = 18
      USER_NOT_EXIST             = 19
      X_ERROR                    = 20
      OTHERS                     = 21.
  IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ELSE .
    MESSAGE 'sent successfully' TYPE 'I'.
  ENDIF.
*  CALL FUNCTION 'GUI_DOWNLOAD'
*  EXPORTING
**  BIN_FILESIZE = GV_BIN_FILESIZE
*  FILENAME =  'C:\Documents and Settings\Administrator\Desktop\file'"W_FULL_PATH
*  FILETYPE = 'BIN'
** APPEND = ' '
** WRITE_FIELD_SEPARATOR = ' '
** HEADER = '00'
** TRUNC_TRAILING_BLANKS = ' '
** WRITE_LF = 'X'
** COL_SELECT = ' '
** COL_SELECT_MASK = ' '
** DAT_MODE = ' '
** CONFIRM_OVERWRITE = ' '
** NO_AUTH_CHECK = ' '
** CODEPAGE = ' '
** IGNORE_CERR = ABAP_TRUE
** REPLACEMENT = '#'
** WRITE_BOM = ' '
** TRUNC_TRAILING_BLANKS_EOL = 'X'
** WK1_N_FORMAT = ' '
** WK1_N_SIZE = ' '
** WK1_T_FORMAT = ' '
** WK1_T_SIZE = ' '
** IMPORTING
** FILELENGTH =
*  TABLES
*  DATA_TAB = IT_REC
** FIELDNAMES =
** EXCEPTIONS
** FILE_WRITE_ERROR = 1
** NO_BATCH = 2
** GUI_REFUSE_FILETRANSFER = 3
** INVALID_TYPE = 4
** NO_AUTHORITY = 5
** UNKNOWN_ERROR = 6
** HEADER_NOT_ALLOWED = 7
** SEPARATOR_NOT_ALLOWED = 8
** FILESIZE_NOT_ALLOWED = 9
** HEADER_TOO_LONG = 10
** DP_ERROR_CREATE = 11
** DP_ERROR_SEND = 12
** DP_ERROR_WRITE = 13
** UNKNOWN_DP_ERROR = 14
** ACCESS_DENIED = 15
** DP_OUT_OF_MEMORY = 16
** DISK_FULL = 17
** DP_TIMEOUT = 18
** FILE_NOT_FOUND = 19
** DATAPROVIDER_EXCEPTION = 20
** CONTROL_FLUSH_ERROR = 21
** OTHERS = 22
*  IF SY-SUBRC <> 0.
** MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
** WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
*  ENDIF.
ENDFORM. " SEND_EMAIL
*&      Form  GET_FILENAME
FORM GET_FILENAME .
  CALL FUNCTION 'F4_FILENAME'
    IMPORTING
      FILE_NAME = P_FLNAME.
ENDFORM.                    " GET_FILENAME