Mail sending with subject and attachment

Question

hai all,
       my requiremnet is i want to send a mail with a body and pdf attachemnt , but with the below code iam able to send both as attachment , but how to send along with body.
*& Report  ZV_TEST                                                     *
Report  ZV_TEST no standard Page heading line-size 200.
Tables: Pa0105,
        pernr,
        QPPNP,
        HRPY_RGDIR,
        SSCRFIELDS,
        pa0002.
Constants
constants:
begin of F__LTYPE, "type of line
CMD like PC408-LTYPE value '/:', "command
TXT like PC408-LTYPE value 's', "textline
end of F__LTYPE.
constants:
begin of F__CMD, "commands
NEWPAGE like PC408-LINDA value '<NEW-PAGE>',
end of F__CMD.
CONSTANTS: c_dev LIKE  sy-sysid VALUE 'DEV',
           c_no(1)     TYPE c   VALUE ' ',
           c_device(4) TYPE c   VALUE 'LOCL'.
Data Declaration
DATA:Begin of Itab occurs 0,
       pernr like HRPY_RGDIR-PERNR,
       SEQNR like HRPY_RGDIR-SEQNR,
       PAYSLIP_VARIANT like BAPI7004-PAYSLIP_VARIANT,
     end of itab.
data: P_INFO like PC407,
      P_INFO1 like PC407,
      P_FORM like PC408 occurs 0 with header line,
      P_P_FORM like PC408 occurs 0 with header line,
      RETURN like BAPIRETURN1 occurs 0 with header line,
      PAY_VAR like BAPI7004-PAYSLIP_VARIANT value 'ESS_PAYSLIPS' ,
      P_LIST like ABAPLIST occurs 1 with header line,
      P_IDX type I.
data: begin of P_INDEX occurs 0,
        INDEX type I,
      end of P_INDEX.
data: OBJBIN like SOLISTI1 occurs 10 with header line,
      DOCDATA like SODOCCHGI1,
      OBJTXT like SOLISTI1 occurs 10 with header line,
      OBJPACK like SOPCKLSTI1 occurs 1 with header line,
      RECLIST like SOMLRECI1 occurs 1 with header line,
      OBJHEAD like SOLISTI1 occurs 1 with header line,
      TAB_LINES type I,
      ATT_TYPE like SOODK-OBJTP.
data: PDF_TAB like TBL1024 occurs 0 with header line,
      OTF_TAB like TBL1024 occurs 0 with header line.
Spool IDs
TYPES: BEGIN OF t_tbtcp.
        INCLUDE STRUCTURE tbtcp.
TYPES: END OF t_tbtcp.
DATA: it_tbtcp TYPE STANDARD TABLE OF t_tbtcp INITIAL SIZE 0,
      wa_tbtcp TYPE t_tbtcp.
Job Runtime Parameters
DATA: gd_eventid LIKE tbtcm-eventid,
      gd_eventparm LIKE tbtcm-eventparm,
      gd_external_program_active LIKE tbtcm-xpgactive,
      gd_jobcount LIKE tbtcm-jobcount,
      gd_jobname LIKE tbtcm-jobname,
      gd_stepcount LIKE tbtcm-stepcount,
      gd_error    TYPE sy-subrc,
      gd_reciever TYPE sy-subrc.
Spool to PDF conversions
DATA: gd_spool_nr LIKE tsp01-rqident,
      gd_destination LIKE rlgrap-filename,
      gd_bytecount LIKE tst01-dsize,
      gd_buffer TYPE string.
Binary store for PDF
DATA: BEGIN OF it_pdf_output OCCURS 0.
        INCLUDE STRUCTURE tline.
DATA: END OF it_pdf_output.
DATA:  w_recsize TYPE i.
DATA: gd_subject   LIKE sodocchgi1-obj_descr,
      it_mess_bod LIKE solisti1 OCCURS 0 WITH HEADER LINE,
      it_mess_att LIKE solisti1 OCCURS 0 WITH HEADER LINE,
      gd_sender_type     LIKE soextreci1-adr_typ,
      gd_attachment_desc TYPE so_obj_nam,
      gd_attachment_name TYPE so_obj_des.
