E-mail in ABAP

Question

Hi Experts,
How can i send E-mail in ABAP?
I want to attach a text file to that E-mail.
Please any one can help me ASAP.
Regards
Rajendra

Answer 1

Hi,
Please take a look at the code below:
FORM get_name_and_date.
move username and latest date
  MOVE sy-uname TO zts0001-zcreated_by.
  MOVE sy-datum TO zts0001-zchanged_date.
select records which have been presently modified
  SELECT kunnr cdseq zaddress zcperson zcnumber FROM zts0001
  INTO TABLE it_zts0001
  WHERE zchanged_date = sy-datum.
select records based from records fetched by it_zts0001
  IF NOT it_zts0001[] IS INITIAL.
    SELECT kunnr cdseq zaddress zcperson zcnumber FROM zts_stpgeoloc
    INTO TABLE it_zts_stpgeoloc
    FOR ALL ENTRIES IN it_zts0001
    WHERE kunnr = it_zts0001-kunnr
      AND cdseq = it_zts0001-cdseq.
  ENDIF.
get number of records from zts0001
  CLEAR sy-dbcnt.
  SELECT kunnr cdseq zaddress zcperson zcnumber
  FROM zts0001
  INTO TABLE it_zts0001_count.
  IF sy-dbcnt > 0.
    lv_count_zts0001 = sy-dbcnt.
    CLEAR sy-dbcnt.
  ENDIF.
get number of records from zts_stpgeoloc
  SELECT kunnr cdseq zaddress zcperson zcnumber
  FROM zts_stpgeoloc
  INTO TABLE it_zts_stpgeoloc_count.
  IF sy-dbcnt > 0.
    lv_count_zts_stpgeoloc = sy-dbcnt.
    CLEAR sy-dbcnt.
  ENDIF.
if records in ZTS_STPGEOLOC does not match the records in ZTS0001
  IF lv_count_zts_stpgeoloc <> lv_count_zts0001.
    LOOP AT it_zts_stpgeoloc_count ASSIGNING <fs_zts_stpgeoloc_count>.
      READ TABLE it_zts0001_count WITH TABLE KEY
                                 kunnr = <fs_zts_stpgeoloc_count>-kunnr
                                 cdseq = <fs_zts_stpgeoloc_count>-cdseq.
    move records which have been deleted to itab it_del_entries
      IF sy-subrc <> 0.
        MOVE-CORRESPONDING <fs_zts_stpgeoloc_count> TO it_del_entries.
        APPEND it_del_entries.
        CLEAR it_del_entries.
      delete records from table zts_stpgeoloc
        DELETE FROM zts_stpgeoloc
        WHERE kunnr = <fs_zts_stpgeoloc_count>-kunnr
          AND cdseq = <fs_zts_stpgeoloc_count>-cdseq.
        COMMIT WORK AND WAIT.
      ENDIF.
    ENDLOOP.
  ENDIF.
if the address, contact person, contact number in table
ZTS_STPGEOLOC for a given record does not match the same record
in ZTS0001, then get old and modified address to put in message text
  LOOP AT it_zts0001 ASSIGNING <fs_zts0001>.
    READ TABLE it_zts_stpgeoloc WITH KEY kunnr = <fs_zts0001>-kunnr
                                         cdseq = <fs_zts0001>-cdseq.
    IF sy-subrc = 0.
    address
      IF it_zts_stpgeoloc-zaddress <> <fs_zts0001>-zaddress.
        lv_flag = 1.
        MOVE <fs_zts0001>-kunnr TO it_address_status-kunnr.
        MOVE <fs_zts0001>-cdseq TO it_address_status-cdseq.
        MOVE it_zts_stpgeoloc-zaddress TO it_address_status-old_address.
        MOVE <fs_zts0001>-zaddress TO it_address_status-new_address.
      ENDIF.
    person
      IF it_zts_stpgeoloc-zcperson <> <fs_zts0001>-zcperson.
        lv_flag = 1.
        MOVE <fs_zts0001>-kunnr TO it_address_status-kunnr.
        MOVE <fs_zts0001>-cdseq TO it_address_status-cdseq.
        MOVE it_zts_stpgeoloc-zcperson TO it_address_status-old_person.
        MOVE <fs_zts0001>-zcperson TO it_address_status-new_person.
      ENDIF.
    number
      IF it_zts_stpgeoloc-zcnumber <> <fs_zts0001>-zcnumber.
        lv_flag = 1.
        MOVE <fs_zts0001>-kunnr TO it_address_status-kunnr.
        MOVE <fs_zts0001>-cdseq TO it_address_status-cdseq.
        MOVE it_zts_stpgeoloc-zcnumber TO it_address_status-old_number.
        MOVE <fs_zts0001>-zcnumber TO it_address_status-new_number.
      ENDIF.
      IF NOT it_address_status IS INITIAL.
        APPEND it_address_status.
        CLEAR it_address_status.
      ENDIF.
    update table zts_stpgeoloc based from itab it_zts0001
      IF lv_flag = 1.
        CLEAR lv_flag.
        UPDATE zts_stpgeoloc SET zaddress = <fs_zts0001>-zaddress
                                 zcperson = <fs_zts0001>-zcperson
                                 zcnumber = <fs_zts0001>-zcnumber
                              WHERE kunnr = <fs_zts0001>-kunnr
                                AND cdseq = <fs_zts0001>-cdseq.
      ENDIF.
    ENDIF.
  ENDLOOP.
