2020-09-10 02:59发布
点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)嗨 我正在使用'SO_NEW_... 显示全部
加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)
嗨
我正在使用'SO_NEW_DOCUMENT_SEND_API1'功能模块发送邮件。 该功能模块将当前用户名作为邮件发件人名称和发件人邮件ID。
有什么方法可以手动设置邮件发件人名称或发件人邮件ID。
谢谢,
Padmini
嗨。
首先填充接收方ID。
通过电子邮件发送所选员工的ID
如果不是P_RECV是初始的。
reclist-receiver = p_recv。
reclist-rec_type ='U'。
APPEND记录。
清除清单。
endif。
个人电子邮件ID
LOOP AT s_mail。
reclist-receiver = s_mail-low。
ENDLOOP。
按接收者排序清单。
从比较清单接收者中删除相邻的重复项。
然后使用您使用的FM。
数据:lv_pernr类型为pa0105-pernr。
数据:类似于soextreci1-receiver的v_send_address。 "发件人添加
数据:类似于reclist的lv_reclist在标题行出现0。
lv_reclist [] = reclist []。
获取当前用户的电子邮件{
从pa0105中选择pernr
进入lv_pernr
其中subty ='0001'
和usrid = sy-uname
和结束数据
和begda le sy-datum。
最终选择。
如果sy-subrc = 0。
从pa0105中选择usrid_long
放入v_send_address
其中,pernr = lv_pernr
和subty ='0010'
}获取当前用户的电子邮件
通话功能'SO_DOCUMENT_SEND_API1'
导出
document_data = doc_chng
put_in_outbox ='X'
发件人地址= v_send_address
sender_address_type ='SMTP'
表格
包装清单= objpack
object_header = objhead
contents_bin = objbin
contents_txt = obj_head
CONTENTS_HEX =
OBJECT_PARA =
OBJECT_PARB =
接收者=列入清单
例外情况
too_many_receivers = 1
document_not_sent = 2
document_type_not_exist = 3
operation_no_authorization = 4
parameter_error = 5
x_error = 6
enqueue_error = 7
其他= 8。
IF sy-subrc <> 0。
带有"发送电子邮件时出错"的消息i000(zz)(023)。
转到屏幕1000。
ELSE。
邮件s000(zz)带有"电子邮件已成功发送"(024)。
ENDIF。
reclist [] = lv_reclist []。
刷新:lv_Reclist。
猜猜这应该工作。
感谢和问候,
Maheshwari.V
最多设置5个标签!
嗨。
首先填充接收方ID。
通过电子邮件发送所选员工的ID
如果不是P_RECV是初始的。
reclist-receiver = p_recv。
reclist-rec_type ='U'。
APPEND记录。
清除清单。
endif。
个人电子邮件ID
LOOP AT s_mail。
reclist-receiver = s_mail-low。
reclist-rec_type ='U'。
APPEND记录。
清除清单。
ENDLOOP。
按接收者排序清单。
从比较清单接收者中删除相邻的重复项。
然后使用您使用的FM。
数据:lv_pernr类型为pa0105-pernr。
数据:类似于soextreci1-receiver的v_send_address。 "发件人添加
数据:类似于reclist的lv_reclist在标题行出现0。
lv_reclist [] = reclist []。
获取当前用户的电子邮件{
从pa0105中选择pernr
进入lv_pernr
其中subty ='0001'
和usrid = sy-uname
和结束数据
和begda le sy-datum。
最终选择。
如果sy-subrc = 0。
从pa0105中选择usrid_long
放入v_send_address
其中,pernr = lv_pernr
和subty ='0010'
和结束数据
和begda le sy-datum。
最终选择。
endif。
}获取当前用户的电子邮件
通话功能'SO_DOCUMENT_SEND_API1'
导出
document_data = doc_chng
put_in_outbox ='X'
发件人地址= v_send_address
sender_address_type ='SMTP'
表格
包装清单= objpack
object_header = objhead
contents_bin = objbin
contents_txt = obj_head
CONTENTS_HEX =
OBJECT_PARA =
OBJECT_PARB =
接收者=列入清单
例外情况
too_many_receivers = 1
document_not_sent = 2
document_type_not_exist = 3
operation_no_authorization = 4
parameter_error = 5
x_error = 6
enqueue_error = 7
其他= 8。
IF sy-subrc <> 0。
带有"发送电子邮件时出错"的消息i000(zz)(023)。
转到屏幕1000。
ELSE。
邮件s000(zz)带有"电子邮件已成功发送"(024)。
ENDIF。
reclist [] = lv_reclist []。
刷新:lv_Reclist。
猜猜这应该工作。
感谢和问候,
Maheshwari.V
一周热门 更多>