Send a mail to the vendor at the time of approval with the attachment of PO

Question

Hi all,
I want to send a mail to the vendor at the time of approval by attaching the pdf of that particular PO.
How can I achieve this?
I know the User Exit where the code should be written.
But I want the solution for attaching the PDF of PO at the time of approval.
Please help me in this regard.
Edited by: vinil kumar aturi on Mar 16, 2009 7:52 AM

Answer 1

Hi,
Try Following Code to Send mail as PDF Attachment
In this
Smart form Name : ZSMART_MM_003
This will send mail to EMAIL ADDRESS SPECIFIED IN VENDOR MASTER FK03
This code is written for ME23n so we used nast-objky(10) for purchase order no you may replace it with your purchase order no
and smart form name with your smart form name
*-- Send Mail---
*-- Function Module Call to get Customer Address (Email)--
DATA: VENDOR TYPE ELIFN,
      ADDRNO TYPE ADRNR.
DATA: atab-mail TYPE STRING.
SELECT SINGLE LIFNR FROM EKKO INTO VENDOR WHERE EBELN = nast-objky(10).
SELECT SINGLE ADRNR FROM LFA1 INTO ADDRNO WHERE LIFNR = VENDOR.
TYPE-POOLS: szadr.
DATA adr_kompl TYPE szadr_addr1_complete.
DATA adr1 TYPE szadr_addr1_line.
DATA adtel TYPE szadr_adtel_line.
DATA admail TYPE szadr_adsmtp_line.
DATA adfax TYPE szadr_adfax_line.
CALL FUNCTION 'ADDR_GET_COMPLETE'
       EXPORTING
            addrnumber              = ADDRNO
       IMPORTING
            addr1_complete          = adr_kompl
       EXCEPTIONS
            parameter_error         = 1
            address_not_exist       = 2
            internal_error          = 3
            wrong_access_to_archive = 4
            OTHERS                  = 5.
Mail
  LOOP AT adr_kompl-adsmtp_tab INTO admail.
    MOVE admail-adsmtp-smtp_addr TO atab-mail.
  ENDLOOP.
if sy-subrc = 0.
  DATA: FILENAME TYPE STRING.
  CONCATENATE 'PurchaseOrder' nast-objky INTO FILENAME SEPARATED BY '-'.
  DATA: MESSAGELINE1 TYPE STRING,
        MESSAGELINE2 TYPE STRING.
CONCATENATE 'Do you want to send ' FILENAME ' through E-mail to' into MESSAGELINE1.
CONCATENATE atab-mail '?' into MESSAGELINE2.
  data: answer    TYPE c.
  CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
       EXPORTING
            defaultoption = 'N'
            textline1     = MESSAGELINE1
            textline2     = MESSAGELINE2
            titel         = ' '
            start_column  = 35
            start_row     = 10
       IMPORTING
            answer        = answer.
  IF answer EQ 'J' OR answer EQ 'Y'.
Code to find Contact person
    DATA: CONTACT TYPE EVERK.
    SELECT SINGLE VERKF FROM EKKO INTO CONTACT WHERE EBELN = nast-objky(10).
Internal Table declarations
    DATA: I_OTF TYPE ITCOO OCCURS 0 WITH HEADER LINE,
          I_TLINE TYPE TABLE OF TLINE WITH HEADER LINE,
          I_RECEIVERS TYPE TABLE OF SOMLRECI1 WITH HEADER LINE,
          I_RECORD LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
Objects to send mail.
          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,
Work Area declarations
          WA_OBJHEAD TYPE SOLI_TAB,
          W_CTRLOP TYPE SSFCTRLOP,
          W_COMPOP TYPE SSFCOMPOP,
          W_RETURN TYPE SSFCRESCL,
          WA_DOC_CHNG TYPE SODOCCHGI1,
          W_DATA TYPE SODOCCHGI1,
          WA_BUFFER TYPE STRING, "To convert from 132 to 255
