메뉴 건너뛰기

SAP 한국 커뮤니티



SAP에서 EXCEL 첨부해서 E-MAIL 보내기2

김영욱 2008.10.02 15:47 조회 수 : 1383

EXCEL 첨부해서 메일 보내는 소스 2입니다.


얼마 전에 올렸던 방식과 좀 다릅니다..


 


밑에있는 EXCEL 첨부 소스는 인터널 테이블을 바로 엑셀 파일로 만들어서


첨부하는 방식이구요..


ECC에서는 UNICODE 때문에 한글이 깨지네요..ㅜ.ㅜ


결국 해결을 못해서 다른 방식의 소스를 구했습니다.


 


엑셀파일을 로컬에 다운 받은 후 그 파일을 그냥 바로 첨부해서 메일 보내는 방식입니다.


이게 더 확실하더라구요..


밑에 소스는 바로 실행해 보실 수 있을 겁니다..저는 ECC6.0에서 테스트 해봤습니다..


다들 도움이 되셨으면 좋겠네요..


===========================================================================================


 


 

*
* This program will allowed you to send email with attachment.
* First, specify the attachment file from your local hardisk and
*execute.
* Next, specify the sender email address and click the send button.
*
REPORT y_cr17_mail.

DATA method1 LIKE sy-ucomm.
DATA g_user LIKE soudnamei1.
DATA g_user_data LIKE soudatai1.
DATA g_owner LIKE soud-usrnam.
DATA g_receipients LIKE soos1 OCCURS 0 WITH HEADER LINE.
DATA g_document LIKE sood4 .
DATA g_header LIKE sood2.
DATA g_folmam LIKE sofm2.
DATA g_objcnt LIKE soli OCCURS 0 WITH HEADER LINE.
DATA g_objhead LIKE soli OCCURS 0 WITH HEADER LINE.
DATA g_objpara  LIKE selc OCCURS 0 WITH HEADER LINE.
DATA g_objparb  LIKE soop1 OCCURS 0 WITH HEADER LINE.
DATA g_attachments LIKE sood5 OCCURS 0 WITH HEADER LINE.
DATA g_references LIKE soxrl OCCURS 0 WITH HEADER LINE.

