abap,oo发送邮件

如何使用VBA实现自动化邮件发送自动化邮件发送是一项广泛应用于企业和个人工作中的任务。

VBA （Visual Basic for Applications）是一种用于自定义Microsoft Office应用程序的编程语言，它可以帮助我们实现自动化邮件发送的功能。

本文将介绍如何使用VBA编写自动化邮件发送的代码，并实现发送给多个收件人、附件添加等功能。

首先，我们需要打开Microsoft Outlook应用程序，并创建一个新的邮件。

通过以下VBA代码实现：```VBASub SendMail()Dim OutlookApp As Outlook.ApplicationDim MailItem As Outlook.MailItem'启动Outlook应用程序Set OutlookApp = New Outlook.Application'创建新邮件Set MailItem = OutlookApp.CreateItem(olMailItem)With MailItem'设置收件人.To = "收件人邮箱地址"'设置抄送.CC = "抄送人邮箱地址"'设置密送.BCC = "密送人邮箱地址"'设置主题.Subject = "邮件主题"'设置邮件内容.Body = "邮件内容"'添加附件.Attachments.Add "附件路径" '发送邮件.SendEnd With'释放对象Set OutlookApp = NothingSet MailItem = Nothing'显示提示信息MsgBox "邮件发送成功！"End Sub```在上述代码中，我们首先创建了一个Outlook应用程序对象`OutlookApp`和一个邮件对象`MailItem`。