data: PDF_CONTENT TYPE XSTRING,
      PDF_FSIZE   TYPE I.
data: error        TYPE sysubrc.
DATA: v_dest LIKE tsp01-rqdest,
      v_handle LIKE sy-tabix,
      v_spool_id LIKE tsp01-rqident,
      v_rc TYPE c,
      v_errmessage(100) TYPE c,
      v_text(70) TYPE c.
data: PAYSLIP     LIKE     BAPI7004_PAYSLIP occurs 0 with header line.
Data: v_index like sy-index value 1.
Data: Begin of I_Sent occurs 0,
        pernr like pernr-pernr,
        name(20),
        usrid_long like pa0105-usrid_long,
        Status(3),
      End of I_sent.
Data: Begin of I_NSent occurs 0,
         pernr like pernr-pernr,
        usrid_long like pa0105-usrid_long,
      End of I_Nsent.
DATA: I_FCODE TYPE TABLE OF sy-ucomm.
data: v_text1(255),
      v_text2(255),
      v_text3(255).
data: month_names like T247 occurs 0 with header line,
      v_month(2) type c.
***********************Selection Screen********************
selection-screen Begin of Block b2 WITH FRAME TITLE TEXT-BL1 .
Parameters: P_Print type c default 'X' radiobutton group g1
                                      user-command CMD,
            P_DISP  Type C  Radiobutton Group g1.
Selection-screen end of Block b2.
selection-screen Begin of Block b1 WITH FRAME TITLE TEXT-BL2 .
Recipient address and Period
SELECT-OPTIONS :   s_name   FOR PERNR-PERNR Modif id M1,
                   s_period for HRPY_RGDIR-FPPER Modif id M1.
                  s_year for QPPNP-PABRJ Modif id M1.
SELECT-OPTIONS:    p_num    FOR PERNR-PERNR Modif id M2 .
Selection-screen end of Block b1.
*SELECTION-SCREEN FUNCTION KEY 1.
*SELECTION-SCREEN PUSHBUTTON /10(20) CHARLY USER-COMMAND ABCD.
***********************At Selection Screen Output**************
at selection-screen output.
  Loop at screen.
    if P_Print = 'X'.
      if screen-group1 = 'M2'.
        screen-active = 0.
      endif.
    else.
      if screen-group1 = 'M1'.
     if screen-name = 'S_NAME-LOW' Or screen-name = 'S_PERIOD'.
        screen-active = 1.
      endif.
    Endif.
    Modify Screen.
  Endloop.
***********************INITIALIZATION********************
INITIALIZATION.
MOVE 'Preview' TO SSCRFIELDS-FUNCTXT_01.
MOVE 'Preview' TO CHARLY.
  p_print = 'X'.
v_text1 =
'Please find enclosed your salary slip for the month of Apr 2006 as
*attachment. This is confidential '.
***********************AT SELECTION-SCREEN******************
AT SELECTION-SCREEN.
if p_print = 'X'.
   if s_name[] is initial.
      message e000(8i) with 'Make Entry into Personal Number Field'.
   endif.
else.
   if p_num[] is initial.
      message e000(8i) with 'Make Entry into Personal Number Field'.
   endif.
endif.
***********************Start-of-Selection********************
Start-of-Selection.
  if p_print = 'X'.
    APPEND 'NEXT' TO i_fcode.
    APPEND 'PREV' TO i_fcode.
    set pf-status 'ZHRF' excluding I_FCODE.
    Perform Get_values.
   Perform Print using v_index.
    perform Write_Values.
  else.
    set pf-status 'ZHRF'.
  Perform Get_values.
    Perform Print using v_index.
  endif.