DATA g_authority LIKE sofa-usracc.
DATA g_ref_document LIKE sood4.
DATA g_new_parent LIKE soodk.
DATABEGIN OF g_files OCCURS 10,
    text(255TYPE c,
   END OF g_files.

DATA : fold_number(12TYPE c,
       fold_yr(2TYPE c,
       fold_type(3TYPE c.

PARAMETERS ws_file(4096TYPE c DEFAULT 'c:test.xls'.
* Can me any file fromyour pc ....either xls or word or ppt etc ...
g_user-sapname = sy-uname.
CALL FUNCTION 'SO_USER_READ_API1'
EXPORTING
   user                            = g_user
*    PREPARE_FOR_FOLDER_ACCESS       = ' '
IMPORTING
   user_data                       = g_user_data
*  EXCEPTIONS
*    USER_NOT_EXIST                  = 1
*    PARAMETER_ERROR                 = 2
*    X_ERROR                         = 3
*    OTHERS                          = 4
          .
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

fold_type = g_user_data-outboxfol+0(3).
fold_yr = g_user_data-outboxfol+3(2).
fold_number =  g_user_data-outboxfol+5(12).
CLEAR g_files.

REFRESH : g_objcnt,
  g_objhead,
  g_objpara,
  g_objparb,
  g_receipients,
  g_attachments,
  g_references,
  g_files.

method1 = 'SAVE'.
g_document-foltp  = fold_type.
g_document-folyr   = fold_yr.
g_document-folno   = fold_number.
g_document-objtp   = g_user_data-object_typ.
*g_document-OBJYR   = '27'.
*g_document-OBJNO   = '000000002365'.
*g_document-OBJNAM = 'MESSAGE'.
g_document-objdes   = 'sap-img.com testing by program'.
g_document-folrg   = 'O'.
*g_document-okcode   = 'CHNG'.
g_document-objlen = '0'.
g_document-file_ext = 'XLS'.

g_header-objdes =  'sap-img.com testing by program'.
g_header-file_ext = 'TXT'.

CALL FUNCTION 'SO_DOCUMENT_REPOSITORY_MANAGER'
  EXPORTING
    method             = method1
   office_user        = sy-uname
   ref_document       = g_ref_document
   new_parent         =  g_new_parent
IMPORTING
   authority          =  g_authority
TABLES
   objcont            = g_objcnt
   objhead            = g_objhead
   objpara            = g_objpara
   objparb            = g_objparb
   recipients         = g_receipients
   attachments        = g_attachments
   references         = g_references
   files              = g_files
  CHANGING
    document           = g_document
   header_data        = g_header
*   FOLMEM_DATA        =
*   RECEIVE_DATA       =
          .

* File from the pc to send...
method1 = 'ATTCREATEFROMPC'.

g_files-text = ws_file.
APPEND g_files.

CALL FUNCTION 'SO_DOCUMENT_REPOSITORY_MANAGER'
  EXPORTING
    method       = method1
    office_user  = g_owner
    ref_document = g_ref_document
    new_parent   = g_new_parent
  IMPORTING
    authority    = g_authority
  TABLES
    objcont      = g_objcnt
    objhead      = g_objhead
    objpara      = g_objpara
    objparb      = g_objparb
    recipients   = g_receipients
    attachments  = g_attachments
    references   = g_references
    files        = g_files
  CHANGING
    document     = g_document
    header_data  = g_header.

method1 = 'SEND'.

g_receipients-recnam = 'MK085'.
g_receipients-recesc = 'U'.
g_receipients-sndex = 'X'.
APPEND  g_receipients.


CALL FUNCTION 'SO_DOCUMENT_REPOSITORY_MANAGER'
  EXPORTING
    method       = method1
    office_user  = g_owner
    ref_document = g_ref_document
    new_parent   = g_new_parent
  IMPORTING
    authority    = g_authority
  TABLES
    objcont      = g_objcnt
    objhead      = g_objhead
    objpara      = g_objpara
    objparb      = g_objparb
    recipients   = g_receipients
    attachments  = g_attachments
    references   = g_references
    files        = g_files
  CHANGING
    document     = g_document
    header_data  = g_header.

*-- End of Program


* e-abap님에 의해서 게시물 이동되었습니다 (2008-10-14 10:05)
번호 제목 글쓴이 날짜 조회 수
238 ABAP_효과적인_코딩법 [29] file Zking 2008.11.18 2147
237 릴리즈된 프로그램 다시 수정상태로 변경하는법 [21] file Zking 2008.11.18 955
236 아밥팁들 (개발자자료) [63] file 스땐 2008.11.06 1912
235 User-Exits 관련 파일 [21] file 스땐 2008.11.04 917
234 Editplus ABAP 구문 강조 파일.. [4] file StoryGuy™ 2008.10.27 365
233 ultraedit 구문강조 파일 - abap, java, c#, sql, 기타 [10] file 경리 2008.10.24 290
232 [re] ultraedit 구문강조 파일 - abap, java, c#, sql, 기타 --> 설정 방법 입니다 [2] 도움이 2009.03.19 237
231 table_control을 만들어 보았습니다. -왕초보용입니다. [6] file 해물파전 2008.10.27 290
» SAP에서 EXCEL 첨부해서 E-MAIL 보내기2 [13] 김영욱 2008.10.02 1383
229 excel 파일 첨부해서 E-mail 보내기 [9] 김영욱 2008.09.24 641
228 INTERNAL_TABLE_HANDING구문_최적화 [15] file xcomedy 2008.10.04 382
227 제 나름대로 문법 정리 해보았습니다.. [15] file 아상 2008.08.06 575
226 minisap 라이센스 갱신방법 순서를 적어보았습니다. [4] file 랑군 2008.07.09 312
225 ABAP select 구문 [16] file tanger 2008.06.03 574
224 ABAP강의자료5 [9] file Delight 2008.04.23 315
223 ABAP강의자료3~4 [3] file Delight 2008.04.23 252
222 ABAP강의자료1~2 [7] file Delight 2008.04.23 1306
221 클래스빌더사용법 [7] file baper 2008.03.19 458
220 밑에 이어서 마지막화일입니다. [4] file Hyui 2008.03.19 169
219 밑에 교재 이어서 올립니다. [3] file Hyui 2008.03.19 165