메뉴 건너뛰기

SAP 한국 커뮤니티

Email 전송 Sample

양키(이경환) 2014.03.12 10:25 조회 수 : 6827

  REPORT  z_test_email.
DATA:
  subject               TYPE so_obj_des,
  it_body_text         TYPE soli_tab,
  it_body_html         TYPE soli_tab,
  from                 TYPE ad_smtpadr,
  to                   TYPE ad_smtpadr.
DATA:
  document             TYPE REF TO cl_document_bcs,
  request              TYPE REF TO cl_bcs,
  mime_helper          TYPE REF TO cl_gbt_multirelated_service,
  sender               TYPE REF TO if_sender_bcs,
  recipient            TYPE REF TO if_recipient_bcs.

to      = 'receiver@gmail.com'.
from    = 'sendor@gmail.com'.

subject = 'Test Email Data'.
APPEND 'Hello World'           TO it_body_text.
APPEND 'Column 1     Column 2' TO it_body_text.
APPEND 'a            b'        TO it_body_text.
APPEND 'xyz          test'     TO it_body_text.
APPEND '4711         0815'     TO it_body_text.
APPEND '<html>'                      TO it_body_html.
APPEND '<head>'                      TO it_body_html.
APPEND '<title>MY HTML part</title>' TO it_body_html.
APPEND '</head>'                     TO it_body_html.
APPEND '<body>'                      TO it_body_html.
APPEND '<h1>Hello World!</h1>'       TO it_body_html.
APPEND '<table border="1">'          TO it_body_html.
APPEND '<tr><td>Column 1</td><td>Column 2</td></tr>' TO it_body_html.
APPEND '<tr><td>a</td><td>b</td></tr>'               TO it_body_html.
APPEND '<tr><td>xyz</td><td>test</td></tr>'          TO it_body_html.
APPEND '<tr><td>4711</td><td>0815</td></tr>'         TO it_body_html.
APPEND '</table>' TO it_body_html.
APPEND '</body>'  TO it_body_html.
APPEND '</html>'  TO it_body_html.

CREATE OBJECT mime_helper.
mime_helper->set_main_text( content = it_body_text ).
mime_helper->set_main_html( content = it_body_html ).
document = cl_document_bcs=>create_from_multirelated(
  i_subject          = subject
  i_multirel_service = mime_helper ).

request = cl_bcs=>create_persistent( ).
request->set_document( document ).

IF from IS NOT INITIAL.
  sender = cl_cam_address_bcs=>create_internet_address( from ).
ELSE.
  sender = cl_sapuser_bcs=>create( sy-uname ).
ENDIF.

request->set_sender( sender ).
recipient = cl_cam_address_bcs=>create_internet_address( to ).
request->add_recipient( EXPORTING i_recipient = recipient ).
request->set_send_immediately( 'X' ).

IF request->send( i_with_error_screen = 'X' ) = 'X'.
  WRITE:/ 'Email sent succesfully'.
ELSE.
  WRITE:/ ' Error sending email'.
ENDIF.
COMMIT WORK.
이 게시물을
수정 삭제 목록
번호 제목 글쓴이 날짜 조회 수
167 TABLE INDEX 추가 및 후속작업 [16] file 루베루베루베룹 2009.04.22 6669
166 특수 문자 표현 [8] ecbase 2006.12.02 6680
165 BAPI_PR_CREATE 구매요청 생성시에 사용하세요. 이렇게도 쓸 수 있군요. [1] 노름마치 2007.12.10 6684
164 자주 사용하는 시스템변수 [8] 열공아밥 2009.12.20 6715
163 유용한 Abap Sample Package [2] 양키(이경환) 2014.03.31 6720
162 LIKE (% _)의 사용법 [8] ecbase 2006.12.02 6736
161 Second index 생성시 MANDT 필드 필요 없다. [2] 모포 2012.05.08 6747
160 Difference between select single and up to 1 row [2] sapjoy 2006.12.12 6817
159 프로그램간 테이블 넘김 [6] ecbase 2006.12.02 6821
» Email 전송 Sample [6] 양키(이경환) 2014.03.12 6827
157 [TIP] FILE_OPEN_DIALOG시 바탕화면을 기본경로로 설정하기 [16] file 고양이야옹 2010.06.29 6853
156 AT 의 사용법(LOOP) [19] ecbase 2006.12.02 6865
155 SAP 지뢰 찾기 [10] file 버미! 2010.06.09 6869
154 message table의 각 필드들을 모아서 하나의 문장으로 [4] 꿀단지 2011.10.11 6876
153 GUI_DOWNLOAD 펑션(메소드) 사용시 Leading Zero현상 해결방법 [3] 양키(이경환) 2014.02.17 6900
152 debug 시 문장 skip 요령 [36] 하마대왕 2013.10.04 6904
151 명령어 결과에 따른 SY-SUBRC [5] sapjoy 2014.09.16 6984
150 IE 9.0 설치 시 se80 다운되는 문제 해결 [5] Jey 2011.03.16 6997
149 SAPLINK - 소스 업&다운 프로그램 입니다. [5] file abaper_qj 2014.06.18 7000
148 문자열 자를 때 자르는 위치에 2BYTE문자가 있는지를 체크하는 방법입니다. [8] 꿈하루 2007.12.01 7066
쓰기 태그