ZCRM_AU_MAIL

FUNCTION ZCRM_AU_MAIL.

*"----------------------------------------------------------------------

*"*"Local Interface:

*"  IMPORTING

*"     VALUE(EXGST) TYPE  ZZFPAMT OPTIONAL

*"     VALUE(INGST) TYPE  ZZFPAMT OPTIONAL

*"     VALUE(BELNR) TYPE  BELNR_D OPTIONAL

*"  TABLES

*"      ZCRMS004 STRUCTURE  ZCRMS004

*"----------------------------------------------------------------------

  DATA: LS_CONTROL_PARAM      TYPE SSFCTRLOP.

  DATA: LS_COMPOSER_PARAM     TYPE SSFCOMPOP.

  DATA: LS_RECIPIENT          TYPE SWOTOBJID.

  DATA: LS_SENDER             TYPE SWOTOBJID.

  DATA: LF_FORMNAME           TYPE TDSFNAME.

  DATA: JOBINFO TYPE SSFCRESCL.

  DATA: LF_FM_NAME            TYPE RS38L_FNAM.

  DATA: OTFDATA TYPE TSFOTF.

  DATA: GV_XSTRING            TYPE XSTRING,

        LV_LEN TYPE I,

        LT_PDF TYPE TABLE OF TLINE.

  DATA: GT_OBJTXT LIKE SOLISTI1 OCCURS  WITH HEADER LINE,

      GT_OBJHEX TYPE SOLIX_TAB,

      G_BENFILE TYPE XSTRING,

      P_SENDER LIKE ADR6-SMTP_ADDR,

      LV_SUBJECT          TYPE SO_OBJ_DES VALUE 'remittance for payment to be processed'.

  DATA LO_SEND_REQUEST   TYPE REF TO CL_BCS.

  DATA LO_DOCUMENT       TYPE REF TO CL_DOCUMENT_BCS.

  DATA LO_RECIPIENT      TYPE REF TO IF_RECIPIENT_BCS.

  DATA LO_BCS_EXCEPTION  TYPE REF TO CX_BCS.

  DATA LO_SENDER         TYPE REF TO IF_SENDER_BCS.     " Sender address

  DATA LV_SIZE           TYPE SO_OBJ_LEN.

  DATA LV_ALL             TYPE OS_BOOLEAN.

  LF_FORMNAME = 'ZCRM_SETMENT_AU'.

  LS_CONTROL_PARAM-LANGU     = 'E'.

  LS_CONTROL_PARAM-NO_OPEN   = 'X'.

  LS_CONTROL_PARAM-NO_CLOSE  = 'X'.

  LS_COMPOSER_PARAM-TDDELETE = 'X'."，打印后删除

  LS_COMPOSER_PARAM-TDIMMED  = 'X'."立即打印

  LS_COMPOSER_PARAM-TDDEST   = 'LP03'.

  LS_CONTROL_PARAM-GETOTF    = 'X'.

  LS_CONTROL_PARAM-NO_DIALOG = 'X'.

  LS_COMPOSER_PARAM-TDNOPREV = 'X'.

  CALL FUNCTION 'SSF_OPEN'

    EXPORTING

      CONTROL_PARAMETERS = LS_CONTROL_PARAM

      OUTPUT_OPTIONS     = LS_COMPOSER_PARAM

      USER_SETTINGS      = ''

    EXCEPTIONS

      FORMATTING_ERROR   =

      INTERNAL_ERROR     =

      SEND_ERROR         =

      USER_CANCELED      =

      OTHERS             = .

  IF SY-SUBRC <> .

    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  ENDIF.

  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'

    EXPORTING

      FORMNAME           = LF_FORMNAME

    IMPORTING

      FM_NAME            = LF_FM_NAME

    EXCEPTIONS

      NO_FORM            =

      NO_FUNCTION_MODULE =

      OTHERS             = .

  IF SY-SUBRC <> .

    MESSAGE 'Call SSF_FUNCTION_MODULE_NAME Error' TYPE 'E'.

  ENDIF.

  CALL FUNCTION LF_FM_NAME

    EXPORTING

      CONTROL_PARAMETERS = LS_CONTROL_PARAM

      OUTPUT_OPTIONS     = LS_COMPOSER_PARAM

      USER_SETTINGS      = ' '

      EXGST              = EXGST

      INGST              = INGST

    TABLES

      GT_TABLE           = ZCRMS004

    EXCEPTIONS

      FORMATTING_ERROR   =

      INTERNAL_ERROR     =

      SEND_ERROR         =

      USER_CANCELED      =

      OTHERS             = .

  IF SY-SUBRC <> .

    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

  ENDIF.

  CALL FUNCTION 'SSF_CLOSE'

    IMPORTING

      JOB_OUTPUT_INFO  = JOBINFO

    EXCEPTIONS

      FORMATTING_ERROR =

      INTERNAL_ERROR   =

      SEND_ERROR       =

      OTHERS           = .

  IF SY-SUBRC <> .

    MESSAGE 'Print Error！' TYPE 'E'.

  ENDIF.

  OTFDATA = JOBINFO-OTFDATA[].

  CALL FUNCTION 'CONVERT_OTF'

    EXPORTING

      FORMAT                = 'PDF'

      MAX_LINEWIDTH         =

    IMPORTING

      BIN_FILESIZE          = LV_LEN

      BIN_FILE              = GV_XSTRING

    TABLES

      OTF                   = OTFDATA

      LINES                 = LT_PDF

    EXCEPTIONS

      ERR_MAX_LINEWIDTH     =

      ERR_FORMAT            =

      ERR_CONV_NOT_POSSIBLE =

      OTHERS                = .

  FREE LO_SEND_REQUEST.

  LO_SEND_REQUEST = CL_BCS=>CREATE_PERSISTENT( ).

  "

  CLEAR: GT_OBJTXT, GT_OBJTXT[].

  GT_OBJTXT = ' '.

  APPEND GT_OBJTXT.

  GT_OBJTXT = 'Dear Service Agent<br /> '.

  APPEND GT_OBJTXT.

  GT_OBJTXT = '<br />'.

  APPEND GT_OBJTXT.

  CLEAR:GT_OBJTXT.

  MOVE INGST TO GT_OBJTXT.

  CONDENSE GT_OBJTXT NO-GAPS.

  CONCATENATE 'Please find attached remittance for' GT_OBJTXT 'payment<br />' INTO GT_OBJTXT SEPARATED BY space.