Variables declarations
          V_FORM_NAME TYPE RS38L_FNAM,
          V_LEN_IN LIKE SOOD-OBJLEN,
          V_LEN_OUT LIKE SOOD-OBJLEN,
          V_LEN_OUTN TYPE I,
          V_LINES_TXT TYPE I,
          V_LINES_BIN TYPE I.
          DATA :  s_control_parameters TYPE ssfctrlop,
                  s_output_options     TYPE ssfcompop.
                  s_control_parameters-getotf = 'X'.
                  s_control_parameters-no_dialog = 'X'.
                  s_control_parameters-preview   = 'X'.
                  s_output_options-tdnoprint = 'X'.
                  s_output_options-tdimmed   = ''.
                  s_output_options-tddest = 'LP01'.        "Spool: Output device
                  s_output_options-tdreceiver = sy-uname.
                  s_output_options-tdcover = ''.
         CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
         EXPORTING
            FORMNAME = 'ZSMART_MM_003'
         IMPORTING
           FM_NAME = V_FORM_NAME
         EXCEPTIONS
           NO_FORM = 1
           NO_FUNCTION_MODULE = 2
           OTHERS = 3.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
         W_CTRLOP-GETOTF = 'X'.
         W_CTRLOP-NO_DIALOG = 'X'.
         W_COMPOP-TDNOPREV = 'X'.
         CALL FUNCTION V_FORM_NAME
         EXPORTING
            CONTROL_PARAMETERS = s_control_parameters
            OUTPUT_OPTIONS = s_output_options
            USER_SETTINGS = ''
            nast          = nast
            WA_ADDRESS    = WA_ADDRESS
         IMPORTING
            JOB_OUTPUT_INFO = W_RETURN
         TABLES
            addtel  = it_addtel
            addsmtp = it_addsmtp
         EXCEPTIONS
            FORMATTING_ERROR = 1
            INTERNAL_ERROR = 2
            SEND_ERROR = 3
            USER_CANCELED = 4
            OTHERS = 5.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Convert SMartform to pdf
      I_OTF[] = W_RETURN-OTFDATA[].
      CALL FUNCTION 'CONVERT_OTF'
      EXPORTING
        FORMAT = 'PDF'
        MAX_LINEWIDTH = 132
      IMPORTING
        BIN_FILESIZE = V_LEN_IN
      TABLES
        OTF = I_OTF
        LINES = I_TLINE
      EXCEPTIONS
       ERR_MAX_LINEWIDTH = 1
       ERR_FORMAT = 2
       ERR_CONV_NOT_POSSIBLE = 3
       OTHERS = 4.
IF SY-SUBRC <> 0.
ENDIF.
      LOOP AT I_TLINE.
        TRANSLATE I_TLINE USING '~'.
        CONCATENATE WA_BUFFER I_TLINE INTO WA_BUFFER.
        ENDLOOP.
        TRANSLATE WA_BUFFER USING '~'.
        DO.
          I_RECORD = WA_BUFFER.
          APPEND I_RECORD.
          SHIFT WA_BUFFER LEFT BY 255 PLACES.
          IF WA_BUFFER IS INITIAL.
            EXIT.
            ENDIF.
            ENDDO.
Attachment
            REFRESH: I_RECLIST,
            I_OBJTXT,
            I_OBJBIN,
            I_OBJPACK.
            CLEAR WA_OBJHEAD.
            I_OBJBIN[] = I_RECORD[].
Create Message Body Title and Description
            I_OBJTXT = 'Sir, '.
            APPEND I_OBJTXT.
            I_OBJTXT = ''.
            APPEND I_OBJTXT.
            I_OBJTXT = 'Please Find Attached '.
            APPEND I_OBJTXT.
            I_OBJTXT = FILENAME.
            APPEND I_OBJTXT.
            I_OBJTXT = 'For your reference'.
            APPEND I_OBJTXT.
            I_OBJTXT = ''.
            APPEND I_OBJTXT.
            I_OBJTXT = 'Regards'.
            APPEND I_OBJTXT.
            I_OBJTXT = CONTACT.
            APPEND I_OBJTXT.
*Mail Subject
            DESCRIBE TABLE I_OBJTXT LINES V_LINES_TXT.
            READ TABLE I_OBJTXT INDEX V_LINES_TXT.
            WA_DOC_CHNG-OBJ_NAME = 'Purchase Order'.
            WA_DOC_CHNG-EXPIRY_DAT = SY-DATUM + 10.
            WA_DOC_CHNG-OBJ_DESCR = 'Purchase Order'.
            WA_DOC_CHNG-SENSITIVTY = 'F'.
            WA_DOC_CHNG-DOC_SIZE = V_LINES_TXT * 255.
Main Text
            CLEAR 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.
Attachment (pdf-Attachment)
            I_OBJPACK-TRANSF_BIN = 'X'.
            I_OBJPACK-HEAD_START = 1.
            I_OBJPACK-HEAD_NUM = 0.
            I_OBJPACK-BODY_START = 1.
            DESCRIBE TABLE I_OBJBIN LINES V_LINES_BIN.
            READ TABLE I_OBJBIN INDEX V_LINES_BIN.
            I_OBJPACK-DOC_SIZE = V_LINES_BIN * 255 .
            I_OBJPACK-BODY_NUM = V_LINES_BIN.
            I_OBJPACK-DOC_TYPE = 'PDF'.
            I_OBJPACK-OBJ_NAME = 'smart'.
            I_OBJPACK-OBJ_DESCR = FILENAME.
            APPEND I_OBJPACK.
            CLEAR I_RECLIST.
            I_RECLIST-RECEIVER = atab-mail.
            I_RECLIST-REC_TYPE = 'U'.
            APPEND I_RECLIST.
            CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
            EXPORTING
              DOCUMENT_DATA = WA_DOC_CHNG
              PUT_IN_OUTBOX = 'X'
              COMMIT_WORK = 'X'
            TABLES
                PACKING_LIST = I_OBJPACK
                OBJECT_HEADER = WA_OBJHEAD
                CONTENTS_BIN = I_OBJBIN
                CONTENTS_TXT = I_OBJTXT
                RECEIVERS = I_RECLIST
            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.
WRITE:/ 'Error When Sending the File', SY-SUBRC.
ELSE.
WRITE:/ 'Mail sent'.
ENDIF.
Regards
Nausal