메뉴 건너뛰기

SAP Korea Community

CL_BCS를 이용한 E-Mail 즉시전송

사라다 2015.09.17 11:12 조회 수 : 4943 추천:2

SO_DOCUMENT_SEND_API1 펑션을 이용하면 백그라운드 작업에 의해 메일이 발송되서, 메일발송에 약간의 텀이 있길래

실행즉시 발송되는게 없을까 해서 구글링을 통해 찾아서 만들 CBO펑션입니다.


아마 다른 회원분께서 유사한걸 올렸을것 같지만, 제가 찾아볼때는 없길래 등록합니다 ^-^;;;;

혹시 중복이더라도 너그럽게 봐주세요~


<style type="text/css"> SPAN { font-family: "돋움체"; font-size: 10pt; color: #000000; background: #FFFFFF; } .L0S31 { font-style: italic; color: #808080; background: #E6E6FA; } .L0S32 { color: #3399FF; } .L0S33 { color: #4DA619; } .L0S52 { color: #0000FF; } .L0S55 { color: #800080; } .L0S70 { color: #808080; } </style> FUNCTION ZBC_SEND_MAIL_IMMEDIATELY.
*"----------------------------------------------------------------------
*"*"Local interface:
*"  IMPORTING
*"     VALUE(I_SUBJECT) TYPE  SO_OBJ_DES              "메일 제목
*"  TABLES
*"      T_HTML STRUCTURE  SOLISTI1 OPTIONAL           "메일 내용
*"      T_RECV STRUCTURE  SOMLRECI1 OPTIONAL          "메일 수신자
*"  EXCEPTIONS
*"      MAIL_SENT_FAILED
*"----------------------------------------------------------------------

  DATA send_request       TYPE REF TO cl_bcs.
  DATA document           TYPE REF TO cl_document_bcs.
  DATA sender             TYPE REF TO cl_sapuser_bcs.
  DATA recipient          TYPE REF TO if_recipient_bcs.
  DATA exception_info     TYPE REF TO if_os_exception_info,
         bcs_exception      TYPE REF TO cx_bcs,
         t_hex              TYPE solix_tab,
         t_text              TYPE soli_tab,
         w_text like LINE OF t_text,
         html_string        TYPE string,
         xhtml_string       TYPE xstring,
         v_message(100),
         v_mail             TYPE  sza5_d0700-smtp_addr.


  CLEAR html_string.

  TRY.
*    Create persistent send request
    send_request cl_bcs=>create_persistent).

    loop at t_html.
      move t_html-line to w_text-line.
      append w_text to t_text.
    ENDLOOP.

    document cl_document_bcs=>create_document(
      i_type    'HTM'
      i_text    t_text
      "i_hex    = t_hex
      i_subject I_SUBJECT ).

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

*     Get sender object
    sender cl_sapuser_bcs=>createsy-uname ).

*     Add sender
    CALL METHOD send_request->set_sender
      EXPORTING
        i_sender sender.


    LOOP AT T_RECV.
      MOVE T_RECV-RECEIVER TO v_mail.

      recipient cl_cam_address_bcs=>create_internet_addressv_mail ).
*       Add recipient with its respective attributes to send request
      CALL METHOD send_request->add_recipient
        EXPORTING
          i_recipient recipient.
    ENDLOOP.

*     Set that you don't need a Return Status E-mail
    DATAstatus_mail TYPE bcs_stml.
    status_mail 'N'.

    CALL METHOD send_request->set_status_attributes
      EXPORTING
        i_requested_status status_mail
        i_status_mail      status_mail.

*     set send immediately flag
    send_request->set_send_immediately'X' ).

*     Send document
    CALL METHOD send_request->send).

    COMMIT WORK.

  CATCH cx_bcs INTO bcs_exception.
    v_message bcs_exception->get_text).
    RAISE MAIL_SENT_FAILED.
  ENDTRY.

ENDFUNCTION.

번호 제목 글쓴이 날짜 조회 수
공지 자료실 업로드에 관련하여... [183] 보나 2009.11.05 340008
1358 NEPTUNE 솔루션 SAP 데이터를 FIORI로 보여주는 솔루션입니다. easy abap(김성준) 2018.09.07 619
1357 개발자 가이드 for SAP HANA STUDIO [2] file 얀웬리 2018.08.10 1073
1356 S4 HANA IDES 설치 따라하기 [2] easy abap(김성준) 2018.07.14 1052
1355 Transaction code naming [2] easy abap(김성준) 2018.02.12 1766
1354 User Exit 질문 [3] 푸딩딩 2017.04.17 4424
1353 GRID 밤의화신 2017.04.04 3474
1352 Next Generation ABAP Development (2007 영문 PDF) file 대략나 2016.12.20 3780
1351 Graphical Form Painter could not be called (FORMPAINTER_CREATE_WINDOW, ) [1] easy abap(김성준) 2016.11.22 3700
1350 PI/XI 7.0 Alert Config 영문 file cry6 2016.09.01 3501
1349 PI/XI 7.1 Troubleshooting Guide - 영문 file cry6 2016.09.01 3160
1348 Excel Macro 이용한 Table Layout file 아네사 2016.08.19 3678
1347 모든 CBO 테이블 엑셀 업로드 프로그램 [1] easy abap(김성준) 2016.08.17 4592
1346 LSMW example (FK01 - vendor master create ) [2] file cupycopy2000 2016.04.30 3678
1345 ABAP Debugging Tips and Tricks [4] file 아밥뽀 2016.03.31 4308
1344 ALV with IDA(Integrated Data Access ) 설명 및 한글 자료 있으신 분 있으신가요 ? [1] miss841 2016.01.19 4340
1343 ABAP 7.40 Quick Reference [5] easy abap(김성준) 2015.11.19 6338
1342 SAP NetWeaver Application Server ABAP 7.4 Overview and Product Highlight file easy abap(김성준) 2015.11.12 3769
1341 HANA 및 ABAP 프로그램 개발을 위한 이클립스(ECLIPSE) 설치하기 [7] file easy abap(김성준) 2015.09.30 6071
» CL_BCS를 이용한 E-Mail 즉시전송 [1] 사라다 2015.09.17 4943
1339 SAP NetWeaver as server 7.03 VMware 네트워크 설정 방법. file paran 2015.07.25 4297