Send email in ABAP

来源：互联网发布：淘宝订单可以拆分吗编辑：程序博客网时间：2024/04/27 17:23

This article is copied from Tim's blog(http://jgtang82.javaeye.com/blog/186430). Tim, hope you don't mind. :)

1. Use FM to send email.

report zrich_0002.

data: maildata   like sodocchgi1.
data: mailtxt    like solisti1 occurs 10 with header line.
data: mailrec    like somlrec90 occurs 0 with header line.

start-of-selection.
clear:    maildata, mailtxt, mailrec.
refresh: mailtxt, mailrec.

maildata-obj_name = 'TEST'.
maildata-obj_descr = 'Test Subject'.

mailtxt = '<html>'.
append mailtxt.

mailtxt = '<body>'.
append mailtxt.

mailtxt = '<b>This is SAP</b>'.
append mailtxt.

mailtxt = '<a href="#" target="_blank">SAP Hyperlink</a> '.
append mailtxt.

mailtxt = '</body>'.
append mailtxt.

mailtxt = '</html>'.
append mailtxt.

mailrec-receiver = 'you@yourcompany.com'.
mailrec-rec_type = 'U'.
append mailrec.

call function 'SO_NEW_DOCUMENT_SEND_API1'
       exporting
            document_data              = maildata
            document_type              = 'HTM'
            put_in_outbox              = '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.

---------------------------------------------------------------------------------------------

2. Use ABAP OO to send email.

REPORT zsendmail.

DATA: lv_title          TYPE so_obj_des,
      send_request   TYPE REF TO CL_BCS,
      document         TYPE REF TO CL_DOCUMENT_BCS,
      conlengths        TYPE so_obj_len,
      html                 TYPE STANDARD TABLE OF w3html,
      wa_html           TYPE w3html,
      sender_id        TYPE REF TO IF_SENDER_BCS,
      recipient          TYPE REF TO IF_RECIPIENT_BCS,
      sent_to_all       TYPE os_boolean,
      bcs_exception TYPE REF TO cx_bcs,
      bcs_message   TYPE string.

lv_title = 'This is the title'.

     wa_html-line = '<html><body>'.
     APPEND wa_html TO html.
    ...
    wa_html-line = '</body></html>'.
    APPEND wa_html TO html.

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

    CLEAR document .
    document = cl_document_bcs=>create_document(
                    i_type =    'HTM'
                    i_text =     html
                    i_length = conlengths
                    i_subject = lv_title ).

* Add document to send request
CALL METHOD send_request->set_document( document ).

*   Construct sender and receiver
    CLEAR: sender_id , recipient .
    sender_id = cl_cam_address_bcs=>create_internet_address( 'abc@zh.cn' ).
    recipient = cl_cam_address_bcs=>create_internet_address( 'bcd@zh.cn' ).

*   Set sender
    CALL METHOD send_request->set_sender
      EXPORTING
        i_sender = sender_id.

*   Add recipient with its respective attributes to send request
    CALL METHOD send_request->add_recipient
      EXPORTING
        i_recipient = recipient
        i_express   = 'X'.

*   Set E-mail sending options
    CALL METHOD send_request->set_status_attributes
      EXPORTING
        i_requested_status = 'E'
        i_status_mail      = 'E'.
    CALL METHOD send_request->set_send_immediately( 'X' ).

*   Send document
    CALL METHOD send_request->send(
     EXPORTING
       i_with_error_screen = 'X'
     RECEIVING
       result = sent_to_all ).

    IF sent_to_all = 'X'.
      MESSAGE 'Mail sent successfully ' TYPE 'S'.
    ENDIF.
    COMMIT WORK.

CATCH cx_bcs INTO bcs_exception.
    bcs_message = bcs_exception->get_text( ).
    MESSAGE bcs_exception TYPE 'E'.
    EXIT.
ENDTRY.

******************************************
* get sender email address.

CALL FUNCTION 'SUSR_USER_ADDRESS_READ'
    EXPORTING
        USER_NAME              = LV_BNAME
*       READ_DB_DIRECTLY       = ' '
    IMPORTING
        USER_ADDRESS           = FS_ADDR
        USER_USR03             = FS_USR03
    EXCEPTIONS
        USER_ADDRESS_NOT_FOUND = 1
        OTHERS                 = 2.