***********************Top-of-page***************************
Top-of-page.
  skip 2.
  if p_print = 'X'.
    write:50 'The Pay Slip Sent details'.
    skip 1.
    uline at 1(70).
    write :/ sy-vline,2 'Personal Number',18 sy-vline,
                     19 'Name',40 sy-vline,
                     41 'User Mail-Ids',63 sy-vline,
                     64 'Status',70 sy-vline.
    ULINE /1(70).
  endif.
  set left scroll-boundary Column 0.
*&      Form  Get_values
      text
-->  p1        text
<--  p2        text
FORM Get_values .
  select  *
          from HRPY_RGDIR
          into corresponding fields of table itab
          where PERNR in s_name
          AND
          FPPER IN S_PERIOD.
  if sy-subrc eq 0.
    loop at itab.
      Create receiver list
      refresh RECLIST.
      clear RECLIST.
      select single *
                    from PA0105
                    where PERNR eq ITAB-PERNR
                      and USRTY eq '0010'.
      if SY-SUBRC <> 0.
        I_sent-PERNR = ITAB-PERNR.
        i_sent-status = 'NO'.
        select single *
                      from pa0002
                      where pernr eq itab-pernr.
        concatenate pa0002-VORNA pa0002-NACHN into i_sent-name
                                         separated by space.
        append i_Nsent.
        continue.
      else.
        refresh reclist.
        RECLIST-RECEIVER = pa0105-usrid_long.
        translate RECLIST-RECEIVER to lower case.
        RECLIST-REC_TYPE = 'U'.
        append RECLIST.
      endif.
      call function 'GET_PAYSLIP'
        EXPORTING
          EMPLOYEE_NUMBER = itab-PERNR
          SEQUENCE_NUMBER = itab-SEQNR
          PAYSLIP_VARIANT = PAY_VAR
        IMPORTING
          RETURN          = RETURN
          P_INFO          = P_INFO
        TABLES
          P_FORM          = P_FORM.
      loop at P_FORM
          where LINDA eq F__CMD-NEWPAGE
          and LTYPE eq F__LTYPE-CMD.
        P_INDEX-INDEX = SY-TABIX.
        append P_INDEX.
      endloop.
      P_IDX = 1.
      refresh P_P_FORM.
      append lines of P_FORM from P_IDX to P_INDEX-INDEX
      to P_P_FORM.
      P_IDX = P_INDEX-INDEX.
      export P_P_FORM to memory id '%%_P_FORM_%%'.
      export P_INFO to memory id '%%_P_INFO_%%'.
      submit RPCEDT_LIST_TO_MEMORY exporting list to memory and return.
      call function 'LIST_FROM_MEMORY'
        TABLES
          LISTOBJECT = P_LIST.
      call function 'TABLE_COMPRESS'
        TABLES
          IN     = P_LIST
          OUT    = OBJBIN
        EXCEPTIONS
          others = 1.
      Read table RECLIST index 1.
      I_sent-PERNR = ITAB-PERNR.
      i_sent-usrid_long = RECLIST-RECEIVER.
      select single *
                    from pa0002
                    where pernr eq itab-pernr.
      concatenate pa0002-VORNA pa0002-NACHN into i_sent-name
                                       separated by space.
      i_sent-status = 'YES'.
      append i_sent.
     concatenate ' Payslip-'  '(' ITAB-PERNR+4(4) ')'
    into DOCDATA-OBJ_DESCR.
      CALL FUNCTION 'MONTH_NAMES_GET'
       EXPORTING
         LANGUAGE                    = SY-LANGU
        TABLES
          MONTH_NAMES                 = month_names
       EXCEPTIONS
         MONTH_NAMES_NOT_FOUND       = 1
         OTHERS                      = 2
      IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
     if sy-datum+4(2)  = '01'.
        v_month = '12'.
     else.
        v_month = sy-datum+4(2) - 1.
     endif.
     read table month_names with key mnr = v_month.
     concatenate 'Salary Slip for the month of' month_names-LTX
                  sy-datum+0(4) '-' i_sent-name
                  into DOCDATA-OBJ_DESCR.
      DOCDATA-OBJ_NAME = 'Pay Slip'.
      DOCDATA-OBJ_LANGU = SY-LANGU.
      OBJTXT = 'Dear Mr.'.
      concatenate OBJTXT i_sent-name into objtxt.
      append OBJTXT.
      append initial line to objtxt.
      OBJTXT = 'Please find enclosed your salary slip for the month of'.
      concatenate OBJTXT month_names-LTX sy-datum+0(4)
                                  into objtxt separated by space.
       append OBJTXT.
