Email 在ABAP程序中触发自定义事件

我在ABAP开发。 我需要在ABAP Z程序中触发自定义事件。 有人能告诉我如何在Z程序中调用自定义事件来发送电子邮件吗。

---

（请注意：这不是工作流，我需要在Z程序中完成此任务）。

您应该在事务SM62中创建自定义事件。在您的程序中，调用函数模块BP_EVENT_RAISE来引发自定义事件。“eventid”是您之前在SM62创建的事件的名称。

您的描述有点模糊，因此一般来说，如果您谈论要按下的按钮和要触发的以下操作，您可能需要：

• 为处于GUI状态的应用程序工具栏定义一个按钮，该按钮带有单击按钮时使用的自定义功能代码
• 将“屏幕元素类型”=OK的gloabl常规属性添加到dynpro屏幕的元素列表中
• 在PAI模块中检查此全局属性以获取自定义函数代码值，然后执行/调用sendEmail函数

---

使用以下代码示例，通过调用功能模块（SAPoffice:发送新文档），以ABAP z程序代码发送电子邮件：

---

请尝试更详细地描述需求和环境。在当前状态下，问题没有明确说明您想要做什么，尤其是您迄今为止尝试过什么。我需要生成报告的电子邮件，当用户单击“电子邮件报告”按钮时，我使用Z程序设计了该报告。@H.K不，仍然是一样的。。。

* Data Declarations
DATA: LT_MAILSUBJECT     TYPE SODOCCHGI1.
DATA: LT_MAILRECIPIENTS  TYPE STANDARD TABLE OF SOMLREC90 WITH HEADER LINE.
DATA: LT_MAILTXT         TYPE STANDARD TABLE OF SOLI      WITH HEADER LINE.
* Recipients
LT_MAILRECIPIENTS-REC_TYPE  = 'U'.
LT_MAILRECIPIENTS-RECEIVER = 'sheetal@gmail.com'.
APPEND LT_MAILRECIPIENTS .
CLEAR LT_MAILRECIPIENTS .
* Subject.
LT_MAILSUBJECT-OBJ_NAME = 'TEST'.
LT_MAILSUBJECT-OBJ_LANGU = SY-LANGU.
LT_MAILSUBJECT-OBJ_DESCR = 'Mail Subject'.
* Mail Contents
LT_MAILTXT = 'This is a test mail'.
APPEND LT_MAILTXT. CLEAR LT_MAILTXT.
* Send Mail
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
  EXPORTING
    DOCUMENT_DATA              = LT_MAILSUBJECT
  TABLES
    OBJECT_CONTENT             = LT_MAILTXT
    RECEIVERS                  = LT_MAILRECIPIENTS
  EXCEPTIONS
    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
    OTHERS                     = 8.
IF SY-SUBRC EQ 0.
  COMMIT WORK.
*   Push mail out from SAP outbox
  SUBMIT RSCONN01 WITH MODE = 'INT' AND RETURN.
ENDIF.