get e-mail addresses of controllers in table ZSHIPTO_EMAIL
  SELECT * FROM zshipto_email
  INTO TABLE it_zshipto_email
  WHERE zevent = '2'.
  IF sy-dbcnt > 0.
    IF NOT it_del_entries[] IS INITIAL.
      maildata-obj_name = 'Record Deleted in table ZTS0001'.
      maildata-obj_descr = 'Record Deleted in table ZTS0001'.
      maildata-obj_langu = sy-langu.
   records deleted in ZTS0001 and ZTS_STPGEOLOC
      CLEAR: lv_flag, lv_counter.
      LOOP AT it_zshipto_email.
        CLEAR: it_del_entries, mailtxt.
        LOOP AT it_del_entries ASSIGNING <fs_del_entries>.
        get name of dealer
          SELECT SINGLE name1 FROM kna1
          INTO <fs_del_entries>-name1
          WHERE kunnr = <fs_del_entries>-kunnr.
          IF lv_counter IS INITIAL.
            CONCATENATE: 'FYI: The ff record/s were deleted in tables'
                         'ZTS0001 and ZTS_STPGEOLOC by user' sy-uname
                         INTO lv_contents
                         SEPARATED BY space.
            mailtxt-line = lv_contents.
            APPEND mailtxt.
            CLEAR: mailtxt, lv_contents.
          ENDIF.
          APPEND mailtxt.
          CONCATENATE: 'Dealer :' <fs_del_entries>-kunnr '-'
                       <fs_del_entries>-name1
                       INTO lv_contents
                       SEPARATED BY space.
          mailtxt-line = lv_contents.
          APPEND mailtxt.
          CLEAR: mailtxt, lv_contents.
          CONCATENATE: 'Ship-To:' <fs_del_entries>-cdseq
                       INTO lv_contents
                       SEPARATED BY space.
          mailtxt-line = lv_contents.
          APPEND mailtxt.
          CLEAR: mailtxt, lv_contents.
          CONCATENATE: 'Address:' <fs_del_entries>-zaddress
                       INTO lv_contents
                       SEPARATED BY space.
          mailtxt-line = lv_contents.
          APPEND mailtxt.
          CLEAR: mailtxt, lv_contents.
          CONCATENATE: 'Contact person:' <fs_del_entries>-zcperson
                       INTO lv_contents
                       SEPARATED BY space.
          mailtxt-line = lv_contents.
          APPEND mailtxt.
          CLEAR: mailtxt, lv_contents.
          CONCATENATE: 'Contact number:' <fs_del_entries>-zcnumber
                       INTO lv_contents
                       SEPARATED BY space.
          mailtxt-line = lv_contents.
          APPEND mailtxt.
          CLEAR: mailtxt, lv_contents.
          lv_counter = 1.
        ENDLOOP.
        APPEND mailtxt.
        mailrec-receiver = it_zshipto_email-zemail.
        mailrec-rec_type  = 'U'.
        APPEND mailrec.
        CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
             EXPORTING
                  document_data              = maildata
                  document_type              = 'RAW'
                  put_in_outbox              = 'X'
                  commit_work                = 'X'
             TABLES
                 object_header              = mailtxt
                  object_content             = mailtxt
                  receivers                  = mailrec
             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.
        IF sy-subrc <> 0.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
        ENDIF.
        CLEAR:    mailtxt, mailrec, lv_counter.
        REFRESH:  mailtxt, mailrec.
      ENDLOOP.
    ENDIF.
    CLEAR it_del_entries.
    REFRESH it_del_entries.
