Send Mail as attachments

-

FUNCTION zsd_reset_password.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(IM_BNAME) TYPE  RSYST-BNAME OPTIONAL
*"  EXPORTING
*"     VALUE(MESSAGE) TYPE  STRING
*"----------------------------------------------------------------------
  DATA:        gt_table TYPE STANDARD TABLE OF zsd_user_login,
               gs_table TYPE                   zsd_user_login.
 DATA:  password   TYPE  sld_password,
        password1  TYPE  sld_password,
        pwdbase64  TYPE  sld_b64pwd,
        pwdbase641 TYPE  sld_b64pwd.
*Data Declaration
*----------------
  DATA: it_contents   TYPE STANDARD TABLE OF soli,
        wa_contents    TYPE soli,
        it_attachment TYPE solix_tab,
        wa_receivers  TYPE uiys_iusr,
        ld_subject    TYPE so_obj_des,
        ld_att_size   TYPE so_obj_len,
        ld_att_text   TYPE xstring,
        ld_att_type   TYPE so_obj_tp VALUE 'TXT',
        ld_att_sub    TYPE so_obj_des VALUE 'Attachment'.

  DATA: send_email   TYPE REF TO cl_bcs,
        send_request TYPE REF TO cl_send_request_bcs,
        document     TYPE REF TO cl_document_bcs,
        recipient    TYPE REF TO if_recipient_bcs.

  DATA:  p_subjct TYPE string VALUE 'New Password',
        p_bodtxt TYPE string, "  VALUE 'Dear User Find your password in attchments',
        p_atttxt TYPE string, "
        p_recip  TYPE string. "

  SELECT * FROM zsd_user_login INTO TABLE gt_table  WHERE user_id = im_bname.
  IF sy-subrc EQ 0.
    READ TABLE gt_table INTO gs_table INDEX 1.

    if gs_table-email IS NOT INITIAL and gs_table-bcode is NOT INITIAL.

    move gs_table-bcode to pwdbase641.
    move pwdbase641      to pwdbase64.

    CALL FUNCTION 'DECODE_SLDPWD_BASE64'
      EXPORTING
        pwdbase64       = pwdbase64
     IMPORTING
       PASSWORD        = password
              .
    CONCATENATE 'Reset Password is' password INTO p_bodtxt.

    p_recip = gs_table-email.
    p_atttxt = password.


    ld_subject = p_subjct.

    CONCATENATE '<html><body><p>' p_bodtxt '</p></body></html>'
                     INTO wa_contents-line.
    APPEND wa_contents TO it_contents.

* Create instance of the email class
    send_email = cl_bcs=>create_persistent( ).

* Create email document inc type, subject and boby text
    document = cl_document_bcs=>create_document(
                  i_type    = 'HTM'
                  i_subject = ld_subject
                  i_text    = it_contents ).

* Convert attachment text to xstring
    CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
      EXPORTING
        text   = p_atttxt
*       MIMETYPE       = ' '
*       ENCODING       =
      IMPORTING
        buffer = ld_att_text
      EXCEPTIONS
        failed = 1
        OTHERS = 2.

* Add converted attachment text to the email attachment table
    it_attachment = cl_document_bcs=>xstring_to_solix( ld_att_text ).

* Calculate size of attachment
    ld_att_size   = xstrlen( ld_att_text ).

* Add the attachment table to the document
    CALL METHOD document->add_attachment(
        i_attachment_type    = ld_att_type
        i_attachment_subject = ld_att_sub
        i_attachment_size    = ld_att_size
        i_att_content_hex    = it_attachment ).

* Assign document and all its details to the email
    CALL METHOD send_email->set_document( document ).

* Setup email recipient
    wa_receivers-email = p_recip.
    recipient = cl_cam_address_bcs=>create_internet_address( wa_receivers-email ).

*Assign recipient to email
    CALL METHOD send_email->add_recipient
      EXPORTING
        i_recipient = recipient
        i_express   = 'X'.

*Send email
    CALL METHOD send_email->send( i_with_error_screen = 'X' ).

* Commit work!!! This is important email will not get sent or appear in SOST without this
    COMMIT WORK.

  ENDIF.
  ENDIF.

  if sy-subrc eq 0.
    MESSAGE = 'Password sent sucuess'.
    else.
     MESSAGE = 'Error to sending password check with admin'.
   endif.
ENDFUNCTION.

Comments

Post a Comment

Popular posts from this blog

Business senario : FB60 AND FB70 validation and subsituation

-
Image
As per the requirments validation GGB0 and subsituation GGB1 with help to two t-code we can do validation of t-code fb60 or fb70 for this purpose you can go to to standared programs .  there are two t-code for input your validation and subsituation OB28 for validation and OBBH for  subsituation   for subsituation you copy the standared program RGGBR000 in customer namespace and register the program in T80D table and register namespace to V_T80D Program you can change your exit like below   exits - name  =  'RK101' .   exits - param  =  c_exit_param_field .   exits - TITLE  =  TEXT - prb .    APPEND  exits . And second code like below  FORM  upf04 .    IF  BKPF - bukrs  IS  INITIAL .      MESSAGE  'PLease enter COMPANY CODE'  TYPE  'I' .    ENDIF . ENDFORM . and hole code as ...
Read more

MB_MIGO_BADI THIS BADI USED TO POSTING DATA IN MIGO

-
Here this badi used to how to work migo data migration and help to creating magi used to save  and validation of data  MB_DOCUMENT_UPDATE method  IF_EX_MB_MIGO_BADI ~ POST_DOCUMENT .    BREAK-POINT .    IF  is_mkpf - budat < is_mkpf - BLDAT .     sy - ucomm  =  'ENT1' .      MESSAGE  'Posting Date Should Not Be Less Than Document Date'   TYPE  'E'  .      SET SCREEN  syst - dynnr .      LEAVE SCREEN .    ENDIF . endmethod .
Read more

all user exit mv45afzz (implicit user exit )

-
MV45AFZZ this is included here all code put related to sales order creation while creating a sales order  va01 this exit trigger so as per your requirement we can write your code here I going to listed different type exit as per the real requirement you find the code and develop your business scenario INCLUDE MV45AFZZ . Modify Screen VA01/VA02/VA03 How to Activated and Deactivated Screen  Export Memory example While Creating a sales order  How to Call workflow While Creating a sales order  TYPES  :  BEGIN  OF  ty_vbak ,           KVGR1  TYPE  vbak - KVGR1 ,           KVGR2  TYPE  vbak - KVGR2 ,          END  OF  ty_vbak . DATA  :  ls_vbak  TYPE  ty_vbak . IF  sy - tcode  =  'VA02'  and...
Read more