发送邮件

原文地址：发送邮件

 

 

DATA: v_text TYPE bcsy_text, "Mail Body

v_standard_text TYPE rssce-tdname, "Standard Text Name
v_line TYPE sy-tfill, "Lines of Table
v_email TYPE adr6-smtp_addr, "Email address
v_sent_to_all TYPE os_boolean, "Send to all
r_send_request TYPE REF TO cl_bcs,
r_document TYPE REF TO cl_document_bcs,
r_recipient TYPE REF TO if_recipient_bcs.

r_document = cl_document_bcs=>create_document(
i_type = 'RAW'
i_text = v_text " 需要传的Text文件
i_subject = v_subject_short “ 邮件的主题 ).
*Set Longer Subject
CALL METHOD r_send_request->set_message_subject( v_subject_short ).

能够附加PDF文件

*Add PDF attachment
PERFORM add_attachment_sa CHANGING v_bin_filesize v_pdf_xstring.
v_pdf_size = v_bin_filesize.
v_pdf_content = cl_document_bcs=>xstring_to_solix(
ip_xstring = v_pdf_xstring ).

r_document->add_attachment(
i_attachment_type = 'PDF'
i_attachment_subject = 'SA PDF'
i_attachment_size = v_pdf_size
i_att_content_hex = v_pdf_content ).

*add document to send request
CALL METHOD r_send_request->set_document( r_document ).

*--------- add recipient (e-mail address) -----------------------
*create recipient - please replace e-mail address !!!
CLEAR wa_email.
LOOP AT im_apvl_user INTO wa_email.
IF wa_email-email IS NOT INITIAL.
r_recipient = cl_cam_address_bcs=>create_internet_address(
wa_email-email ).
*add recipient with its respective attributes to send request
CALL METHOD r_send_request->add_recipient
EXPORTING
i_recipient = r_recipient
i_express = c_x.
ENDIF.
ENDLOOP.

*---------- send document ---------------------------------------
CALL METHOD r_send_request->send(
EXPORTING
i_with_error_screen = c_x
RECEIVING
result = v_sent_to_all ).

COMMIT WORK.

* -----------------------------------------------------------
* * exception handling
* -----------------------------------------------------------
* * replace this very rudimentary exception handling
* * with your own one !!!
* -----------------------------------------------------------
CATCH cx_bcs INTO r_bcs_exception.
EXIT.
ENDTRY.

邮件发送后可以用t-code:SOST来进行监控