*  GT_OBJTXT = 'Please find attached remittance for xxx.xx payment<br />'.

  APPEND GT_OBJTXT.

  GT_OBJTXT = 'Please allow up to 7 days for payment to be processed<br />'.

  APPEND GT_OBJTXT.

  GT_OBJTXT = 'If you have any enquiries, please email service.agents@hisense.com<br />'.

  APPEND GT_OBJTXT.

  GT_OBJTXT = '<br />'.

  APPEND GT_OBJTXT.

  GT_OBJTXT = 'Thank you.<br />'.

  APPEND GT_OBJTXT.

  LO_DOCUMENT = CL_DOCUMENT_BCS=>CREATE_DOCUMENT(

    I_TYPE    = 'HTM'

    I_TEXT    = GT_OBJTXT[]

    I_SUBJECT = LV_SUBJECT ).

  TRY.

      GT_OBJHEX = CL_BCS_CONVERT=>XSTRING_TO_SOLIX(

      IV_XSTRING   = GV_XSTRING

      ).

    CATCH CX_BCS.

      MESSAGE E445(SO).

  ENDTRY.

  CONCATENATE BELNR '.PDF' INTO LV_SUBJECT.

  LO_DOCUMENT->ADD_ATTACHMENT(

        I_ATTACHMENT_TYPE    = 'PDF'

        I_ATTACHMENT_SUBJECT = LV_SUBJECT

        I_ATT_CONTENT_HEX    = GT_OBJHEX ).

  DATA: FAULT TYPE REF TO CX_SEND_REQ_BCS.

  TRY.

      LO_SEND_REQUEST->SET_DOCUMENT( LO_DOCUMENT ).

    CATCH CX_SEND_REQ_BCS INTO FAULT.

      MESSAGE I605(SBCOMS) .

  ENDTRY.

  P_SENDER = 'XXXXXXX'.

  CALL METHOD CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS

    EXPORTING

      I_ADDRESS_STRING = P_SENDER

      I_ADDRESS_NAME   = P_SENDER

    RECEIVING

      RESULT           = LO_SENDER.

  CALL METHOD LO_SEND_REQUEST->SET_SENDER

    EXPORTING

      I_SENDER = LO_SENDER.

  P_SENDER = 'wwwliyuananhui@126.com'.

  LO_RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS( P_SENDER ).

  LO_SEND_REQUEST->ADD_RECIPIENT( LO_RECIPIENT ).

  P_SENDER = 'XXXXXXXX'.

  LO_RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS( P_SENDER ).

  LO_SEND_REQUEST->ADD_RECIPIENT( EXPORTING I_RECIPIENT = LO_RECIPIENT I_COPY = 'X' ).

  LO_SEND_REQUEST->SET_SEND_IMMEDIATELY( 'X' ).

  LV_ALL = LO_SEND_REQUEST->SEND( I_WITH_ERROR_SCREEN = 'X' ).