OBJTXT =
'as attachment This is confidential document and not be disclosed'.
      append OBJTXT.
OBJTXT =
'shared with any other employee.In case of any queries on this subject'.
append OBJTXT.
OBJTXT =
'you are requested to contact the Payroll administrator “Sabitha” '.
OBJTXT = 'email:[email protected]'.
append OBJTXT.
append initial line to objtxt.
append initial line to objtxt.
OBJTXT = 'With Kind Regards'.
append OBJTXT.
append initial line to objtxt.
append initial line to objtxt.
OBJTXT = 'Sabitha'.
append OBJTXT.
OBJTXT = 'Payroll Administrator'.
append OBJTXT.
OBJTXT = 'Enteg Infotech Pvt Lyd.'.
append OBJTXT.
OBJTXT = 'Banaglore'.
append OBJTXT.
      Write Packing List (Main)
       describe table objtxt.
       read table OBJTXT index sy-tfill.
      DOCDATA-DOC_SIZE = ( sy-tfill - 1 ) * 255 + strlen( OBJTXT ).
      clear OBJPACK-TRANSF_BIN.
      OBJPACK-HEAD_START = 1.
      OBJPACK-HEAD_NUM = 0.
      OBJPACK-BODY_START = 1.
      OBJPACK-BODY_NUM = sy-tfill.
      OBJPACK-DOC_TYPE = 'TXT'.
      append OBJPACK.
Create Message Attachment
Write Packing List (Attachment)
      ATT_TYPE = 'ALI'.
      describe table OBJBIN lines TAB_LINES.
      read table OBJBIN index TAB_LINES.
      OBJPACK-DOC_SIZE =
      ( TAB_LINES - 1 ) * 255 + strlen( OBJBIN ).
      OBJPACK-TRANSF_BIN = 'X'.
      OBJPACK-HEAD_START = 1.
      OBJPACK-HEAD_NUM = 0.
      OBJPACK-BODY_START = 1.
      OBJPACK-BODY_NUM = TAB_LINES.
      OBJPACK-DOC_TYPE = ATT_TYPE.
      OBJPACK-OBJ_NAME = 'ATTACHMENT'.
      OBJPACK-OBJ_DESCR = 'Payslip'.
      append OBJPACK.
Send the document
      call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'
        EXPORTING
          DOCUMENT_DATA              = DOCDATA
          PUT_IN_OUTBOX              = ''
          COMMIT_WORK                = 'X'
        TABLES
          PACKING_LIST               = OBJPACK
          OBJECT_HEADER              = OBJHEAD
          CONTENTS_BIN               = OBJBIN
          CONTENTS_TXT               = OBJTXT
          RECEIVERS                  = RECLIST
        EXCEPTIONS
          TOO_MANY_RECEIVERS         = 1
          DOCUMENT_NOT_SENT          = 2
          DOCUMENT_TYPE_NOT_EXIST    = 3
          OPERATION_NO_AUTHORIZATION = 4
          PARAMETER_ERROR            = 5
          X_ERROR                    = 6
          ENQUEUE_ERROR              = 7
          others                     = 8.
    endloop.
  endif.
