如何发邮箱给别人文件：邮箱如何发送pdf文件

1、创建smartforms事务代码smartforms创建一个表单ZTEST0012、打印并邮件发送表格将

 

1、创建smartforms事务代码smartforms创建一个表单ZTEST0012、打印并邮件发送表格将表单转换成PDF并添加到邮件的附件中发送给用户"-----------------------------------------@斌将军--------------------------------------------

"打印参数DATA:LV_FMNAME TYPE RS38L_FNAM,LS_CTRLOPTYPE SSFCTRLOP,LS_COMPOPTYPE SSFCOMPOP,LS_RETURNTYPE SSFCRESCL,

LS_INFOTYPE SSFCRESCL,LS_OPTIONSTYPE SSFCRESOP."附件参数DATA:LT_OTF TYPE ITCOO OCCURS 0 WITH HEADER LINE,

LT_TLINETYPE TLINE OCCURS 0 WITH HEADER LINE,LT_RECORDLIKE SOLISTI1 OCCURS 0 WITH HEADER LINE."邮件参数DATA

:LV_SIZE TYPE I, "邮件附件大小LV_LINES_TXTTYPE I, "邮件文本行数LV_LINES_BINTYPE I, "邮件附件行数LV_BENFILETYPE XSTRING,

LV_OBJECTTYPE CHAR50, "邮件主题LV_PDFNAMETYPE CHAR50,GT_OBJPACKLIKE SOPCKLSTI1 OCCURS 0 WITH HEADER LINE, "邮件内容 正文+附件

GT_OBJTXTLIKE SOLISTI1 OCCURS 0 WITH HEADER LINE, "正文内容GT_OBJBINLIKE SOLISTI1 OCCURS 0 WITH HEADER LINE, "附件内容

GT_RECLISTLIKE SOMLRECI1 OCCURS 0 WITH HEADER LINE, "收件人LS_DOC_CHNGTYPE SODOCCHGI1. "邮件属性"打印控制LS_CTRLOP-NO_OPEN

= X.LS_CTRLOP-NO_CLOSE = X.LS_CTRLOP-GETOTF = X.LS_CTRLOP-LANGU = 1.LS_CTRLOP-NO_DIALOG = X.LS_COMPOP-TDNOPREV

= X.CALLFUNCTION SSF_FUNCTION_MODULE_NAMEEXPORTINGFORMNAME = ZTEST001IMPORTINGFM_NAME =

LV_FMNAMEEXCEPTIONSNO_FORM = 1NO_FUNCTION_MODULE = 2OTHERS = 3.IFSY-SUBRC <> 0.

MESSAGEID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNOWITHSY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.CALLFUNCTION SSF_OPEN

EXPORTINGOUTPUT_OPTIONS = LS_COMPOPCONTROL_PARAMETERS = LS_CTRLOPUSER_SETTINGS = XIMPORTINGJOB_OUTPUT_OPTIONS

= LS_OPTIONSEXCEPTIONSFORMATTING_ERROR = 1INTERNAL_ERROR = 2SEND_ERROR = 3USER_CANCELED

= 4OTHERS = 5.IFSY-SUBRC <> 0.MESSAGEID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNOWITHSY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.CALLFUNCTION LV_FMNAMEEXPORTINGOUTPUT_OPTIONS = LS_COMPOPCONTROL_PARAMETERS = LS_CTRLOPUSER_SETTINGS

= IMPORTINGJOB_OUTPUT_INFO = LS_RETURNEXCEPTIONSFORMATTING_ERROR = 1INTERNAL_ERROR = 2

SEND_ERROR = 3USER_CANCELED = 4OTHERS = 5.IFSY-SUBRC <> 0.MESSAGEID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITHSY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ELSE.ENDIF.CALLFUNCTION SSF_CLOSEIMPORTINGJOB_OUTPUT_INFO =

LS_INFOEXCEPTIONSFORMATTING_ERROR = 1INTERNAL_ERROR = 2SEND_ERROR = 3OTHERS = 4.IFSY-SUBRC <> 0.

MESSAGEID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNOWITHSY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ELSE.APPENDLINES OF LS_INFO-OTFDATA TO LT_OTF.

ENDIF.CALLFUNCTION CONVERT_OTFEXPORTINGFORMAT = PDFPDF_USERNAME = TIANCZIMPORTING

