How do I add text message to this email with PDF attachment?

Question

Good day, everyone!
Okay, we have a "z"-version of program RFFOUS_T and some of its include codes.  One include code, RFFORIO6, has a form called MAIL_PDF_ADVICE.  It is in this form that we are emailing a remittance advice form.  The actual form is attached as a PDF file.
Unfortunately, there's no text in the body of the email -- it's just the attachment -- so the users would like us to add a couple basic lines in the body of the email that explain the attachment.  I'm pretty new to using this particular FM and emailing the PDF attachment, and I've gotten stuck in my research trying to find out exactly how to do this.  I'm guessing this shouldn't be all that difficult, but I'm not finding the right solution.  Here's the form:
*&      Form  mail_pdf_advice
      E-mail PDF advice
     -->IT_ADVICE     PDF form (output from Adobe server)
     -->I_PDF_LEN     length of PDF advice in bytes
FORM mail_pdf_advice USING it_advice   TYPE solix_tab
                           i_pdf_len   TYPE i.
  DATA:
    lt_receivers       TYPE TABLE OF somlreci1 WITH HEADER LINE,
    l_user             LIKE soextreci1-receiver,
    ls_send_doc        LIKE sodocchgi1,
    lt_pdf_attach      TYPE TABLE OF sopcklsti1 WITH HEADER LINE.
  CHECK NOT finaa-intad IS INITIAL.
  CHECK finaa-nacha EQ 'I'.
*--- determine E-Mail sender and recipient
  IF fsabe-usrnam EQ space.
    l_user = sy-uname.
  ELSE.
    l_user = fsabe-usrnam.         "Office-User des Sachbearb.
  ENDIF.
  lt_receivers-receiver = finaa-intad.
  lt_receivers-rec_type = 'U'.      "E-mail address
  APPEND lt_receivers.
  ls_send_doc-obj_descr =  itcpo-tdtitle.
  lt_pdf_attach-transf_bin = 'X'.
  lt_pdf_attach-doc_type   = 'PDF'.
  lt_pdf_attach-obj_langu  = reguh-zspra.
  lt_pdf_attach-body_start = 1.
  lt_pdf_attach-doc_size   = i_pdf_len.
  DESCRIBE TABLE it_advice LINES lt_pdf_attach-body_num.
  APPEND lt_pdf_attach.
  CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
    EXPORTING
      document_data              = ls_send_doc
      sender_address             = l_user
    TABLES
      packing_list               = lt_pdf_attach
      contents_hex               = it_advice
      receivers                  = lt_receivers
    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.
<error checking code snipped>
Does someone know how to do this?  <b><REMOVED BY MODERATOR></b>  Thanks so much in advance!
Dave
Message was edited by:
        Alvaro Tejada Galindo

Answer 1

Hi Dave,
Table <b>contents_bin</b> is used to pass attachment file and <b>contents_txt</b> is used to pass mail body contents. You need to declare one more int table to give contents for mail body.
For reference check the code below
ut_message is for message body
and ut_attach is having attachement file.
  FORM send_file_as_email_attachment TABLES ut_message
                                          ut_attach
                                    USING uv_email
                                          uv_mtitle
                                          uv_format
                                          uv_filename
                                          uv_attdescription
                                          uv_sender_address
                                          uv_sender_addres_type
                                 CHANGING uc_error
                                          uc_reciever.
  DATA:  l_error                TYPE  sy-subrc,
         l_reciever             TYPE  sy-subrc,
         l_mtitle               LIKE  sodocchgi1-obj_descr,
         l_email                LIKE  somlreci1-receiver,
         l_format               TYPE  so_obj_tp ,
         l_attdescription       TYPE  so_obj_nam ,
         l_attfilename          TYPE  so_obj_des ,
         l_sender_address       LIKE  soextreci1-receiver,
         l_sender_address_type  LIKE  soextreci1-adr_typ,
         l_receiver             LIKE  sy-subrc.
  DATA:   lt_packing_list    LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
          lt_contents        LIKE solisti1   OCCURS 0 WITH HEADER LINE,
          lt_receivers       LIKE somlreci1  OCCURS 0 WITH HEADER LINE,
          lt_attachment      LIKE solisti1   OCCURS 0 WITH HEADER LINE,
          lt_object_header   LIKE solisti1   OCCURS 0 WITH HEADER LINE,
          l_cnt TYPE i,
          l_sent_all(1) TYPE c,
          lw_doc_data LIKE sodocchgi1.
  l_email               = uv_email.
  l_mtitle              = uv_mtitle.
  l_format              = uv_format.
  l_attdescription      = uv_attdescription.
  l_attfilename         = uv_filename.
  l_sender_address      = uv_sender_address.
  l_sender_address_type = uv_sender_addres_type.
Fill the document data.
  lw_doc_data-doc_size = 1.
Populate the subject/generic message attributes
  lw_doc_data-obj_langu = sy-langu.
  lw_doc_data-obj_name  = 'SAPRPT'.
  lw_doc_data-obj_descr = l_mtitle.
  lw_doc_data-sensitivty = 'F'.
Fill the document data and get size of attachment
  CLEAR lw_doc_data.
  READ TABLE ut_attach INDEX l_cnt.
  lw_doc_data-doc_size =
     ( l_cnt - 1 ) * 255 + STRLEN( ut_attach ).
  lw_doc_data-obj_langu  = sy-langu.
  lw_doc_data-obj_name   = 'SAPRPT'.
  lw_doc_data-obj_descr  = l_mtitle.
  lw_doc_data-sensitivty = 'F'.
  CLEAR lt_attachment.
  REFRESH lt_attachment.
  lt_attachment[] = ut_attach[].
Describe the body of the message
  CLEAR lt_packing_list.
  REFRESH lt_packing_list.
  lt_packing_list-transf_bin = space.
  lt_packing_list-head_start = 1.
  lt_packing_list-head_num = 0.
  lt_packing_list-body_start = 1.
  DESCRIBE TABLE ut_message LINES lt_packing_list-body_num.
  lt_packing_list-doc_type = 'RAW'.
  APPEND lt_packing_list.
Create attachment notification
  lt_packing_list-transf_bin = 'X'.
  lt_packing_list-head_start = 1.
  lt_packing_list-head_num   = 1.
  lt_packing_list-body_start = 1.
  DESCRIBE TABLE lt_attachment LINES lt_packing_list-body_num.
  lt_packing_list-doc_type   =  l_format.
  lt_packing_list-obj_descr  =  l_attdescription.
  lt_packing_list-obj_name   =  l_attfilename.
  lt_packing_list-doc_size   =  lt_packing_list-body_num * 255.
  APPEND lt_packing_list.
Add the recipients email address
  CLEAR lt_receivers.
  REFRESH lt_receivers.
  lt_receivers-receiver = l_email.
  lt_receivers-rec_type = 'U'.
  lt_receivers-com_type = 'INT'.
  lt_receivers-notif_del = 'X'.
  lt_receivers-notif_ndel = 'X'.
  APPEND lt_receivers.
  CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
    EXPORTING
      document_data              = lw_doc_data
      put_in_outbox              = 'X'
      commit_work                = 'X'
    IMPORTING
      sent_to_all                = l_sent_all
    TABLES
      packing_list               = lt_packing_list
      contents_bin               = lt_attachment
      contents_txt               = ut_message
      receivers                  = lt_receivers
    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.
Message was edited by:
        Amit Kumar