2020-08-24 19:26发布
点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)嗨, 我正在使用FM SO_... 显示全部
加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)
嗨,
我正在使用FM" SO_NEW_DOCUMENT_ATT_SEND_API1"发送电子邮件。 我必须使用发件人的电子邮件地址作为常规地址(而不是SAP登录用户的ID)。 怎么做。
请咨询。
谢谢。
Hai Sabari
检查以下代码
数据:类似于OBJPACK的SOPCKLSTI1出现在标题行2上。
数据:带有标题行的对象类似于SOLISTI1发生次数1。
数据:对象类似于SOLISTI1出现在标题行中的10。
数据:类似于SOLISTI1的对象在标题行中占10个。
数据:类似于带有标题行的SOMLRECI1占位5。
数据:类似于SODOCCHGI1的DOC_CHNG。
数据:TAB_LINES像SY-TABIX。
数据L_NUM(3)。
创建要发送的文档
文件名
DOC_CHNG-OBJ_NAME ='SENDFILE'。
邮件主题
DOC_CHNG-OBJ_DESCR ='已发送邮件'。
邮件内容
OBJTXT ='对象文本'。
附加对象。
描述表对象行TAB_LINES。
读取表对象索引TAB_LINES。
DOC_CHNG-DOC_SIZE =(TAB_LINES-1)* 255 + STRLEN(OBJTXT)。
创建压缩文档的条目
清除OBJPACK-TRANSF_BIN。
OBJPACK-HEAD_START = 1。
OBJPACK-HEAD_NUM = 0。
OBJPACK-BODY_START = 1。
OBJPACK-BODY_NUM = TAB_LINES。
OBJPACK-DOC_TYPE ='RAW'。
追加对象。
创建文档附件
遍历ITAB_DATA。
CONCATENATE ITAB_DATA-PRODUCTOR
ITAB_DATA-VBELN
ITAB_DATA-POSNR
将ITAB_DATA-MATNR放入OBJBIN。
ENDLOOP。
OBJHEAD ='ORDERS'。
追加目标对象。
创建压缩附件的条目
OBJPACK-TRANSF_BIN ='X'。
OBJPACK-HEAD_NUM = 1。
OBJPACK-DOC_TYPE ='TXT'。
OBJPACK-OBJ_NAME ='WEBSITE'。
OBJPACK-OBJ_DESCR ='ORDERS.TXT'。
OBJPACK-DOC_SIZE = TAB_LINES * 255。
完成收件人列表
目标配方师
清除记录列表。
RECLIST-RECEIVER = 'test@here.com '。
RECLIST-EXPRESS ='X'。
RECLIST-REC_TYPE ='U'。
追加记录列表。
复制配方
RECLIST-RECEIVER = 'secondtest@here.com '。
RECLIST-COPY ='X'。
发送文档
通话功能'SO_NEW_DOCUMENT_ATT_SEND_API1'
导出
DOCUMENT_DATA = DOC_CHNG
表格
PACKING_LIST = OBJPACK
OBJECT_HEADER = OBJHEAD
CONTENTS_BIN = OBJBIN
CONTENTS_TXT = OBJTXT
RECEIVERS = RECLIST
例外情况
TOO_MANY_RECEIVERS = 1
DOCUMENT_NOT_SENT = 2
OPERATION_NO_AUTHORIZATION = 4
其他= 99。
感谢与问候
Sreenivasulu P
最多设置5个标签!
Hai Sabari
检查以下代码
数据:类似于OBJPACK的SOPCKLSTI1出现在标题行2上。
数据:带有标题行的对象类似于SOLISTI1发生次数1。
数据:对象类似于SOLISTI1出现在标题行中的10。
数据:类似于SOLISTI1的对象在标题行中占10个。
数据:类似于带有标题行的SOMLRECI1占位5。
数据:类似于SODOCCHGI1的DOC_CHNG。
数据:TAB_LINES像SY-TABIX。
数据L_NUM(3)。
创建要发送的文档
文件名
DOC_CHNG-OBJ_NAME ='SENDFILE'。
邮件主题
DOC_CHNG-OBJ_DESCR ='已发送邮件'。
邮件内容
OBJTXT ='对象文本'。
附加对象。
描述表对象行TAB_LINES。
读取表对象索引TAB_LINES。
DOC_CHNG-DOC_SIZE =(TAB_LINES-1)* 255 + STRLEN(OBJTXT)。
创建压缩文档的条目
清除OBJPACK-TRANSF_BIN。
OBJPACK-HEAD_START = 1。
OBJPACK-HEAD_NUM = 0。
OBJPACK-BODY_START = 1。
OBJPACK-BODY_NUM = TAB_LINES。
OBJPACK-DOC_TYPE ='RAW'。
追加对象。
创建文档附件
遍历ITAB_DATA。
CONCATENATE ITAB_DATA-PRODUCTOR
ITAB_DATA-VBELN
ITAB_DATA-POSNR
将ITAB_DATA-MATNR放入OBJBIN。
追加对象。
ENDLOOP。
描述表对象行TAB_LINES。
OBJHEAD ='ORDERS'。
追加目标对象。
创建压缩附件的条目
OBJPACK-TRANSF_BIN ='X'。
OBJPACK-HEAD_START = 1。
OBJPACK-HEAD_NUM = 1。
OBJPACK-BODY_START = 1。
OBJPACK-BODY_NUM = TAB_LINES。
OBJPACK-DOC_TYPE ='TXT'。
OBJPACK-OBJ_NAME ='WEBSITE'。
OBJPACK-OBJ_DESCR ='ORDERS.TXT'。
OBJPACK-DOC_SIZE = TAB_LINES * 255。
追加对象。
完成收件人列表
目标配方师
清除记录列表。
RECLIST-RECEIVER = 'test@here.com '。
RECLIST-EXPRESS ='X'。
RECLIST-REC_TYPE ='U'。
追加记录列表。
复制配方
清除记录列表。
RECLIST-RECEIVER = 'secondtest@here.com '。
RECLIST-EXPRESS ='X'。
RECLIST-REC_TYPE ='U'。
RECLIST-COPY ='X'。
追加记录列表。
发送文档
通话功能'SO_NEW_DOCUMENT_ATT_SEND_API1'
导出
DOCUMENT_DATA = DOC_CHNG
表格
PACKING_LIST = OBJPACK
OBJECT_HEADER = OBJHEAD
CONTENTS_BIN = OBJBIN
CONTENTS_TXT = OBJTXT
RECEIVERS = RECLIST
例外情况
TOO_MANY_RECEIVERS = 1
DOCUMENT_NOT_SENT = 2
OPERATION_NO_AUTHORIZATION = 4
其他= 99。
感谢与问候
Sreenivasulu P
一周热门 更多>