ENDFORM.                    " Get_values
*****************************At User Command*************************
at User-Command.
  case Sy-ucomm.
    When 'NEXT'.
      describe table itab.
      if sy-tfill GT v_index.
        v_index = v_index + 1.
        Perform Print using v_index.
      else.
        message E000(8i) with 'You Have Reached the Last Entry'.
      endif.
    When 'PREV'.
      if v_index LE 1.
        Message E000(8i) with 'You Have Reached the First Entry'.
      else.
        v_index = v_index - 1.
        Perform Print using v_index.
      endif.
    When 'BACK'.
      leave to screen 0.
    WHen 'EXIT'.
      set Screen 0.
      leave screen.
  Endcase.
*&      Form  Print
      text
-->  p1        text
<--  p2        text
FORM Print using v_index.
  if v_index = 1.
    select  *
           from HRPY_RGDIR
           into corresponding fields of table itab
           where PERNR in P_num
  endif.
  if not itab[] is initial.
    sort itab by pernr .
    read table itab index v_index.
    select single *
                  from PA0105
                  where PERNR eq ITAB-PERNR
                    and USRTY eq '0010'.
    call function 'GET_PAYSLIP'
      EXPORTING
        EMPLOYEE_NUMBER = itab-PERNR
        SEQUENCE_NUMBER = itab-SEQNR
        PAYSLIP_VARIANT = PAY_VAR
      IMPORTING
        RETURN          = RETURN
        P_INFO          = P_INFO
      TABLES
        P_FORM          = P_FORM.
    loop at P_FORM
        where LINDA eq F__CMD-NEWPAGE
        and LTYPE eq F__LTYPE-CMD.
      P_INDEX-INDEX = SY-TABIX.
      append P_INDEX.
    endloop.
    P_IDX = 1.
    refresh P_P_FORM.
    append lines of P_FORM from P_IDX to P_INDEX-INDEX
    to P_P_FORM.
    P_IDX = P_INDEX-INDEX.
       export P_P_FORM to memory id '%%_P_FORM_%%'.
       export P_INFO to memory id '%%_P_INFO_%%'.
  IMPORT P_P_FORM FROM MEMORY ID '%%_P_FORM_%%'.
  IMPORT P_INFO FROM MEMORY ID '%%_P_INFO_%%'.
    new-page                                                "VKIK008647
    line-size p_info-pcols
    line-count p_info-psize
    no-title
    no-heading.
    SET BLANK LINES ON.
    LOOP AT P_P_FORM.
      if sy-tabix lt 20.
        NEW-LINE NO-SCROLLING.
      endif.
      CASE P_P_FORM-LTYPE.
     WHEN F__LTYPE-TXT.
        WRITE:/ P_P_FORM-LINDA.
        WHEN F__LTYPE-CMD.
          IF P_P_FORM-LINDA EQ F__CMD-NEWPAGE.
            NEW-PAGE.
          ENDIF.
        WHEN others.
          hide: itab,v_index.
          WRITE:/ P_P_FORM-LINDA.
          if sy-tabix lt 20.
            NEW-LINE NO-SCROLLING.
          else.
            NEW-LINE SCROLLING.
          endif.
      ENDCASE.
    ENDLOOP.
    SET BLANK LINES OFF.
v_index = 1.
  endif.
ENDFORM.                    " Print
*&      Form  Write_Values
      text
-->  p1        text
<--  p2        text
FORM Write_Values .
  if p_print = 'X'.
    loop at i_sent.
      write :/ sy-vline,2 i_sent-pernr,18 sy-vline,
                        19 i_sent-name,40 sy-vline,
                        41 i_sent-usrid_long,63 sy-vline,
                        64 i_sent-status,70 sy-vline.
      ULINE /1(70).
    endloop.
  endif.
ENDFORM.                    " Write_Values
i want to send the contents of objtxt has body.
cheers

Answer 1