*&---------------------------------------------------------------------**& Report Z7258_MAIL_EXCEL * *& * *&---------------------------------------------------------------------**& Example of sending external email via SAPCONNECT **& * *&---------------------------------------------------------------------*REPORT z7258_mail_excel .TABLES: ekko.PARAMETERS: p_email TYPE somlreci1-receiverDEFAULT 'sunlu@'.TYPES: BEGIN OF t_ekpo,ebeln TYPE ekpo-ebeln,ebelp TYPE ekpo-ebelp,aedat TYPE ekpo-aedat,matnr TYPE ekpo-matnr,END OF t_ekpo.DATA: it_ekpo TYPE STANDARD TABLE OF t_ekpo INITIAL SIZE 0,wa_ekpo TYPE t_ekpo.TYPES: BEGIN OF t_charekpo,ebeln(10) TYPE c,ebelp(5) TYPE c,aedat(8) TYPE c,matnr(18) TYPE c,END OF t_charekpo.DATA: wa_charekpo TYPE t_charekpo.DATA: it_message TYPE STANDARD TABLE OF solisti1 INITIAL SIZE 0WITH HEADER LINE.DATA: it_attach TYPE STANDARD TABLE OF solisti1 INITIAL SIZE 0WITH HEADER LINE.DATA: t_packing_list LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,t_contents LIKE solisti1 OCCURS 0 WITH HEADER LINE,t_receivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE,t_attachment LIKE solisti1 OCCURS 0 WITH HEADER LINE,t_object_header LIKE solisti1 OCCURS 0 WITH HEADER LINE,w_cnt TYPE i,w_sent_all(1) TYPE c,w_doc_data LIKE sodocchgi1,gd_error TYPE sy-subrc,gd_reciever TYPE sy-subrc.************************************************************************ *START_OF_SELECTIONSTART-OF-SELECTION.* Retrieve sample data from table ekpoPERFORM data_retrieval.* Populate table with detaisl to be entered into .xls filePERFORM build_xls_data_table.************************************************************************ *END-OF-SELECTIONEND-OF-SELECTION.* Populate message body textPERFORM populate_email_message_body.* Send file by email as .xls speadsheetPERFORM send_file_as_email_attachmentTABLES it_messageit_attachUSING p_email'Example .xls documnet attachment''CSV''12345.CSV''1'''''CHANGING gd_errorgd_reciever.* Instructs mail send program for SAPCONNECT to send email(rsconn01) PERFORM initiate_mail_execute_program.*&---------------------------------------------------------------------**& Form DATA_RETRIEVAL*&---------------------------------------------------------------------** Retrieve data form EKPO table and populate itab it_ekko*----------------------------------------------------------------------*FORM data_retrieval.SELECT ebeln ebelp aedat matnrUP TO 10 ROWSFROM ekpoINTO TABLE it_ekpo.ENDFORM. " DATA_RETRIEVAL*&---------------------------------------------------------------------**& Form BUILD_XLS_DATA_TABLE*&---------------------------------------------------------------------** Build data table for .xls document*----------------------------------------------------------------------*FORM build_xls_data_table.* CONSTANTS: con_cret TYPE x VALUE '0D', "OK for non Unicode* con_tab TYPE x VALUE '09'. "OK for non Unicode*If you have Unicode check active in program attributes thnen you will *need to declare constants as follows*class cl_abap_char_utilities definition load.CONSTANTS:con_tab TYPE c VALUE cl_abap_char_utilities=>horizontal_tab,con_cret TYPE c VALUE cl_abap_char_utilities=>cr_lf.* CONCATENATE 'EBELN' 'EBELP' 'AEDAT' 'MATNR'* INTO it_attach SEPARATED BY con_tab. CONCATENATE 'EBELN' 'EBELP' 'AEDAT' 'MATNR'INTO it_attach SEPARATED BY ','.CONCATENATE con_cret it_attach INTO it_attach.APPEND it_attach.LOOP AT it_ekpo INTO wa_charekpo.* CONCATENATE wa_charekpo-ebeln wa_charekpo-ebelp* wa_charekpo-aedat wa_charekpo-matnr* INTO it_attach SEPARATED BY con_tab.CONCATENATE wa_charekpo-ebeln wa_charekpo-ebelpwa_charekpo-aedat wa_charekpo-matnrINTO it_attach SEPARATED BY ','.CONCATENATE con_cret it_attach INTO it_attach.APPEND it_attach.ENDLOOP.ENDFORM. " BUILD_XLS_DA TA_TABLE*&---------------------------------------------------------------------**& Form SEND_FILE_AS_EMAIL_ATTACHMENT*&---------------------------------------------------------------------** Send email*----------------------------------------------------------------------*FORM send_file_as_email_attachment TABLES pit_messagepit_attachUSING p_emailp_mtitlep_formatp_filenamep_attdescriptionp_sender_addressp_sender_addres_typeCHANGING p_errorp_reciever.DATA: ld_error TYPE sy-subrc,ld_reciever TYPE sy-subrc,ld_mtitle LIKE sodocchgi1-obj_descr,ld_email LIKE somlreci1-receiver,ld_format TYPE so_obj_tp ,ld_attdescription TYPE so_obj_nam ,ld_attfilename TYPE so_obj_des ,ld_sender_address LIKE soextreci1-receiver,ld_sender_address_type LIKE soextreci1-adr_typ,ld_receiver LIKE sy-subrc.ld_email = p_email.ld_mtitle = p_mtitle.ld_format = p_format.ld_attdescription = p_attdescription.ld_attfilename = p_filename.ld_sender_address = p_sender_address.ld_sender_address_type = p_sender_addres_type.* Fill the document data.w_doc_data-doc_size = 1.* Populate the subject/generic message attributesw_doc_data-obj_langu = sy-langu.w_doc_data-obj_name = 'SAPRPT'.w_doc_data-obj_descr = ld_mtitle .w_doc_data-sensitivty = 'F'.* Fill the document data and get size of attachmentCLEAR w_doc_data.READ TABLE it_attach INDEX w_cnt.w_doc_data-doc_size =( w_cnt - 1 ) * 255 + STRLEN( it_attach ).w_doc_data-obj_langu = sy-langu.w_doc_data-obj_name = 'SAPRPT'.w_doc_data-obj_descr = ld_mtitle.w_doc_data-sensitivty = 'F'.CLEAR t_attachment.REFRESH t_attachment.t_attachment[] = pit_attach[].* Describe the body of the messageCLEAR t_packing_list.REFRESH t_packing_list.t_packing_list-transf_bin = space.t_packing_list-head_start = 1.t_packing_list-head_num = 0.t_packing_list-body_start = 1.DESCRIBE TABLE it_message LINES t_packing_list-body_num. t_packing_list-doc_type = 'RAW'.APPEND t_packing_list.* Create attachment notificationt_packing_list-transf_bin = 'X'.t_packing_list-head_start = 1.t_packing_list-head_num = 1.t_packing_list-body_start = 1.DESCRIBE TABLE t_attachment LINES t_packing_list-body_num. t_packing_list-doc_type = ld_format.t_packing_list-obj_descr = ld_attdescription.t_packing_list-obj_name = ld_attfilename.t_packing_list-doc_size = t_packing_list-body_num * 255. APPEND t_packing_list.* Add the recipients email addressCLEAR t_receivers.REFRESH t_receivers.t_receivers-receiver = ld_email.t_receivers-rec_type = 'U'.t_receivers-com_type = 'INT'.t_receivers-notif_del = 'X'.t_receivers-notif_ndel = 'X'.APPEND t_receivers.CALL FUNCTION 'SO_DOCUMENT_SEND_API1'EXPORTINGdocument_data = w_doc_dataput_in_outbox = 'X'sender_address = ld_sender_addresssender_address_type = ld_sender_address_typecommit_work = 'X'IMPORTINGsent_to_all = w_sent_allTABLESpacking_list = t_packing_listcontents_bin = t_attachmentcontents_txt = it_messagereceivers = t_receiversEXCEPTIONStoo_many_receivers = 1document_not_sent = 2document_type_not_exist = 3operation_no_authorization = 4parameter_error = 5x_error = 6enqueue_error = 7OTHERS = 8.* Populate zerror return codeld_error = sy-subrc.* Populate zreceiver return codeLOOP AT t_receivers.ld_receiver = t_receivers-retrn_code.ENDLOOP.ENDFORM. "send_file_as_email_attachment*&---------------------------------------------------------------------**& Form INITIATE_MAIL_EXECUTE_PROGRAM*&---------------------------------------------------------------------** Instructs mail send program for SAPCONNECT to send email. *----------------------------------------------------------------------*FORM initiate_mail_execute_program.WAIT UP TO 2 SECONDS.SUBMIT rsconn01 WITH mode = 'INT'WITH output = 'X'AND RETURN.ENDFORM. " INITIA TE_MAIL_EXECUTE_PROGRAM*&---------------------------------------------------------------------**& Form POPULATE_EMAIL_MESSAGE_BODY*&---------------------------------------------------------------------** Populate message body text*----------------------------------------------------------------------*FORM populate_email_message_body.REFRESH it_message.it_message = 'Please find attached a list test ekpo records'.APPEND it_message.ENDFORM. "populate_email_message_body。

ABAP OO的八大理由几年前SAP BASIS 4.6为ABAP扩展了OO功能，这是很多传统的ABAP程序员陷入困境。

首先对于ABAP程序员来说它们终于可以通过OO这种开发方法得潜在价值来提高开发效率和所开发程序的可维护性了。

然而一直以来习惯于面向过程编程的ABAPER迅速的转向OO模式也不是那么容易，很多人还是坚持使用传统的面向过程的开发模式，他们觉得不用OO也可以得到他们想要的。

这篇文章的主要目的便是让你明白OO能给你带来什么以及如何转型为OO模式。

很多关于ABAP OO方面的文章要么过于抽象，要么举的例子过于简单对于实际应用无关痛痒。

本篇文章力图通过简单而又切合实际的例子通过面向过程和面向对象两种模式的比较来说明OO的优点。

1.首先ABAP OO具有更高层次的数据封装性，从而增强了程序的可维护性和稳定性。

在面向过程的模式里，一个程序的全局变量区包含着许多不相干的变量，这些变量在一个区域里交织在一起，这样的话这个程序的某个功能对程序状态的改变并不为程序中另外一个功能所知。

为保持整个程序的稳定性需要大量的约束和维护成本。

而对于OO模式，状态是保存在对象上的。

对象可以把内部和外部数据和方法分隔开，以保证功能（OO中的方法）只能改变与它相关的数据，对象的属性是不会被改变的，从而保证了其在应用程序中的稳定性。

2.ABAP OO可以实现一个类的多个实例。

（对象是由数据以及操作数据的方法组成的。

），每一个对象都有自己在类中定义的属性值，并且可以通过本身的方法来改变本身的状态。

这就意味着开发者无需为每个对象建立数据和方法之间的联系也无需手工管理每个对象的生命周期。

在面向过程的方法中没有多实例的概念，数据和功能是相互分离的。

你使用的是无状态的功能，并且每次都需要通过传递参数来初始化它，并且手工将其占有的内存清除。

3.ABAP OBJECT通过继承进一步增强了程序代码的可重用性，这正是面向对象方法的一个重要方面。

VBA实现Outlook的自动化邮件发送自动化邮件发送是一种高效的方式，可以帮助我们在处理大量邮件时节省时间和精力。

通过使用VBA（Visual Basic for Applications），我们可以轻松地实现Outlook的自动化邮件发送功能。

本文将介绍如何使用VBA编写代码，以实现Outlook的自动化邮件发送。

首先，我们需要打开Visual Basic Editor（VBE），它是一个用于编写和编辑VBA代码的工具。

在Outlook中，可以通过按下“ALT + F11”来打开VBE。

在VBE中，我们需要创建一个新的模块来编写我们的VBA代码。

在VBE窗口的左侧面板上，展开“Microsoft Outlook Objects”节点，然后双击“本电脑”（或“该电脑”，具体名称取决于你的Outlook版本）。

在模块中，我们可以开始编写代码。

首先，我们需要声明所需的变量。

以下代码段是一个示例：```Dim objOutlook As Outlook.ApplicationDim objMail As Outlook.MailItem```接下来，我们可以使用以下代码来创建Outlook应用程序的实例：```Set objOutlook = New Outlook.Application```然后，我们需要创建邮件对象。

以下代码可以创建一个新的邮件项：```Set objMail = objOutlook.CreateItem(olMailItem)```现在，我们可以设置邮件的各种属性，例如收件人、主题、正文内容等。

以下是一些常见的属性设置示例：```With objMail.To="*******************".Subject = "自动化邮件发送".Body = "这是一封由VBA自动发送的邮件。

".Attachments.Add "C:\Documents\file.txt"'可以添加更多的附件End With```在设置好邮件的各项属性后，我们可以使用以下代码来发送邮件：```objMail.Send```至此，我们已经完成了使用VBA实现Outlook自动化邮件发送的代码编写。

ABAP OO技术之一（基本类结构）ABAP类有全局类和局部类之分，全局类由SE80进行定义，局部类可以在REPORT内部定义其它程序也可以通过引用对应的程序块来调用其局部类对于其它方式的程序块调用，产生的中间数据存在于被调用程序块中以下是局部类的基本结构~~REPORTZ_TST_RPT_T01.*----------------------------------------------------------------------**CLASS calculation DEFINITION*----------------------------------------------------------------------***----------------------------------------------------------------------*class calculation definition.public section.* 带参数方法methods: multiplication importing p1 type ip2 type i,add importing p1 type ip2 type i,* 不带参数方法write_end,write_static,get_end returning value(re) type i."返回值方法定义**** 定义构造函数***constructor importing p1 type i***p2 type i.private section.data: end type i,oth1 type i,oth2 type i.* 静态参成员class-data: static type i value 3.endclass."calculation DEFINITION*----------------------------------------------------------------------**CLASS calculation IMPLEMENTATION*----------------------------------------------------------------------***----------------------------------------------------------------------* class calculation implementation.* add方法实现method add.oth1 = p1.oth2 = p2.end = oth1 + oth2.endmethod."add* multiplication方法实现method multiplication.oth1 = p1.oth2 = p2.end = oth1 * oth2.endmethod."multiplication* write_end方法实现method write_end.write: /4 'The end is:',end.call method me->write_static."调用类内部方法endmethod."write_str* write_static方法实现method write_static.static = static * static.write: /4 'The constant value is:', ME->static."ME使用write: /4 'The constant value is:', calculation=>static. endmethod."write_constant* get_end方法实现method get_end.re = end.endmethod."get_end**** 构造函数实现***method constructor.***oth1 = p1.***oth2 = p2.***endmethod."constructorendclass."calculation IMPLEMENTATION******* 处理过程data: a type i value 2,b type i value 3,return type i.* 类对象被创建data: calculate1 type ref to calculation,calculate2 like calculate1.start-of-selection.* 类对象实例创建create object: calculate1,calculate2.**** 对于声明构造函数的对象创建***create object: calculate1 exporting p1 = 4 p2 = 5.* 对象calculate1被调用call method calculate1->addEXPORTINGp1 = ap2 = b.call method calculate1->multiplicationEXPORTINGp1 = ap2 = b.call method calculate1->write_end.call method calculate1->write_static.* 接收返回值方法call method calculate1->get_endRECEIVINGre = return.write: /6 'call method get_end:', return.* 对象calculate2被调用call method calculate2->write_static.* 对象删除clear: calculate1,calculate2.说明：1、类定义和使用的一般步骤1.1、定义类的声明和实现方法1.2、使用DATA语句中的TYPE REF TO选项参照类类型声明引用变量1.3、使用CREATE OBJECT语句创建对象1.4、通过“->”或“=>”运算符访问对象或组件2、注意事项2.1、静态成员在不用对象中共用2.2、参数的传递与接收2.3、ME调用时的运算符只能是“->”，对象调用方法时静态用“=>”，其它情况用“->”2.4、可以自己定义构造函数constructor，但不能自己定义析构函数以下是程序执行结果The end is:6The constant value is:9The constant value is:9The constant value is:81The constant value is:81call method get_end:6The constant value is:6,561The constant value is:6,561ABAP OO技术之二（继承）继承是面向对象重要特性，表现为子类拥有除父类PRIVATE SECTION以外的所有特性，从而实现向上的多态；抽象类和接口实现了向下的多态以下是实现继承的代码REPORT Z_TST_RPT_T01.*----------------------------------------------------------------------** CLASS calculation DEFINITION*----------------------------------------------------------------------***----------------------------------------------------------------------*class calculation definition.public section.* 带参数方法methods: add importing p1 type ip2 type i,* 不带参数方法write_end.protected section.data: end type i,oth1 type i,oth2 type i.endclass. "calculation DEFINITION*----------------------------------------------------------------------** CLASS calculation IMPLEMENTATION*----------------------------------------------------------------------***----------------------------------------------------------------------*class calculation implementation.* add方法实现method add.oth1 = p1.oth2 = p2.end = oth1 + oth2.endmethod. "add* write_end方法实现method write_end.write: /4 'The end is:',end.endmethod. "write_strendclass. "calculation IMPLEMENTATION*----------------------------------------------------------------------** CLASS add_sub DEFINITION*----------------------------------------------------------------------***----------------------------------------------------------------------*class add_sub definition inheriting from calculation.public section.methods: sub, add redefinition. "声明ADD方法将被得载private section.data: interal type i.endclass. "add_sub DEFINITION*----------------------------------------------------------------------** CLASS add_sub IMPLEMENTATION*----------------------------------------------------------------------***----------------------------------------------------------------------*class add_sub implementation.method sub.if oth1 > oth2.end = oth1 - oth2.else.end = oth2 - oth1.endif.endmethod. "sub* 重载ADD方法method add.* 调用父类方法call method super->addEXPORTINGp1 = 2p2 = 3.end = end + 10.endmethod. "addendclass. "add_sub IMPLEMENTATION******* 处理过程data: a type i value 2,b type i value 3,return type i.* 类对象被创建data: calculate1 type ref to calculation.data: add_sub_obj type ref to add_sub.start-of-selection.* 类对象实例创建create object: calculate1.create object: add_sub_obj.* 对象calculate1被调用call method calculate1->addEXPORTINGp1 = ap2 = b.call method calculate1->write_end.* 对象add_sub_obj被调用call method add_sub_obj->addEXPORTINGp1 = 4p2 = 5.call method add_sub_obj->write_end.call method add_sub_obj->sub.call method add_sub_obj->write_end. "调用父类方法* 对象删除clear: calculate1,add_sub_obj.说明：1、子类用关键字INHERITING FROM来标注所继承的父类2、子类实现中调用父类方法用SUPER关键字，父类成员可以直接使用3、被重载的方法调用形式有变化，虽然执行的是子类中方法，重载时加入关键字REDEFINITION4、子类对象可以直接调用父类的方法执行结果The end is: 5The end is: 15The end is: 1ABAP OO技术之三（接口）接口与抽象类一样可以实现自上而下的多态，接口在程序设计方法上有更高的层次，在我看来接口更有利于业务逻辑分析，类则更趋向于实现以下是接口代码REPORT Z_TST_RPT_T01.*----------------------------------------------------------------------** INTERFACE cal*----------------------------------------------------------------------***----------------------------------------------------------------------*interface cal.* 方法methods: add,sub,mul.endinterface. "cal DEFINITION*----------------------------------------------------------------------** CLASS calculation DEFINITION*----------------------------------------------------------------------***----------------------------------------------------------------------*class calculation definition.public section.interfaces cal. "接口方法methods: div,constructor importing p1 type i p2 type i,write_str.private section.data: end type i,oth1 type i,oth2 type i.endclass. "calculation DEFINITION *----------------------------------------------------------------------** CLASS calculation IMPLEMENTATION*----------------------------------------------------------------------***----------------------------------------------------------------------* class calculation implementation.method cal~add.end = oth1 + oth2.endmethod. "cal~addmethod cal~sub.if oth1 > oth2.end = oth1 - oth2.else.end = oth2 - oth1.endif.endmethod. "cal~submethod cal~mul.end = oth1 * oth2.endmethod. "cal~mulmethod div.if oth2 = 0.end = 0.else.end = oth1 / oth2.endif.endmethod. "div* 构造方法实现method constructor.oth1 = p1.oth2 = p2.endmethod. "constructor* 打印方法实现method write_str.write: /4 'The end value is:', end.endmethod. "write_strendclass. "calculation IMPLEMENTATIONdata: ccal type ref to calculation,ical type ref to cal. "接口对象定义start-of-selection.create object: ccal exporting p1 = 6 p2 = 2.call method ccal->div.call method ccal->write_str.ical = ccal. "接口引用到类对象call method ical->add.call method ccal->write_str.call method ical->mul.call method ccal->write_str.call method ical->sub. "与call method ccal->cal~sub. 等价call method ccal->write_str.说明：1、与类相似的使用步骤，声明——实现——对象定义——实例调用2、接口不需要创建实例对象，但它依赖于类实例对象的创建3、接口只能调用接口声明过的方法，类对象也不能直接调用接口方法执行结果The end value is: 3The end value is: 8The end value is: 12The end value is: 4ABAP OO技术之四（事件）事件用于一个类对象发布其状态的改变，其它对象可以捕获该方法并做发响应；在ABAP OBJECTS中，一个方法作为触发者触发事件，而程序中的另一个方法则作为处理者捕获该事件，处理方法在事件出现时被执行；触发事件的方法和对其进行的处理的方法不一定需要是同一个对象或隶属于同样的类以下是事件处理代码[来自《SAP程序设计》，略有改动]REPORT Z_TST_RPT_T01.*----------------------------------------------------------------------** CLASS vehicle DEFINITION*----------------------------------------------------------------------***----------------------------------------------------------------------* CLASS vehicle DEFINITION INHERITING FROM object. PUBLIC SECTION.* 事件声明EVENTS: too_fast,too_slow.METHODS: accelerate,show_speed.PROTECTED SECTION.DATA speed TYPE i.ENDCLASS. "vehicle DEFINITION*----------------------------------------------------------------------** CLASS vehicle IMPLEMENTATION*----------------------------------------------------------------------***----------------------------------------------------------------------* CLASS vehicle IMPLEMENTATION.METHOD accelerate.speed = speed + 1.IF speed > 5.* 触发事件RAISE EVENT too_fast.speed = 5.ENDIF.if speed < 3.* 触发事件raise event too_slow.endif.ENDMETHOD. "accelerateMETHOD show_speed.WRITE: / 'Speed:', speed.ENDMETHOD. "show_speedENDCLASS. "vehicle IMPLEMENTATION*----------------------------------------------------------------------** CLASS handler DEFINITION*----------------------------------------------------------------------***----------------------------------------------------------------------* CLASS handler DEFINITION.PUBLIC SECTION.METHODS: handle_excess FOR EVENT too_fast OF vehicle, handle_ex for event too_slow of vehicle. "事件对应的方法声明ENDCLASS. "handler DEFINITION*----------------------------------------------------------------------** CLASS handler IMPLEMENTATION*----------------------------------------------------------------------***----------------------------------------------------------------------*CLASS handler IMPLEMENTATION.METHOD handle_excess.WRITE: / 'Speed can not be too fast.'.ENDMETHOD. "handle_excessmethod handle_ex.write: /4 'The second handle to see.'.endmethod. "handle_exENDCLASS. "handler IMPLEMENTATION***** main program ******DATA: o_vehicle TYPE REF TO vehicle,o_handle TYPE REF TO handler.START-OF-SELECTION.CREATE OBJECT: o_vehicle, o_handle.* 注册处理事件SET HANDLER: o_handle->handle_excess FOR o_vehicle,o_handle->handle_ex for o_vehicle.DO 7 TIMES.CALL METHOD o_vehicle->accelerate.CALL METHOD o_vehicle->show_speed.ENDDO.说明：1、事件主要用于，不同对象之间的相互作用2、事件程序创建包括以下步骤:OBJ1中声明事件——OBJ1中触发事件——OBJ2中声明事件处理方法——OBJ2中实现事件处理方法——注册事件处理方法——OBJ1事件触发。

ABAP Message的用法一、什么是ABAP MessageABAP（Advanced Business Application Programming）是一种面向SAP系统的编程语言，用于开发SAP应用程序。

在ABAP中，ABAP Message是一种用于在程序中传递消息和错误信息的机制。

ABAP Message可以通过不同的方式生成和处理，为开发人员提供了一种有效的方式来管理程序中的消息和错误。

二、ABAP Message的生成方式ABAP Message可以通过以下几种方式生成：1. 使用消息类消息类是一种用于管理ABAP Message的对象。

开发人员可以在消息类中定义不同的消息编号、消息类型和消息文本。

通过调用消息类的方法，开发人员可以生成不同类型的ABAP Message。

2. 使用消息函数模块消息函数模块是一种预定义的ABAP函数模块，用于生成ABAP Message。

开发人员可以调用消息函数模块，并传递相应的参数来生成ABAP Message。

3. 使用系统消息ABAP系统中内置了一些预定义的ABAP Message，开发人员可以直接使用这些系统消息。

系统消息通常用于标准的系统错误或警告信息。

三、ABAP Message的类型ABAP Message可以分为以下几种类型：1. Error（E）Error类型的ABAP Message表示程序中的错误。

当程序执行遇到错误时，可以生成Error类型的ABAP Message，并将其显示给用户或其他程序进行处理。

2. Warning（W）Warning类型的ABAP Message表示程序中的警告信息。

当程序执行遇到一些不符合预期但不会导致程序中断的情况时，可以生成Warning类型的ABAP Message。

3. Information（I）Information类型的ABAP Message表示程序中的一般信息。

当程序需要向用户提供一些提示或说明时，可以生成Information类型的ABAP Message。

如何在VBA中进行邮件自动发送和接收邮件在现代社会中扮演着重要的角色，无论是个人还是企业，都需要及时高效地发送和接收邮件。

对于使用VBA编程语言的用户来说，通过编写代码实现自动发送和接收邮件可以提高工作效率。

本文将介绍如何在VBA中进行邮件的自动发送和接收。

第一部分：发送邮件在VBA中发送邮件需要使用Outlook应用程序的对象模型。

下面是一个简单的示例代码实现邮件的发送：```Sub SendEmail()Dim OutApp As ObjectDim OutMail As Object' 创建Outlook应用程序对象Set OutApp = CreateObject("Outlook.Application")' 创建邮件对象Set OutMail = OutApp.CreateItem(0) ' 设置邮件的基本属性With OutMail.To = "收件人邮箱地址".CC = "抄送邮箱地址".BCC = "密送邮箱地址".Subject = "邮件主题".Body = "邮件内容"' 添加附件.Attachments.Add "附件路径"' 发送邮件.SendEnd With' 释放对象Set OutMail = NothingSet OutApp = Nothing' 弹出提示框MsgBox "邮件已发送"End Sub```在发送邮件的代码中，我们首先创建了Outlook应用程序对象和邮件对象。

然后，设置邮件的基本属性，如收件人、抄送、密送、主题和内容。

如果需要发送附件，可以使用Attachments属性添加附件。

最后，调用Send方法发送邮件。

发送完成后，释放相关对象并弹出提示框。

abap 面向对象语法ABAP（Advanced Business Application Programming）是一种面向对象的编程语言，是SAP系统中最常用的编程语言之一。

ABAP面向对象（OO ABAP）是ABAP的一种编程范式，它基于面向对象的编程思想，在开发SAP应用程序时提供了更高的灵活性和可维护性。

ABAP面向对象语法包括类、对象、方法、接口和继承等基本概念，下面将逐一介绍。

首先是类（Class），类是对象的蓝图，它定义了对象的属性和行为。

在ABAP中，类由关键字“CLASS”定义，后面跟着类名和可选的继承关系。

类中定义了各种属性和方法，用于描述对象的特征和功能。

接下来是对象（Object），对象是类的实例化结果，它具有类所定义的属性和行为。

在ABAP中，可以使用关键字“CREATE OBJECT”来创建对象，并为对象的属性赋值。

通过对象，我们可以访问和操作类中定义的方法和属性。

方法（Method）是类中定义的一段可执行代码，用于实现类的行为。

在ABAP中，方法由关键字“METHODS”定义，后面跟着方法名和可选的参数列表。

通过调用方法，我们可以实现对对象的操作和控制。

接口（Interface）是一种规范，它定义了对象应该具有的方法和属性。

在ABAP中，接口由关键字“INTERFACE”定义，后面跟着接口名和可选的方法列表。

一个类可以实现一个或多个接口，从而继承接口中定义的方法和属性。

继承（Inheritance）是一种机制，它允许一个类继承另一个类的属性和行为。

在ABAP中，可以使用关键字“INHERITING FROM”来实现继承关系。

子类（派生类）可以继承父类（基类）的方法和属性，并可以在此基础上进行扩展和修改。

除了上述基本概念外，ABAP面向对象还提供了其他一些特性，如封装、多态和事件等。

封装（Encapsulation）是一种将数据和方法组合在一起的机制，用于保护数据的安全性和完整性。

使用VBA进行邮件发送在现代社会中，邮件已成为人们日常通信的重要方式之一。

无论是工作上还是个人生活中，邮件的使用频率都非常高。

在许多商业场景中，我们需要根据特定的条件自动发送邮件，这就需要使用VBA来编写邮件发送的代码。

VBA（Visual Basic for Applications）是一种可以用于Microsoft Office套件中各个应用程序的宏编程语言。

通过使用VBA，我们可以自动执行许多重复的任务，节省时间和劳动力。

下面我们将探讨如何使用VBA进行邮件发送。

首先，我们需要打开要发送邮件的应用程序，比如Microsoft Outlook。

在VBA中，可以使用`CreateObject`函数来创建一个Outlook应用程序对象。

以下是一个简单的代码示例：```vbaDim objOutlook As ObjectSet objOutlook = CreateObject("Outlook.Application")```接下来，我们需要创建一个邮件项，并设置相关的属性，比如发件人、收件人、主题和正文等。

以下是一个示例代码：```vbaDim objMail As ObjectSet objMail = objOutlook.CreateItem(0) ' 创建新邮件With objMail.Subject = "这是一封测试邮件" ' 设置主题.Body = "这是一封测试邮件的内容" ' 设置正文.To="*********************"'设置收件人邮箱地址.Send ' 发送邮件End With```上述代码中，我们使用了`.Subject`来设置邮件的主题，使用`.Body`来设置邮件的正文，使用`.To`来设置邮件的收件人。

最后，我们使用`.Send`方法来发送邮件。

在SAP中，ABAP是一种广泛使用的编程语言，用于开发和定制各种业务应用程序。

在日常工作中，我们经常会涉及到发送电流信箱的操作，而对于电流信箱位置区域的格式检查就显得至关重要。

在ABAP 中，有一些内置的函数可以帮助我们进行电流信箱格式的检查，其中就包括了“检查电流信箱位置区域格式”的功能模块。

在本文中，我将会从深度和广度的角度，结合个人观点和理解，探讨ABAP中的电流信箱格式检查函数，并为您介绍如何使用该功能模块。

1. 了解电流信箱格式检查的重要性在进行电流信箱位置区域的输入和存储时，很容易出现格式错误或者不规范的情况。

而这样的错误往往会导致发送邮件失败或者无法正常接收邮件。

及时进行电流信箱格式的检查就显得至关重要。

ABAP中提供的“检查电流信箱位置区域格式”功能模块，就是为了解决这一问题而设计的。

2. 使用检查电流信箱位置区域格式的函数在ABAP中，我们可以通过调用函数“EM本人L_CHECK”来对电流信箱位置区域进行格式检查。

该函数接收一个字符串类型的参数，即待检查的电流信箱位置区域。

在调用该函数后，系统会根据预定义的规则来判断输入的电流信箱位置区域是否符合标准格式。

如果符合，函数会返回TRUE；如果不符合，则返回FALSE。

3. 个人观点与理解在我看来，“检查电流信箱位置区域格式”功能模块在ABAP开发中具有非常重要的作用。

它可以帮助我们在程序中对用户输入的电流信箱位置区域进行实时检查，有效避免了因格式错误而导致的邮件发送失败的问题。

该功能模块的使用简单方便，不需要开发人员花费过多的时间和精力去编写复杂的检查逻辑。

总结通过本文的介绍，我们了解到了ABAP中的“检查电流信箱位置区域格式”功能模块的重要性和使用方法。

这个功能模块可以帮助我们轻松而准确地对电流信箱位置区域进行格式检查，保证了邮件发送的稳定性和可靠性。

在实际的开发过程中，我们应该充分利用这一功能，避免因电流信箱格式错误而带来的不必要麻烦。

VBA如何在Outlook中自动发送邮件随着电子邮件的普及和便利性，自动化发送邮件已成为日常工作中的常见需求。

使用VBA编程语言结合Microsoft Outlook，可以轻松实现在Outlook中自动发送邮件的功能。

本文将介绍如何在Outlook中使用VBA编写代码，以实现自动发送邮件的功能。

步骤一：打开Outlook并创建一个新的VBA模块首先，打开Microsoft Outlook应用程序。

在Outlook中，按下“ALT +F11”组合键，将打开VBA编辑器。

在VBA编辑器中，选择“插入”->“模块”，然后将创建一个新的VBA模块。

步骤二：编写邮件发送代码在新创建的VBA模块中，可以开始编写邮件发送代码。

以下是一个基本的邮件发送代码示例：```vbaSub SendEmail()Dim OutlookApp As ObjectDim OutlookMail As Object' 创建Outlook应用程序对象Set OutlookApp = CreateObject("Outlook.Application")' 创建邮件对象Set OutlookMail = OutlookApp.CreateItem(0)With OutlookMail' 设置收件人、抄送和密送.To="*********************".CC="**************".BCC="***************"' 设置邮件主题和正文.Subject = "这是邮件的主题".Body = "这是邮件的正文"' 添加附件（可选）.Attachments.Add "C:\example\attachment.txt" ' 发送邮件.SendEnd With' 释放邮件对象的内存Set OutlookMail = Nothing' 退出Outlook应用程序OutlookApp.QuitSet OutlookApp = NothingEnd Sub```上述代码中，首先创建了Outlook应用程序对象和邮件对象。

SAP_ABAP_OO_实现_CL_SALV_TABLECL_SALV_TABLE是一个SAPABAPOO类，用于创建和管理SAPALV表格。

SAPALV是一种强大的工具，用于在SAP系统中显示和操作大量数据。

使用CL_SALV_TABLE类，您可以创建自定义的ALV表格，并添加行、列、字段和功能。

```CLASS zcl_salv_table DEFINITION.PUBLICSECTION.METHODS:constructor,display_table.PRIVATESECTION.DATA:gr_table TYPE REF TO cl_salv_table,gr_functions TYPE REF TO cl_salv_functions_list.METHODS:create_table,create_columns,create_rows,create_fields,create_functions.ENDCLASS.```在上面的示例中，我们定义了一个名为zcl_salv_table的ABAP类。

它有两个公共方法：constructor和display_table。

constructor方法用于初始化表格对象，display_table方法用于显示表格。

在私有部分，我们有一些数据成员来存储表格对象和功能列表对象的引用。

我们还定义了一些私有方法来创建表格、列、行、字段和功能。

下一步是实现这些方法。

在创建方法中，您将实例化一个cl_salv_table对象，并使用不同的方法来定义表格的结构和功能。

```METHOD constructor.create_table( ).create_columns( ).create_rows( ).create_fields( ).create_functions( ).ENDMETHOD.METHOD create_table.CREATE OBJECT gr_table.ENDMETHOD.METHOD create_columns.DATA(lr_columns) = gr_table->get_columns( ).lr_columns->add( )->set_long_text( 'Column 1' ). lr_columns->add( )->set_long_text( 'Column 2' ). ENDMETHOD.METHOD create_rows.DATA(lr_rows) = gr_table->get_rows( ).lr_rows->add( ).lr_rows->add( ).lr_rows->add( ).ENDMETHOD.METHOD create_fields.DATA(lr_columns) = gr_table->get_columns( ). DATA(lr_rows) = gr_table->get_rows( ).LOOP AT lr_columns INTO DATA(lr_column).LOOP AT lr_rows INTO DATA(lr_row).DATA(lr_cell) = lr_row->get_cell( lr_column ).lr_cell->set_text( 'Data' ).ENDLOOP.ENDLOOP.ENDMETHOD.METHOD create_functions.CREATE OBJECT gr_functions.gr_functions->set_all( abap_true ).gr_table->set_functions( gr_functions ).ENDMETHOD.METHOD display_table.gr_table->display( ).ENDMETHOD.```在上面的示例中，首先我们在constructor方法中调用一系列的方法来创建表格、列、行、字段和功能。

使用PHP发送邮件的两种方法在PHP中，有多种方式可以发送邮件。

下面将介绍两种常用的方法。

方法一：使用PHP内置的mail(函数发送邮件PHP中的mail(函数是发送电子邮件的最简单、最常用的方法之一、此函数的基本语法如下：```bool mail (string $to, string $subject, string $message [, string $additional_headers [, string $additional_parameters]]) ```参数说明：- `$subject`（必需）：邮件主题。

- `$message`（必需）：邮件内容。

- `$additional_headers`（可选）：额外的邮件头部信息，可以设置例如发送人、回复信箱等。

默认为空字符串。

- `$additional_parameters`（可选）：用于传递额外的参数给邮件发送程序。

默认为空字符串。

示例代码如下：```php$subject = 'Hello from PHP';$message = 'This is a test email from PHP.';if (mail($to, $subject, $message, $headers))echo 'Email sent successfully.';} elseecho 'Failed to send email.';```请注意，mail(函数的使用需要正确配置PHP环境中的邮件设置。

您需要确保SMTP服务器配置正确，并且能够正常发送电子邮件。

方法二：使用第三方邮件库（如PHPMailer或SwiftMailer）发送邮件除了PHP内置的mail(函数之外，您还可以使用第三方邮件库来发送邮件。

这些邮件库提供了更高级的功能和更便捷的API。

以下是使用PHPMailer库发送邮件的示例代码：```php// 引入 PHPMailer 类require 'path/to/PHPMailer.php';// 创建一个新的 PHPMailer 实例$mail = new PHPMailer\PHPMailer\PHPMailer(;//设置SMTP服务器配置$mail->isSMTP(;$mail->Port = 587;$mail->SMTPAuth = true;$mail->Username = 'your_username';$mail->Password = 'your_password';//设置发件人和收件人//设置邮件主题和内容$mail->Subject = 'Hello from PHPMailer';$mail->Body = 'This is a test email from PHPMailer.'; //发送邮件if ($mail->send()echo 'Email sent successfully.';} elseecho 'Failed to send email.';```以下是使用 SwiftMailer 库发送邮件的示例代码：```php// 引入 SwiftMailer 的自动加载器require_once 'path/to/swiftmailer/autoload.php';//创建一个新的发送者$transport->setUsername('your_username');$transport->setPassword('your_password');//创建一个邮件发送器$mailer = new Swift_Mailer($transport);//创建一个邮件消息$message = new Swift_Message('Hello from SwiftMailer');$message->setBody('This is a test email from SwiftMailer.');//发送邮件if ($mailer->send($message))echo 'Email sent successfully.';} elseecho 'Failed to send email.';```无论您选择使用内置的mail(函数还是第三方邮件库，都可以方便地发送电子邮件。

VBA与邮件自动发送与接收的批量处理与附件操作的实际应用VBA（Visual Basic for Applications）是一个强大的编程语言，可以与Microsoft Office套件无缝集成，为办公自动化提供了许多便利。

其中，VBA在处理邮件自动发送与接收，并进行批量处理和附件操作方面具有广泛的应用。

自动发送与接收邮件是许多组织和个人日常工作中的重要任务之一。

借助VBA，我们可以节省大量时间和精力，并确保任务的准确执行。

首先，让我们看一下如何使用VBA实现自动发送邮件的批量处理。

要编写一个自动发送邮件的VBA程序，我们首先需要使用“Outlook.Application”对象来创建与Outlook之间的连接。

通过使用VBA代码中的“CreateObject”函数，我们可以创建一个Outlook应用程序对象。

以下是一个简单的示例，演示了如何使用VBA自动化发送邮件：```Sub SendEmail()Dim OutlookApp As ObjectDim Mail As ObjectSet OutlookApp = CreateObject("Outlook.Application")Set Mail = OutlookApp.CreateItem(0)With Mail.To="*********************".Subject = "自动发送邮件的测试".Body = "这是一个自动发送的测试邮件。

".SendEnd WithSet Mail = NothingSet OutlookApp = NothingEnd Sub```上述代码中，我们首先创建了一个Outlook应用程序对象（OutlookApp），然后使用CreateItem(0)方法创建一个邮件对象（Mail）。

接下来，我们使用With语句来设置邮件的收件人地址、主题和正文内容。

*&---------------------------------------------------------------------* *& Report YHCNCALC0_MAIL*&*&---------------------------------------------------------------------* *&*&*&---------------------------------------------------------------------*report yhcncalc0_mail.parameter: jobcount like tbtcm-jobcount,jobname like tbtcm-jobname,p_email1 like somlreci1-receiver,p_sender like somlreci1-receiver,p_delspl as checkbox.*DATA DECLARATIONdata: gd_recsize type i.* Spool IDstypes: begin of t_tbtcp.include structure tbtcp.types: end of t_tbtcp.data: it_tbtcp type standard table of t_tbtcp initial size 0,wa_tbtcp type t_tbtcp.* Job Runtime Parametersdata: gd_eventid like tbtcm-eventid,gd_eventparm like tbtcm-eventparm,gd_external_program_active like tbtcm-xpgactive,* gd_jobcount LIKE tbtcm-jobcount,* gd_jobname LIKE tbtcm-jobname,gd_stepcount like tbtcm-stepcount,gd_error type sy-subrc,gd_reciever type sy-subrc.data: w_recsize type i.data: gd_subject like sodocchgi1-obj_descr,it_mess_bod like solisti1 occurs 0 with header line,it_mess_att like solisti1 occurs 0 with header line,gd_sender_type like soextreci1-adr_typ,gd_attachment_desc type so_obj_nam,gd_attachment_name type so_obj_des.* Spool to PDF conversionsdata: gd_spool_nr like tsp01-rqident,gd_destination like rlgrap-filename,gd_bytecount like tst01-dsize,gd_buffer type string.* Binary store for PDFdata: begin of it_pdf_output occurs 0.include structure tline.data: end of it_pdf_output.constants: c_dev like sy-sysid value 'DEV',c_no(1) type c value ' ',c_device(4) type c value 'LOCL'.************************************************************************ *START-OF-SELECTION.start-of-selection.* Write statement to represent report output. Spool request is created * if write statement is executed in background. This could also be an* ALV grid which would be converted to PDF without any extra effort* WRITE 'Hello World'.new-page.commit work.new-page print off.if sy-batch eq 'X'.* PERFORM get_job_details.perform obtain_spool_id.*************************************** Alternative way could be to submit another program and store spool *** id into memory, will be stored in sy-spono.*submit ZSPOOLTOPDF2* to sap-spool* spool parameters %_print* archive parameters %_print* without spool dynpro* and return.************************************* Get spool id from program called above* IMPORT w_spool_nr FROM MEMORY ID 'SPOOLTOPDF'.perform convert_spool_to_pdf.perform process_email.if p_delspl eq 'X'.perform delete_spool.endif.if sy-sysid = c_dev.wait up to 5 seconds.submit rsconn01 with mode = 'INT'with output = 'X'and return.endif.else.skip.write:/ 'Program must be executed in background in-order for spool', 'request to be created.'.endif.*---------------------------------------------------------------------* * FORM obtain_spool_id **---------------------------------------------------------------------* form obtain_spool_id.check not ( jobname is initial ).check not ( jobcount is initial ).select * from tbtcpinto table it_tbtcpwhere jobname = jobnameand jobcount = jobcount* AND stepcount = gd_stepcountand listident <> '0000000000'order by jobnamejobcountstepcount.read table it_tbtcp into wa_tbtcp index 1.if sy-subrc = 0.message s004(zdd) with gd_spool_nr.gd_spool_nr = wa_tbtcp-listident.message s004(zdd) with gd_spool_nr.else.message s005(zdd).endif.endform.**---------------------------------------------------------------------* ** FORM get_job_details * **---------------------------------------------------------------------* *FORM get_job_details.** Get current job details* CALL FUNCTION 'GET_JOB_RUNTIME_INFO'* IMPORTING* eventid = gd_eventid* eventparm = gd_eventparm* external_program_active = gd_external_program_active* jobcount = jobcount* jobname = jobname* stepcount = gd_stepcount* EXCEPTIONS* no_runtime_info = 1* OTHERS = 2.*ENDFORM.*---------------------------------------------------------------------* * FORM convert_spool_to_pdf * *---------------------------------------------------------------------* form convert_spool_to_pdf.call function 'CONVERT_ABAPSPOOLJOB_2_PDF'exportingsrc_spoolid = gd_spool_nrno_dialog = c_nodst_device = c_deviceimportingpdf_bytecount = gd_bytecounttablespdf = it_pdf_outputexceptionserr_no_abap_spooljob = 1err_no_spooljob = 2err_no_permission = 3err_conv_not_possible = 4err_bad_destdevice = 5user_cancelled = 6err_spoolerror = 7err_temseerror = 8err_btcjob_open_failed = 9err_btcjob_submit_failed = 10err_btcjob_close_failed = 11others = 12.check sy-subrc = 0.* Transfer the 132-long strings to 255-long stringsloop at it_pdf_output.translate it_pdf_output using ' ~'.concatenate gd_buffer it_pdf_output into gd_buffer.endloop.translate gd_buffer using '~ '.do.it_mess_att = gd_buffer.append it_mess_att.shift gd_buffer left by 255 places.if gd_buffer is initial.exit.endif.enddo.endform.*---------------------------------------------------------------------* * FORM process_email * *---------------------------------------------------------------------* form process_email.describe table it_mess_att lines gd_recsize.check gd_recsize > 0.perform send_email using p_email1.* perform send_email using p_email2.endform.*---------------------------------------------------------------------* * FORM send_email * *---------------------------------------------------------------------* * --> p_email * *---------------------------------------------------------------------* form send_email using p_email.check not ( p_email is initial ).refresh it_mess_bod.* Default subject mattergd_subject = 'Subject'.gd_attachment_desc = '工资计算日志'.* CONCATENATE 'attach_name' ' ' INTO gd_attachment_name.it_mess_bod = '您好；'.append it_mess_bod.clear it_mess_bod .append it_mess_bod.工资计算结果日志'check p_delspl <> c_no.call function 'RSPO_R_RDELETE_SPOOLREQ'exportingspoolid = ld_spool_nr.endform.*&---------------------------------------------------------------------* *& Form SEND_FILE_AS_EMAIL_ATTACHMENT*&---------------------------------------------------------------------* * Send email*----------------------------------------------------------------------* form send_file_as_email_attachment tables it_messageit_attachusing p_emailp_mtitlep_formatp_filenamep_attdescriptionp_sender_addressp_sender_addres_typechanging p_errorp_reciever.data: ld_error type sy-subrc,ld_reciever type sy-subrc,ld_mtitle like sodocchgi1-obj_descr,ld_email like somlreci1-receiver,ld_format type so_obj_tp ,ld_attdescription type so_obj_nam ,ld_attfilename type so_obj_des ,ld_sender_address like soextreci1-receiver,ld_sender_address_type like soextreci1-adr_typ,ld_receiver like sy-subrc.data: t_packing_list like sopcklsti1 occurs 0 with header line,t_contents like solisti1 occurs 0 with header line,t_receivers like somlreci1 occurs 0 with header line,t_attachment like solisti1 occurs 0 with header line,t_object_header like solisti1 occurs 0 with header line,w_cnt type i,w_sent_all(1) type c,w_doc_data like sodocchgi1.ld_email = p_email.ld_mtitle = p_mtitle.ld_format = p_format.ld_attdescription = p_attdescription.ld_attfilename = p_filename.ld_sender_address = p_sender_address.ld_sender_address_type = p_sender_addres_type.* Fill the document data.w_doc_data-doc_size = 1.* Populate the subject/generic message attributes w_doc_data-obj_langu = sy-langu.w_doc_data-obj_name = 'SAPRPT'.w_doc_data-obj_descr = ld_mtitle .w_doc_data-sensitivty = 'F'.* Fill the document data and get size of attachment clear w_doc_data.read table it_attach index w_cnt.w_doc_data-doc_size =( w_cnt - 1 ) * 255 + strlen( it_attach ).w_doc_data-obj_langu = sy-langu.w_doc_data-obj_name = 'SAPRPT'.w_doc_data-obj_descr = ld_mtitle.w_doc_data-sensitivty = 'F'.clear t_attachment.refresh t_attachment.t_attachment[] = it_attach[].* Describe the body of the messageclear t_packing_list.refresh t_packing_list.t_packing_list-transf_bin = space.t_packing_list-head_start = 1.t_packing_list-head_num = 0.t_packing_list-body_start = 1.describe table it_message lines t_packing_list-body_num.t_packing_list-doc_type = 'RAW'.append t_packing_list.* Create attachment notificationt_packing_list-transf_bin = 'X'.t_packing_list-head_start = 1.t_packing_list-head_num = 1.t_packing_list-body_start = 1.describe table t_attachment lines t_packing_list-body_num.t_packing_list-doc_type = ld_format.t_packing_list-obj_descr = ld_attdescription.t_packing_list-obj_name = ld_attfilename.t_packing_list-doc_size = t_packing_list-body_num * 255. append t_packing_list.* Add the recipients email addressclear t_receivers.refresh t_receivers.t_receivers-receiver = ld_email.t_receivers-rec_type = 'U'.* t_receivers-com_type = 'INT'.t_receivers-com_type = 'TELFAX'.t_receivers-notif_del = 'X'.t_receivers-notif_ndel = 'X'.append t_receivers.call function 'SO_DOCUMENT_SEND_API1'exportingdocument_data = w_doc_dataput_in_outbox = 'X'sender_address = ld_sender_addresssender_address_type = ld_sender_address_type commit_work = 'X'importingsent_to_all = w_sent_alltablespacking_list = t_packing_list。

ABAP发邮件程序1REPORT ZTEST01.DATA: i_objpack LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,i_objtxt LIKE solisti1 OCCURS 0 WITH HEADER LINE,i_objbin LIKE solisti1 OCCURS 0 WITH HEADER LINE,i_reclist LIKE somlreci1 OCCURS 0 WITH HEADER LINE,i_record LIKE solisti1 OCCURS 0 WITH HEADER LINE,v_objhead TYPE soli_tab ,v_lines_txt TYPE i,v_lines_bin TYPE i,v_docchgi TYPE sodocchgi1,v_lines_bin_all TYPE i ,filelen TYPE i.DATA: BEGIN OF itab_text OCCURS 0 , "内表作为邮件附件ff1(20) ,ff2(40) ,ff3 TYPE i,END OF itab_text.START-OF-SELECTION.itab_text-ff1 = 'skdfksd'.itab_text-ff2 = '第一行'.itab_text-ff3 = 123.APPEND itab_text.itab_text-ff1 = 'ksssd'.itab_text-ff2 = '第二行'.itab_text-ff3 = 456.APPEND itab_text.PERFORM send_mail.*&---------------------------------------------------------------------**& Form send_mail*&---------------------------------------------------------------------** text*----------------------------------------------------------------------*FORM send_mail .v_docchgi-obj_name = 'Text'.v_docchgi-expiry_dat = sy-datum + 2 . "过期日期v_docchgi-sensitivty = 'F'. "Functional objectv_docchgi-doc_size = v_lines_txt * 255.v_docchgi-obj_descr = 'Mail标题'.i_objtxt = 'Line1第一行'.APPEND i_objtxt.i_objtxt = 'Line2第二行'.APPEND i_objtxt.DESCRIBE TABLE i_objtxt LINES v_lines_txt.i_objpack-transf_bin = ''.i_objpack-head_start = 1.i_objpack-head_num = 0.i_objpack-body_start = 1.i_objpack-body_num = v_lines_txt.i_objpack-doc_type = 'RAW'.APPEND i_objpack.**内表作为邮件附件DATA: tmpstr TYPE string .CLEAR: tmpstr,i_record,i_record[].PERFORM itabtostr TABLES itab_text USING tmpstr.PERFORM strtorecord TABLES i_record USING tmpstr filelen.APPEND LINES OF i_record TO i_objbin.DESCRIBE TABLE i_record LINES v_lines_bin.DESCRIBE TABLE i_objbin LINES v_lines_bin_all.i_objpack-transf_bin = 'X'.i_objpack-body_start = v_lines_bin_all - v_lines_bin + 1 .i_objpack-body_num = v_lines_bin.i_objpack-doc_type = 'XLS'.i_objpack-obj_name = 'text'.i_objpack-doc_size = v_lines_bin * 255.CONCATENATE 'itab_attch.xls' '' INTO i_objpack-obj_descr."附件名APPEND i_objpack.**接收人CLEAR i_reclist.i_reclist-receiver = 'gdjkttc@/doc/0317338692.html,'.i_reclist-express = 'X'.i_reclist-rec_type = 'U'.APPEND i_reclist.CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1' EXPORTINGdocument_data = v_docchgiput_in_outbox = 'X'commit_work = 'X'TABLESpacking_list = i_objpackobject_header = v_objheadcontents_bin = i_objbincontents_txt = i_objtxtreceivers= i_reclistEXCEPTIONStoo_many_receivers = 1document_not_sent = 2document_type_not_exist = 3operation_no_authorization = 4parameter_error = 5x_error = 6enqueue_error = 7OTHERS = 8.IF sy-subrc = 0.WAIT UP TO 2 SECONDS.SUBMIT rsconn01 WITH mode = 'INT' AND RETURN.ENDIF.ENDFORM. " send_mail*&---------------------------------------------------------------------**& Form itabtostr*&---------------------------------------------------------------------*FORM itabtostr TABLES intabUSING outstr TYPE string.DATA: tab TYPE c VALUE cl_abap_char_utilities=>horizontal_tab,enter(2) TYPE c VALUE cl_abap_char_utilities=>cr_lf,n TYPE i.DATA: BEGIN OF headtab OCCURS 0 ,length TYPE i ,decimals TYPE i,type_kind TYPE c,name(30) TYPE c,END OF headtab.DATA descr_ref TYPE REF TO cl_abap_structdescr.FIELD-SYMBOLS: TYPE abap_compdescr ,,TYPE ANY .DATA:str TYPE string,str2 TYPE string ,text1 TYPE c.descr_ref ?= cl_abap_typedescr=>describe_by_data( intab ).LOOP AT descr_ref->components ASSIGNING .MOVE-CORRESPONDING TO headtab.APPEND headtab.ENDLOOP.DESCRIBE TABLE headtab LINES n.LOOP AT intab ASSIGNING .DO n TIMES.ASSIGN COMPONENT sy-index OF STRUCTURE TO .str = .READ TABLE headtab INDEX sy-index.IF headtab-type_kind = 'I' OR headtab-type_kind = 'P'OR headtab-type_kind = 'F'.SEARCH str FOR '-'.IF sy-subrc = 0 AND sy-fdpos <> 0.SPLIT str AT '-' INTO str text1.CONDENSE str.CONCATENATE '-' str INTO str.ELSE.CONDENSE str.ENDIF.ELSE.* SHIFT str LEFT DELETING LEADING '0' .ENDIF.CONCATENATE str2 tab str INTO str2.ENDDO.SHIFT str2.CONCATENATE outstr str2 enter INTO outstr.CLEAR str2.ENDLOOP.ENDFORM. "itabtostr*&---------------------------------------------------------------------**& Form strtorecord*&---------------------------------------------------------------------*FORM strtorecord TABLES record USING str len.DATA:tmpbuffer TYPE xstring.CALL FUNCTION 'SCMS_STRING_TO_XSTRING' EXPORTINGtext = strmimetype = '"text/html; charset=gb2312"'* encoding = '8400'IMPORTINGbuffer = tmpbufferEXCEPTIONSfailed = 1OTHERS = 2.CALL FUNCTION 'SCMS_XSTRING_TO_BINARY' EXPORTINGbuffer = tmpbufferappend_to_table = ''IMPORTINGoutput_length = lenTABLESbinary_tab = record.ENDFORM. "strtorecord。

如何使用ABAP代码发送邮件到指定邮箱试读版零基础 ABAP 学习教程系列文章的目录•ABAP 标准培训教程BC400 学习笔记之一：ABAP 服务器的架构和一个典型的 ABAP 程序结构介绍•ABAP 标准培训教程BC400 学习笔记之二：Cross-client 和Client-specific 的区别•ABAP 标准培训教程BC400 学习笔记之三：ABAP 编程语言的特性和基本构成要素•ABAP 标准培训教程BC400 学习笔记之四：ABAP 编程语言的数据类型•ABAP 标准培训教程BC400 学习笔记之五：ABAP 编程语言的变量，常量和字面量，以及文本符号ABAP 基础知识•通过实际的例子，介绍SAP ABAP 里的Repository Information System 的使用技巧•ABAP function module 的使用•ABAP subroutine 的定义和使用•ABAP 中的变量和常量•ABAP 编程语言中的系统字段(System Fields)•什么是 ABAP Field Symbol•ABAP 引用类型介绍•最浅显易懂的 SAPGUI 里 ABAP 调试器的使用方法介绍•如何创建最简单的 ABAP 数据库表，以及编码从数据库表中读取数据 (上)•如何创建最简单的 ABAP 数据库表，以及编码从数据库表中读取数据 (下)•用 ABAP 读取本地文本文件内容•26 行 ABAP 代码使用 HTTP_GET 函数下载百度网站的首页数据•ABAP 如何解析 JSON 数据•如何从本地文件里拷贝某个 ABAP 类到 SAP 系统•面向对象的 ABAP 编程初探 - 什么是类，实例，和 Public 方法•SAP ABAP 报表的用户输入功能•使用 ABAP 事物码 SM59 创建 Destination 来读取外网的数据•通过一个具体的例子，讲解 SAP BDC 技术的使用步骤•从解读 BDC 自动生成的代码谈起，讲解 SAPGUI 的程序组成部分•如何查询 SAPGUI 屏幕上某个字段对应的数据库表存储•如何使用事物码 SAT 查找某个 SAPGUI 屏幕字段对应的后台存储数据库表的名称•一步步创建包含自定义 Screen 的 ABAP 程序的详细步骤•SAP ABAP 字符串变量容易疏忽和混淆的一些知识点•SAP ABAP 处理Excel 的标准函数TEXT_CONVERT_XLS_TO_SAP 介绍•授人以渔-在 SAP MM 物料显示界面上看到一个字段，如何查找哪张数据库表的哪个字段进行的存储•SAP ABAP 系统进行数据库表查询的几种常用方法•如何让 ABAP 服务器能够响应通过浏览器发起的自定义 HTTP 请求•一个 15 年 SAP ABAP 开发人员分享的 SAPGUI 一些个性化设置和实用小技巧•如何使用 saplink 安装其他网站上提供的 ABAP 程序•ABAP 报表中如何给报表的输入参数增添 F4 Value Help•ABAP 报表中如何以二进制方式上传本地文件•ABAP 里文件操作涉及到中文字符集的问题和解决方案•如何对 ABAP 数据库表通过 ABAP 代码进行更新和删除操作•如何让 ABAP 报表在后台作业的模式下运行•如何使用 ABAP 代码解析 XML 文件•如何使用 ABAP 代码发送邮件到指定邮箱•更多文章正在写作中Office 专题•用 ABAP 新建本地 Excel 文件并写入数据•如何使用 ABAP 创建包含不同字体大小的 Word 文档•更多文章正在写作中ALV 开发专题•27 行代码开发一个最简单的 SAP ALV 报表•48 行代码给 ABAP ALV 报表的数据行增添颜色效果•77 行代码实现ABAP ALV 中的双击事件处理•SAP ABAP ALV 层次顺序表如何使用双表头(Multiple Headers)进行数据输出•如何在 SAP ABAP ALV 报表里以交通灯的方式显示某一列的值更多文章正在写作中本教程前面的步骤，我们介绍了如何在 ABAP Editor 里一步步创建包含自定义 Screen 的 ABAP 程序的详细方法。