메뉴 건너뛰기

SAP 한국 커뮤니티

SAP 오피스의 메일박스에 메일 전송하는 함수

꿀단지 2011.10.11 11:23 조회 수 : 5760

DATA : BEGIN OF MS_MAILOBJECT_CONT OCCURS 0.
          INCLUDE STRUCTURE MCMAILOBJ.
DATA : END OF MS_MAILOBJECT_CONT.

CLEAR : MS_MAILOBJECT_CONT.
REFRESH : MS_MAILOBJECT_CONT.

CONCATENATE '플랜트' WERKS ' 자재코드 ' MATNR
         ' 원가 생성작업을 해 주세요.'
         INTO MS_MAILOBJECT_CONT-OBJLINE.

  MOVE : '1' TO MS_MAILOBJECT_CONT-OBJNR,
         '1' TO MS_MAILOBJECT_CONT-OBJLEVEL,
         'RAW' TO MS_MAILOBJECT_CONT-OBJTYPE,
         '원가생성 요청' TO MS_MAILOBJECT_CONT-OBJNAM,
         '원가생성 요청' TO MS_MAILOBJECT_CONT-OBJDES.
  APPEND MS_MAILOBJECT_CONT.

  CALL FUNCTION 'MC_SEND_MAIL'
    EXPORTING
      MS_MAIL_SENDMODE         = 'B'
      MS_MAIL_TITLE            = '원가생성요청'
      MS_MAIL_DESCRIPTION      = '원가생성작업을 해주세요'
      MS_MAIL_RECEIVER         = 'ED03'
      MS_MAIL_EXPRESS          = ''      “ X=고속(받는사람의 작업화면에 창이 뜸)
TABLES
      MS_MAIL_CONT              = MS_MAILOBJECT_CONT
.
  IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.