ENDFUNCTION.

FUNCTION ZCRM_AU_MAIL.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(EXGST) TYPE  ZZFPAMT OPTIONAL
*"     VALUE(INGST) TYPE  ZZFPAMT OPTIONAL
*"     VALUE(BELNR) TYPE  BELNR_D OPTIONAL
*"  TABLES
*"      ZCRMS004 STRUCTURE  ZCRMS004
*"----------------------------------------------------------------------
  DATA: LS_CONTROL_PARAM      TYPE SSFCTRLOP.
  DATA: LS_COMPOSER_PARAM     TYPE SSFCOMPOP.
  DATA: LS_RECIPIENT          TYPE SWOTOBJID.
  DATA: LS_SENDER             TYPE SWOTOBJID.
  DATA: LF_FORMNAME           TYPE TDSFNAME.
  DATA: JOBINFO TYPE SSFCRESCL.
  DATA: LF_FM_NAME            TYPE RS38L_FNAM.
  DATA: OTFDATA TYPE TSFOTF.
  DATA: GV_XSTRING            TYPE XSTRING,
        LV_LEN TYPE I,
        LT_PDF TYPE TABLE OF TLINE.
  DATA: GT_OBJTXT LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
      GT_OBJHEX TYPE SOLIX_TAB,
      G_BENFILE TYPE XSTRING,
      P_SENDER LIKE ADR6-SMTP_ADDR,
      LV_SUBJECT          TYPE SO_OBJ_DES VALUE 'remittance for payment to be processed'.
  DATA LO_SEND_REQUEST   TYPE REF TO CL_BCS.
  DATA LO_DOCUMENT       TYPE REF TO CL_DOCUMENT_BCS.
  DATA LO_RECIPIENT      TYPE REF TO IF_RECIPIENT_BCS.
  DATA LO_BCS_EXCEPTION  TYPE REF TO CX_BCS.
  DATA LO_SENDER         TYPE REF TO IF_SENDER_BCS.     " Sender address
  DATA LV_SIZE           TYPE SO_OBJ_LEN.
  DATA LV_ALL             TYPE OS_BOOLEAN.

LF_FORMNAME = 'ZCRM_SETMENT_AU'.
  LS_CONTROL_PARAM-LANGU     = 'E'.
  LS_CONTROL_PARAM-NO_OPEN   = 'X'.
  LS_CONTROL_PARAM-NO_CLOSE  = 'X'.
  LS_COMPOSER_PARAM-TDDELETE = 'X'."，打印后删除
  LS_COMPOSER_PARAM-TDIMMED  = 'X'."立即打印
  LS_COMPOSER_PARAM-TDDEST   = 'LP03'.
  LS_CONTROL_PARAM-GETOTF    = 'X'.
  LS_CONTROL_PARAM-NO_DIALOG = 'X'.
  LS_COMPOSER_PARAM-TDNOPREV = 'X'.

CALL FUNCTION 'SSF_OPEN'
 EXPORTING
 CONTROL_PARAMETERS = LS_CONTROL_PARAM
 OUTPUT_OPTIONS = LS_COMPOSER_PARAM
 USER_SETTINGS = ''
 EXCEPTIONS
 FORMATTING_ERROR = 1
 INTERNAL_ERROR = 2
 SEND_ERROR = 3
 USER_CANCELED = 4
 OTHERS = 5.
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.

CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
 EXPORTING
 FORMNAME = LF_FORMNAME
 IMPORTING
 FM_NAME = LF_FM_NAME
 EXCEPTIONS
 NO_FORM = 1
 NO_FUNCTION_MODULE = 2
 OTHERS = 3.
 IF SY-SUBRC <> 0.
 MESSAGE 'Call SSF_FUNCTION_MODULE_NAME Error' TYPE 'E'.
 ENDIF.

CALL FUNCTION LF_FM_NAME
 EXPORTING
 CONTROL_PARAMETERS = LS_CONTROL_PARAM
 OUTPUT_OPTIONS = LS_COMPOSER_PARAM
 USER_SETTINGS = ' '
 EXGST = EXGST
 INGST = INGST
 TABLES
 GT_TABLE = ZCRMS004
 EXCEPTIONS
 FORMATTING_ERROR = 1
 INTERNAL_ERROR = 2
 SEND_ERROR = 3
 USER_CANCELED = 4
 OTHERS = 5.
 IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.

CALL FUNCTION 'SSF_CLOSE'
 IMPORTING
 JOB_OUTPUT_INFO = JOBINFO
 EXCEPTIONS
 FORMATTING_ERROR = 1
 INTERNAL_ERROR = 2
 SEND_ERROR = 3
 OTHERS = 4.
 IF SY-SUBRC <> 0.
 MESSAGE 'Print Error！' TYPE 'E'.
 ENDIF.

OTFDATA = JOBINFO-OTFDATA[].
  CALL FUNCTION 'CONVERT_OTF'
    EXPORTING
      FORMAT                = 'PDF'
      MAX_LINEWIDTH         = 132
    IMPORTING
      BIN_FILESIZE          = LV_LEN
      BIN_FILE              = GV_XSTRING
    TABLES
      OTF                   = OTFDATA
      LINES                 = LT_PDF
    EXCEPTIONS
      ERR_MAX_LINEWIDTH     = 1
      ERR_FORMAT            = 2
      ERR_CONV_NOT_POSSIBLE = 3
      OTHERS                = 4.

FREE LO_SEND_REQUEST.
 LO_SEND_REQUEST = CL_BCS=>CREATE_PERSISTENT( ).
 "
 CLEAR: GT_OBJTXT, GT_OBJTXT[].
 GT_OBJTXT = ' '.
 APPEND GT_OBJTXT.
 GT_OBJTXT = 'Dear Service Agent '.
 APPEND GT_OBJTXT.
 GT_OBJTXT = ' '.
 APPEND GT_OBJTXT.
 CLEAR:GT_OBJTXT.
 MOVE INGST TO GT_OBJTXT.
 CONDENSE GT_OBJTXT NO-GAPS.
 CONCATENATE 'Please find attached remittance for' GT_OBJTXT 'payment ' INTO GT_OBJTXT SEPARATED BY space.
* GT_OBJTXT = 'Please find attached remittance for xxx.xx payment '.
 APPEND GT_OBJTXT.
 GT_OBJTXT = 'Please allow up to 7 days for payment to be processed '.
 APPEND GT_OBJTXT.
 GT_OBJTXT = 'If you have any enquiries, please email service.agents@hisense.com '.
 APPEND GT_OBJTXT.
 GT_OBJTXT = ' '.
 APPEND GT_OBJTXT.
 GT_OBJTXT = 'Thank you. '.
 APPEND GT_OBJTXT.

LO_DOCUMENT = CL_DOCUMENT_BCS=>CREATE_DOCUMENT(
    I_TYPE    = 'HTM'
    I_TEXT    = GT_OBJTXT[]
    I_SUBJECT = LV_SUBJECT ).

TRY.
      GT_OBJHEX = CL_BCS_CONVERT=>XSTRING_TO_SOLIX(
      IV_XSTRING   = GV_XSTRING
      ).
    CATCH CX_BCS.
      MESSAGE E445(SO).
  ENDTRY.
  CONCATENATE BELNR '.PDF' INTO LV_SUBJECT.
