Basic email program in ABAP

 Report program

REPORT zab_sen_auto_mail.

DATA: lt_mailsub  TYPE sodocchgi1,
      lt_mailrecp TYPE STANDARD TABLE OF somlrec90 WITH HEADER LINE,
      lt_mailtxt  TYPE STANDARD TABLE OF soli WITH HEADER LINE.

lt_mailrecp-rec_type = 'U'.
lt_mailrecp-receiver = 'abcd@gmail.com'.
APPEND lt_mailrecp.
CLEAR: lt_mailrecp.

lt_mailsub-obj_name = 'TEST'.
lt_mailsub-obj_langu = sy-langu.
lt_mailsub-obj_descr = 'Mail Subject'.


lt_mailtxt = 'This is test mail'.
APPEND lt_mailtxt.
CLEAR: lt_mailtxt.

CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
  EXPORTING
    document_data              = lt_mailsub
*   DOCUMENT_TYPE              = 'RAW'
*   PUT_IN_OUTBOX              = ' '
*   COMMIT_WORK                = ' '
*   IP_ENCRYPT                 =
*   IP_SIGN                    =
* IMPORTING
*   SENT_TO_ALL                =
*   NEW_OBJECT_ID              =
  TABLES
*   OBJECT_HEADER              =
    object_content             = lt_mailtxt
*   CONTENTS_HEX               =
*   OBJECT_PARA                =
*   OBJECT_PARB                =
    receivers                  = lt_mailrecp
  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 <> 0.
  MESSAGE 'Mail not sent' TYPE 'E'.
ELSE.
  COMMIT WORK.
  MESSAGE 'Mail sent sucessfully' TYPE 'S'.
ENDIF.

****************************************************

* Execute the program email will trigger in SOST T-code.

* Goto T-code SOST.

* Select the email and click on display document.



Comments

Post a Comment

Popular posts from this blog

New syntax for append- VALUE (new syntax 7.4+) in ABAP

Image
* We use APPEND statement to insert the records at the last of the internal table. * In SAP ABAP new syntax, we can use VALUE expression instead of APPEND statement. * Value expression is a powerful mechanism to declare as well as initialize the internal tables. * It is a powerful utility where we can achieve the result with minimal coding. * Value expression is of 2 types.      -  Define the type before using it with VALUE keyword. The type defined is structure type  or table type.      -  Using # character for type and use it with VALUE keyword. Report REPORT  zab_rp_append_value . TYPES :  BEGIN  OF  ls_stu ,          st_id ( 10 )    TYPE  n ,          st_name ( 15 )  TYPE  c ,         END  OF  ls_stu . DATA :  lt_stu  TYPE  TABLE...
Read more

Read statement new syntax in ABAP. (7.4+).

Image
*  Before ABAP 7.4, we used READ TABLE statement to read the first matching record from the internal table  based upon key or index . * In SAP ABAP new syntax, instead of READ TABLE , we can use the table expressions. * We need to use the square bracket [ ], In the square bracket, we need to specify the key or index. * While using table expression, If the table entry does not exist, system throws the exception CX_SY_ITAB_LINE_NOT_FOUND. * Use line_exists statement to check the existence of a record. Report REPORT  zab_rp_read_new . TABLES :   vbak . SELECT-OPTIONS :   s_vbeln  FOR  vbak - vbeln . SELECT  vbeln , erdat , erzet , ernam , auart         FROM  vbak         INTO  TABLE  @DATA ( lt_vbak )          WHERE  vbeln  IN  @s_vbeln . WRITE :   'Index value'  COLOR  5 . READ  T...
Read more

Concatenation new syntax( 7.4+ ).

Image
  Report REPORT  zab_rp_concat_7_4 . DATA :   lv_str1    TYPE  string  VALUE  'ajay' ,       lv_str2    TYPE  string  VALUE  'babu' ,       lv_str3    TYPE  string  VALUE  'varikallu' ,       lv_final1  TYPE  string ,       lv_final2  TYPE  string . CONCATENATE  lv_str1 lv_str2 lv_str3  INTO  lv_final1  SEPARATED  BY  space . WRITE :   /  'Old syntax: '  ,  lv_final1  COLOR  4 . lv_final2  =  | { lv_str1 } { lv_str2 } { lv_str3 } | . WRITE :   /  'New syntax: '  ,  lv_final2  COLOR  5 . Output ****** *********** ******** Thank You ****** ******* *********
Read more