sap mail express
来源:互联网 发布:python 性能测试框架 编辑:程序博客网 时间:2024/05/22 14:33
REPORT YVENKATESH_SEND_EXPRESS_MAIL . |
|
*---------------------------------------------------------------------* |
* Internal Tables * |
*---------------------------------------------------------------------* |
* For Sending the express mail |
DATA: ITAB_OBJHEAD LIKE SOLI OCCURS 0 WITH HEADER LINE, |
ITAB_OBJCONT LIKE SOLI OCCURS 0 WITH HEADER LINE, |
ITAB_OBJPARA LIKE SELC OCCURS 0 WITH HEADER LINE, |
ITAB_OBJPARB LIKE SOOP1 OCCURS 0 WITH HEADER LINE, |
ITAB_RECEIVERS LIKE SOOS1 OCCURS 0 WITH HEADER LINE. |
|
*---------------------------------------------------------------------* |
* Work Areas * |
*---------------------------------------------------------------------* |
* For Sending the express mail |
DATA: W_OBJECT_HD_CHANGE LIKE SOOD1. |
|
* counters |
DATA: W_OK_COUNT(10) TYPE N. |
DATA: W_ERR_COUNT(10) TYPE N. |
DATA: W_TOT_COUNT(10) TYPE N. |
|
*---------------------------------------------------------------------* |
* start-of-selection * |
*---------------------------------------------------------------------* |
START-OF-SELECTION. |
|
W_OK_COUNT = 200. |
W_ERR_COUNT = 300. |
W_TOT_COUNT = 500. |
|
*---------------------------------------------------------------------* |
* End-of-selection * |
*---------------------------------------------------------------------* |
END-OF-SELECTION. |
|
* Initialize the fields |
CLEAR: W_OBJECT_HD_CHANGE. |
CLEAR: ITAB_OBJCONT, ITAB_OBJHEAD, ITAB_OBJPARA, |
ITAB_OBJPARB, ITAB_RECEIVERS. |
REFRESH: ITAB_OBJCONT, ITAB_OBJHEAD, ITAB_OBJPARA, |
ITAB_OBJPARB, ITAB_RECEIVERS. |
|
* Fill the message text |
CONCATENATE 'Number of records processed:' W_TOT_COUNT |
INTO ITAB_OBJCONT-LINE SEPARATED BY SPACE. |
APPEND ITAB_OBJCONT. |
|
CONCATENATE 'Number of records processed Correctly:' W_OK_COUNT |
INTO ITAB_OBJCONT-LINE SEPARATED BY SPACE. |
APPEND ITAB_OBJCONT. |
|
CONCATENATE 'Number of records Errored Out:' W_ERR_COUNT |
INTO ITAB_OBJCONT-LINE SEPARATED BY SPACE. |
APPEND ITAB_OBJCONT. |
|
* Fill w_object_hd_change structure |
W_OBJECT_HD_CHANGE-OBJLA = SY-LANGU. |
W_OBJECT_HD_CHANGE-OBJNAM = SY-REPID. |
W_OBJECT_HD_CHANGE-OBJDES = 'Job ABC results'. |
W_OBJECT_HD_CHANGE-OBJSNS = 'F'. |
W_OBJECT_HD_CHANGE-VMTYP = 'T'. |
W_OBJECT_HD_CHANGE-SKIPS = 'X'. |
W_OBJECT_HD_CHANGE-ACNAM = 'SP01'. "Transaction to execute Special-Code |
W_OBJECT_HD_CHANGE-OBJCP = 'X'. |
|
* Specify the receivers |
ITAB_RECEIVERS-RCDAT = SY-DATUM. |
ITAB_RECEIVERS-RCTIM = SY-UZEIT. |
ITAB_RECEIVERS-RECNAM = SY-UNAME. "Send to UserId" |
ITAB_RECEIVERS-RTUNAM = SY-UNAME. |
ITAB_RECEIVERS-SNDEX = 'X'. "Express mail message. |
APPEND ITAB_RECEIVERS. |
|
* Specify the spool info. "Special-Code |
ITAB_OBJPARA-NAME = 'SPI'. "Special-Code |
ITAB_OBJPARA-LOW = SY-SPONO. "Special-Code |
APPEND ITAB_OBJPARA. "Special-Code |
|
CALL FUNCTION 'SO_OBJECT_SEND' |
EXPORTING |
OBJECT_HD_CHANGE = W_OBJECT_HD_CHANGE |
OBJECT_TYPE = 'RAW' |
OWNER = SY-UNAME |
TABLES |
OBJCONT = ITAB_OBJCONT |
OBJHEAD = ITAB_OBJHEAD |
OBJPARA = ITAB_OBJPARA |
OBJPARB = ITAB_OBJPARB |
RECEIVERS = ITAB_RECEIVERS |
EXCEPTIONS |
OTHERS = 01. |
- sap mail express
- Sending Emails and SAP Mail
- Sending Emails and SAP Mail
- Windows Mail(Outlook Express)添加图片签名
- SAP中发外部Mail的方式
- SAP发送的mail中加载图片
- using sap businessobjects predictive analytics with sap hana express edition
- Microsoft Windows Outlook Express and Windows Mail Integer Overflow
- 將 Outlook Express 中的郵件匯入到 Windows Live Mail?
- SAP HANA Express Edition (HXE)-二进制安装使用步骤
- SAP HANA Express Edition (HXE)-虚拟机模板安装使用步骤
- ASP.NET存储过程自定义分页详解
- HP-UX上一步步配置NTP
- linux乱码的解决方法
- Hadoop 本地源码开发环境搭建
- LVM操作在HP-UX和AIX上的区别
- sap mail express
- VMware如何装VMware-Tools
- 两个窗口之间的传值--传单个值
- Axis提供的两种服务发布方式
- 硬盘组成与分割的复习
- Java操作XML文件 dom 篇
- Use "dd" to create different size files 1B,1K,10K,100K,1M,10M,100M,1G etc
- C++之虚函数小解
- 学习转:完善压力测试 避免系统崩溃恶果