How to send SD Invioce by email to customer?

Question

Hello friends,
Since every day we need to spend 4 hours to collect invoice(SD) and send it by outlook manually, lot of time is wasted.
Requirement: when invoice (SD) is processing, or when invoice is saved, the invoice is converted to a pdf file and send it to the creater automaticlly, then the creater can edit and review the email, then creater sends the email to customer.
Could you please give me some suggestion or solution?
Thank you very much.
If really helpful, lots points will be given. Thanks again.

Answer 1

just take this example code and try to understand the scenario of converting the otf to pdf and then attaching the document in pdf format .
REPORT zmail2 LINE-SIZE 250 LINE-COUNT 250 .
TABLES : vbap.
SELECT-OPTIONS: s_vbeln FOR vbap-vbeln.
DATA : BEGIN OF itab_data OCCURS 1,
       vbeln LIKE vbap-vbeln,
       posnr LIKE vbap-posnr,
       matnr LIKE vbap-matnr,
       END OF itab_data.
DATA : v_date LIKE sy-datum.
DATA: tlines type i,
      len_in like SOOD-OBJLEN,
      len_out like SOOD-OBJLEN.
SELECT vbeln posnr matnr
       FROM vbap
       INTO TABLE itab_data
       WHERE vbeln IN s_vbeln.
PERFORM send_mail.
*       FORM SEND_MAIL                                                *
FORM send_mail.
  DATA: objpack   LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE.
  DATA: objhead   LIKE solisti1 OCCURS 1 WITH HEADER LINE.
  DATA: objbin    LIKE solisti1 OCCURS 10 WITH HEADER LINE.
  DATA: objbin2    LIKE solisti1 OCCURS 10 WITH HEADER LINE.
  DATA: objtxt    LIKE solisti1 OCCURS 10 WITH HEADER LINE.
  DATA: reclist   LIKE somlreci1 OCCURS 5 WITH HEADER LINE.
  DATA: doc_chng  LIKE sodocchgi1.
  DATA: tab_lines LIKE sy-tabix.
* Creation of the document to be sent
* File Name
  doc_chng-obj_name = 'MAIL'.
* Mail Subject
  doc_chng-obj_descr = 'Mail Has Been Delivered'.
* Mail Contents
  objtxt = 'Check the orders along with the material numbers'.
  APPEND objtxt.
  DESCRIBE TABLE objtxt LINES tab_lines.
  READ TABLE objtxt INDEX tab_lines.
  doc_chng-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ).
* Creation of the entry for the compressed document
  CLEAR objpack-transf_bin.
  objpack-head_start = 1.
  objpack-head_num = 0.
  objpack-body_start = 1.
  objpack-body_num = tab_lines.
*  objpack-doc_type = 'XLS'.
  objpack-doc_type = 'PDF'.
  APPEND objpack.
* Creation of the document attachment
  LOOP AT itab_data.
  move itab_data-vbeln to objbin .
  move itab_data-posnr to objbin+18 .
  move itab_data-matnr to objbin+40.
  append objbin.
  clear objbin.
  ENDLOOP.
*CONVERT the output of itab from raw to OTf format.
  CALL FUNCTION 'SX_OBJECT_CONVERT_SCR_OTF'
    EXPORTING
      format_src            = 'RAW'
      format_dst            = 'OTF'
      devtype               = 'POSTSCPT'
      funcpara              = ' '
      len_in                = LEN_IN
   IMPORTING
     LEN_OUT                = LEN_OUT
    tables
      content_in            = OBJBIN
      content_out           = OBJBIN2
   EXCEPTIONS
     ERR_CONV_FAILED       = 1
     OTHERS                = 2
  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 the format from otf to PDF
CALL FUNCTION 'SX_OBJECT_CONVERT_OTF_PDF'
  EXPORTING
    format_src            = 'OTF'
    format_dst            = 'PDF'
    devtype               = 'POSTSCPT'
    FUNCPARA              = ' '
    len_in                = LEN_IN
IMPORTING
   LEN_OUT                = LEN_OUT
  tables
    content_in            = OBJBIN2
    content_out           = OBJBIN
EXCEPTIONS
   ERR_CONV_FAILED       = 1
   OTHERS                = 2
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
REFRESH OBJBIN2.
  DESCRIBE TABLE objbin LINES tab_lines.
  objhead = 'ORDERS'.
  APPEND objhead.
** Creation of the entry for the compressed attachment
  objpack-transf_bin = 'X'.
  objpack-head_start = 1.
  objpack-head_num   = 1.
  objpack-body_start = 1.
  objpack-body_num   = tab_lines.
  objpack-doc_type   = 'PDF'.
  objpack-obj_name   = 'WEBSITE'.
  objpack-obj_descr  = 'Sales ORDERS'.
  objpack-doc_size   = tab_lines * 255.
  APPEND objpack.
* Completing the recipient list
* target recipent
  CLEAR reclist.
  reclist-receiver = '[email protected]'.
  reclist-express  = 'X'.
  reclist-rec_type = 'U'.
  reclist-rec_date = v_date.
  APPEND reclist.
* copy recipents
  CLEAR reclist.
  reclist-receiver = '[email protected]'.
  reclist-express  = 'X'.
  reclist-rec_type = 'U'.
  reclist-copy     = 'X'.
  APPEND reclist.
* Sending the document
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
       EXPORTING
            document_data              = doc_chng
            PUT_IN_OUTBOX              = 'X'
       TABLES
            packing_list               = objpack
            object_header              = objhead
            contents_bin               = objbin
            contents_txt               = objtxt
            receivers                  = reclist
       EXCEPTIONS
            too_many_receivers         = 1
            document_not_sent          = 2
            operation_no_authorization = 4
            OTHERS                     = 99.
  CASE sy-subrc.
    WHEN 0.
      WRITE: / 'Result of the send process:'.
      LOOP AT reclist.
        WRITE: / reclist-receiver(48), ':'.
        IF reclist-retrn_code = 0.
          WRITE 'The document was sent'.
        ELSE.
          WRITE 'The document could not be sent'.
        ENDIF.
      ENDLOOP.
    WHEN 1.
      WRITE: / 'No authorization for sending to the specified number'.
    WHEN 2.
      WRITE: / 'Document could not be sent to any recipient'.
    WHEN 4.
      WRITE: / 'No send authorization'.
    WHEN OTHERS.
    WRITE: / 'Error occurred while sending'.
  ENDCASE.
ENDFORM
.                    " SEND_MAIL
try to run this and see the mail in tcode SBWP in the outbox documents ..
regards,
vijay