Hi,
in the below code, BOLD Characters coming as body text in my mail.after that i am attaching V_LINE as the attachment.pl compare this with ur code.
revert, if you need any clarifications.
<b>*-populate body text</b>
  CONCATENATE <b>'Japan BOL details for the Delivery#'
                V_VBELN
               ',is attached'</b>               INTO WA_OBJTXT SEPARATED BY SPACE.
  APPEND WA_OBJTXT TO IT_OBJTXT.
<b>*---- Append Date and Time into Body of email.</b>
  MOVE 'File is generated on'(004) TO V_INFO.
  V_TIME = SY-UZEIT.
WRITE : SY-UZEIT TO V_TIME USING EDIT MASK '__:__:__'.
  CONCATENATE V_TIME+0(2)
              V_TIME+2(2)
              V_TIME+4(2)
              INTO
              V_TIME2 SEPARATED BY ':'.
   WRITE : sy-datum MM/DD/YYYY TO lv_date .
  CONCATENATE SY-DATUM+4(2)
              SY-DATUM+6(2)
              SY-DATUM+0(4)
              INTO V_DATE.
  CONCATENATE <b>V_INFO
              V_DATE
              'At'
              V_TIME2
              INTO V_INFO</b>              SEPARATED BY SPACE.
  <b>WA_OBJTXT = V_INFO.</b>  APPEND WA_OBJTXT TO IT_OBJTXT.
*-document size
  CLEAR : V_TABLE_LINES.
  DESCRIBE TABLE IT_OBJTXT LINES V_TABLE_LINES.
  READ TABLE IT_OBJTXT INTO WA_OBJTXT INDEX V_TABLE_LINES.
  X_DOC_CHNG-DOC_SIZE =
                 ( V_TABLE_LINES - 1 ) * 255 + STRLEN( WA_OBJTXT ).
*-populate packing list for body text
CLEAR IT_OBJPACK-TRANSF_BIN.
  WA_OBJPACK-HEAD_START = 1.
  WA_OBJPACK-HEAD_NUM = 0.
  WA_OBJPACK-BODY_START = 1.
  WA_OBJPACK-BODY_NUM = V_TABLE_LINES.
  WA_OBJPACK-DOC_TYPE = 'RAW'.
  APPEND WA_OBJPACK TO IT_OBJPACK.
  CLEAR WA_OBJPACK.
*--for attachment
*--add Internal table lines here, as attachment.
  WA_OBJBIN = V_LINE.
  APPEND WA_OBJBIN TO IT_OBJBIN.
  CLEAR  WA_OBJBIN.
*-get total no.of lines of Object table(attachment)
  CLEAR : V_TABLE_LINES.
  DESCRIBE TABLE IT_OBJBIN LINES V_TABLE_LINES.
*-populate object header
  CONCATENATE  'Delivery#'(005)
                 V_VBELN
                 SY-DATUM
                 V_TIME
                 INTO
                 WA_OBJHEAD SEPARATED BY SPACE.
  APPEND WA_OBJHEAD TO IT_OBJHEAD.
  CLEAR  WA_OBJHEAD.
*-packing list for attachment
  WA_OBJPACK-TRANSF_BIN = C_X.
  WA_OBJPACK-HEAD_START = 1.
  WA_OBJPACK-HEAD_NUM = 1.
  WA_OBJPACK-BODY_START = 1.
  WA_OBJPACK-BODY_NUM = V_TABLE_LINES .
WA_OBJPACK-DOC_TYPE = 'CSV' .
  WA_OBJPACK-DOC_TYPE = 'RAW' .
  WA_OBJPACK-OBJ_NAME = 'POTR'.
CONCATENATE 'Delivery details for '(005)
  CONCATENATE TEXT-005
            V_VBELN
            SY-DATUM
            V_TIME
            '.CSV'
            INTO
            WA_OBJPACK-OBJ_DESCR SEPARATED BY SPACE.
  BREAK-POINT.
  WA_OBJPACK-DOC_SIZE = V_TABLE_LINES * 255.
  APPEND WA_OBJPACK TO IT_OBJPACK.
  CLEAR  WA_OBJPACK.