*  LV_SUBJECT = 'test.PDF'.
  LO_DOCUMENT->ADD_ATTACHMENT(
        I_ATTACHMENT_TYPE    = 'PDF'
        I_ATTACHMENT_SUBJECT = LV_SUBJECT
        I_ATT_CONTENT_HEX    = GT_OBJHEX ).
  DATA: FAULT TYPE REF TO CX_SEND_REQ_BCS.
  TRY.
      LO_SEND_REQUEST->SET_DOCUMENT( LO_DOCUMENT ).
    CATCH CX_SEND_REQ_BCS INTO FAULT.
      MESSAGE I605(SBCOMS) .
  ENDTRY.

P_SENDER = 'service_jp@hisense.com'.

CALL METHOD CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS
    EXPORTING
      I_ADDRESS_STRING = P_SENDER
      I_ADDRESS_NAME   = P_SENDER
    RECEIVING
      RESULT           = LO_SENDER.
  CALL METHOD LO_SEND_REQUEST->SET_SENDER
    EXPORTING
      I_SENDER = LO_SENDER.

P_SENDER = 'wwwliyuananhui@126.com'.

LO_RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS( P_SENDER ).
LO_SEND_REQUEST->ADD_RECIPIENT( LO_RECIPIENT ).

P_SENDER = 'dongxiang@hisense.com'.

LO_RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS( P_SENDER ).
LO_SEND_REQUEST->ADD_RECIPIENT( EXPORTING I_RECIPIENT = LO_RECIPIENT I_COPY = 'X' ).

LO_SEND_REQUEST->SET_SEND_IMMEDIATELY( 'X' ).
LV_ALL = LO_SEND_REQUEST->SEND( I_WITH_ERROR_SCREEN = 'X' ).

ENDFUNCTION.

ZCRM_AU_MAIL的更多相关文章

随机推荐

线程学习教程（一）： Java中终止（销毁）线程的方法
结束线程有以下三种方法:(1)设置退出标志,使线程正常退出,也就是当run()方法完成后线程终止 (2)使用interrupt()方法中断线程 (3)使用stop方法强行终止线程(不推荐使用,Thre ...
form提交循环
使用ajax提交数据时,如果数据非常多,提交会比较麻烦,这时可以给form表一个id=“form”,用serializeArray()方法进行提交. erializeArray()方法通过序列化表单值 ...
Java命令行参数解析
参考 http://blog.csdn.net/mldxs/article/details/36204079 http://rensanning.iteye.com/blog/2161201 imp ...
关于Java8 Stream流的利与弊 Java初学者，大神勿喷
题目需求: 1:第一个队伍只要名字为3个字成员的姓名,存储到新集合 2:第一个队伍筛选之后只要前3人:存储到一个新集合 3:第2个队伍只要姓张的成员姓名:存储到一个新集合 4:第2个队伍不要前2人,存 ...
去掉vim的BELL提示音
title: date: 2017-11-09 15:07:08 tags: vim categories: 开发工具 --- 在vi/vim中使用 :set noeb 意思是noerrorbells ...
tomcat是怎么找到项目lib目录下的jar包的，求大神解答
是通过java代码动态的修改classpath吗,和classloader有关系吗
Vue系列之 => 路由的嵌套
<!DOCTYPE html> <html> <head> <meta charset="utf-8"> <meta name ...
The All-purpose Zero (最长公共子序列)
题意:求最长公共子序列,但是有个辅助条件,那就是如果那个值为0,那么他可以更换为任意值. 思路:假设现在只剩下没有0的序列是不是就很好求了?那么我们的想法就是看有没有办法将0往最左端或者最有端移动,显 ...
颜色扩展类--ColorExtensions
/// <summary> /// 颜色扩展类 /// </summary> public static class ColorExtensions { /// <sum ...
app埋点
目前APP埋点的主流有两种方式: 第一类是预先设定好想要获取的目标数据,让程序员撰写代码把“采集器”埋到相应的页面上,用于追踪和记录的用户的行为,并把实时数据传送到后台数据库或者客户端. 第二类方法是 ...

ZCRM_AU_MAIL

ZCRM_AU_MAIL的更多相关文章

随机推荐

热门专题