for records that were modified
    IF NOT it_address_status[] IS INITIAL.
      CLEAR maildata.
      maildata-obj_name = 'Record changed in table ZTS0001'.
      maildata-obj_descr = 'Record changed in table ZTS0001'.
      maildata-obj_langu = sy-langu.
      CLEAR lv_counter.
      LOOP AT it_zshipto_email.
        CONCATENATE: 'FYI: The ff records were changed in tables'
                     'ZTS0001 and ZTS_STPGEOLOC by user' sy-uname
                     INTO lv_contents
                     SEPARATED BY space.
        mailtxt-line =  lv_contents.
        APPEND mailtxt.
        CLEAR: mailtxt, lv_contents.
        LOOP AT it_address_status ASSIGNING <fs_address_status>.
        get name of dealer
          SELECT SINGLE name1 FROM kna1
          INTO <fs_address_status>-name1
          WHERE kunnr = <fs_address_status>-kunnr.
          APPEND mailtxt.
        address
          IF NOT <fs_address_status>-old_address IS INITIAL AND
             NOT <fs_address_status>-new_address IS INITIAL.
            CONCATENATE: 'Dealer :' <fs_address_status>-kunnr '-'
                         <fs_address_status>-name1
                         INTO lv_contents
                         SEPARATED BY space.
            mailtxt-line = lv_contents.
            APPEND mailtxt.
            CLEAR: mailtxt, lv_contents.
            CONCATENATE: 'Ship-To:' <fs_address_status>-cdseq
                         INTO lv_contents
                         SEPARATED BY space.
            mailtxt-line = lv_contents.
            APPEND mailtxt.
            CLEAR: mailtxt, lv_contents.
           CONCATENATE: 'Address from:' <fs_address_status>-old_address
                                    INTO lv_contents
                                    SEPARATED BY space.
            mailtxt-line = lv_contents.
            APPEND mailtxt.
            CLEAR: mailtxt, lv_contents.
            CONCATENATE: 'Address to  :'
                         <fs_address_status>-new_address
                         INTO lv_contents
                         SEPARATED BY space.
            mailtxt-line = lv_contents.
            APPEND mailtxt.
            CLEAR: mailtxt, lv_contents.
          ENDIF.
        contact person
          IF NOT <fs_address_status>-old_person IS INITIAL AND
             NOT <fs_address_status>-new_person IS INITIAL.
            append mailtxt.
           CONCATENATE: 'Dealer   :' <fs_address_status>-kunnr '-'
                        <fs_address_status>-name1
                        INTO lv_contents
                        SEPARATED BY space.
           mailtxt-line = lv_contents.
           APPEND mailtxt.
           CLEAR: mailtxt, lv_contents.
           CONCATENATE: 'Ship-To :' <fs_address_status>-cdseq
                        INTO lv_contents
                        SEPARATED BY space.
           mailtxt-line = lv_contents.
           APPEND mailtxt.
           CLEAR: mailtxt, lv_contents.
            CONCATENATE: 'Contact person from:'
                         <fs_address_status>-old_person
                         INTO lv_contents
                         SEPARATED BY space.
            mailtxt-line = lv_contents.
            APPEND mailtxt.
            CLEAR: mailtxt, lv_contents.
            CONCATENATE: 'Contact person to  :'
                         <fs_address_status>-new_person
                         INTO lv_contents
                         SEPARATED BY space.
            mailtxt-line = lv_contents.
            APPEND mailtxt.
            CLEAR: mailtxt, lv_contents.
          ENDIF.
        contact number
          IF NOT <fs_address_status>-old_number IS INITIAL AND
             NOT <fs_address_status>-new_number IS INITIAL.
           append mailtxt.
           CONCATENATE: 'Dealer   :' <fs_address_status>-kunnr '-'
                        <fs_address_status>-name1
                        INTO lv_contents
                        SEPARATED BY space.
           mailtxt-line = lv_contents.
           APPEND mailtxt.
           CLEAR: mailtxt, lv_contents.
           CONCATENATE: 'Ship-To :' <fs_address_status>-cdseq
                        INTO lv_contents
                        SEPARATED BY space.
           mailtxt-line = lv_contents.
           APPEND mailtxt.
           CLEAR: mailtxt, lv_contents.
            CONCATENATE: 'Contact number from:'
                         <fs_address_status>-old_number
                         INTO lv_contents
                         SEPARATED BY space.
            mailtxt-line = lv_contents.
            APPEND mailtxt.
            CLEAR: mailtxt, lv_contents.
            CONCATENATE: 'Contact number to  :'
                         <fs_address_status>-new_number
                         INTO lv_contents
                         SEPARATED BY space.
            mailtxt-line = lv_contents.
            APPEND mailtxt.
            CLEAR: mailtxt, lv_contents.
          ENDIF.
        ENDLOOP.
        APPEND mailtxt.
        CLEAR mailtxt-line.
        mailrec-receiver = it_zshipto_email-zemail.
        mailrec-rec_type  = 'U'.
        APPEND mailrec.
        CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
             EXPORTING
                  document_data              = maildata
                  document_type              = 'RAW'
                  put_in_outbox              = 'X'
                  commit_work                = 'X'
             TABLES
                 object_header              = mailtxt
                  object_content             = mailtxt
                  receivers                  = mailrec
             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.
        IF sy-subrc <> 0.
          MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
              WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
        ENDIF.
        CLEAR:    mailtxt,  mailrec.
        REFRESH:  mailtxt, mailrec.
      ENDLOOP.
      CLEAR it_address_status.
      REFRESH it_address_status.
    ENDIF.
  ENDIF.
ENDFORM.
Regards!