BIN_FILESIZE = LV_SIZEBIN_FILE = LV_BENFILETABLESOTF = LT_OTF

LINES = LT_TLINEEXCEPTIONSERR_MAX_LINEWIDTH = 1ERR_FORMAT = 2ERR_CONV_NOT_POSSIBLE

= 3ERR_BAD_OTF = 4OTHERS = 5.IFSY-SUBRC <> 0.MESSAGEID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO

WITHSY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.IFLV_BENFILE IS NOT INITIAL.CALLFUNCTION SCMS_XSTRING_TO_BINARY

EXPORTINGBUFFER = LV_BENFILEIMPORTINGOUTPUT_LENGTH = LV_SIZETABLESBINARY_TAB = LT_RECORD.ENDIF.

REFRESH:GT_RECLIST,GT_OBJTXT,GT_OBJBIN,GT_OBJPACK.CLEAR: LS_DOC_CHNG."将转换后的文件添加到邮件附件APPENDLINES OF LT_RECORD TO GT_OBJBIN.

"添加邮件正文GT_OBJTXT = .APPENDGT_OBJTXT.GT_OBJTXT = 邮件测试，包含一个PDF附件.APPENDGT_OBJTXT."邮件正文行数LV_LINES_TXT =

LINES( GT_OBJTXT ).LV_OBJECT = 邮件测试.LV_PDFNAME = SM转换的PDF文件.pdf.LS_DOC_CHNG-OBJ_LANGU = SY-LANGU.LS_DOC_CHNG-OBJ_NAME

= Email.LS_DOC_CHNG-EXPIRY_DAT = SY-DATUM + 10.LS_DOC_CHNG-OBJ_DESCR = LV_OBJECT. "邮件主题LS_DOC_CHNG-SENSITIVTY

= F.LS_DOC_CHNG-DOC_SIZE = LV_LINES_TXT * 255 + LV_SIZE.LS_DOC_CHNG-PRIORITY = 1.CLEARGT_OBJPACK-TRANSF_BIN.

GT_OBJPACK-HEAD_START = 1.GT_OBJPACK-HEAD_NUM = 0.GT_OBJPACK-BODY_START = 1.GT_OBJPACK-BODY_NUM = LV_LINES_TXT.

GT_OBJPACK-DOC_TYPE = RAW.APPENDGT_OBJPACK.CLEAR:LV_LINES_BIN.GT_OBJPACK-TRANSF_BIN = X.GT_OBJPACK-HEAD_START

= 1.GT_OBJPACK-HEAD_NUM = 1.GT_OBJPACK-BODY_START = 1.LV_LINES_BIN = LINES( LT_RECORD ).GT_OBJPACK-DOC_SIZE

= LV_SIZE .GT_OBJPACK-BODY_NUM = LV_LINES_BIN.GT_OBJPACK-DOC_TYPE = PDF.GT_OBJPACK-OBJ_NAME = PO.GT_OBJPACK-OBJ_DESCR

= LV_PDFNAME.APPENDGT_OBJPACK.GT_RECLIST-RECEIVER = XXXXX@163.com."收件人邮箱GT_RECLIST-REC_TYPE = U.APPEND

GT_RECLIST.CALLFUNCTION SO_NEW_DOCUMENT_ATT_SEND_API1EXPORTINGDOCUMENT_DATA = LS_DOC_CHNG " 邮件属性

PUT_IN_OUTBOX = COMMIT_WORK = XTABLESPACKING_LIST = GT_OBJPACK " 邮件内容

CONTENTS_BIN = GT_OBJBIN " 附件内容（二进制）CONTENTS_TXT = GT_OBJTXT " 邮件内容（直接填入）

RECEIVERS = GT_RECLIST " 收件箱地址EXCEPTIONSTOO_MANY_RECEIVERS = 1DOCUMENT_NOT_SENT

= 2DOCUMENT_TYPE_NOT_EXIST = 3OPERATION_NO_AUTHORIZATION = 4PARAMETER_ERROR =

5X_ERROR = 6ENQUEUE_ERROR = 7OTHERS = 8.IFSY-SUBRC = 0.

MESSAGE发送成功！ TYPE S.WAITUP TO 1 SECONDS.SUBMITRSCONN01 WITH MODE = INTWITHOUTPUT = ANDRETURN.ELSE.MESSAGE

发送失败！ TYPE S.ENDIF."-----------------------------------------@斌将军--------------------------------------------