Sending mail in PDF format in background

Question

Hi,
I am running a program in backgorund.
After the completion, I am convertin gthe spool into PDF format and sending it to mail.
In SAP 4.6 B it was working.
But now in SAP 4.7 the mail is not working.
Regular mails are going from SAP.
What could be the reason?.
Regards
Elini.P

Answer 1

Dear Paul,
Here is the code for sending mail through ABAP converting Spool in PDF in background.
  if sy-batch eq 'X'.
    perform get_job_details.
    perform obtain_spool_id.
    perform convert_spool_to_pdf.
    perform process_email.
    if p_delspl eq 'X'.
      perform delete_spool.
    endif.
    if sy-sysid = c_dev.
      wait up to 5 seconds.
      submit rsconn01 with mode = 'INT'
                      with output = 'X'
                                      and return.
    endif.
  else.
    skip.
    write:/ 'Program must be executed in background in-order for spool',
    'request to be created.'.
  endif.
*&      Form  GET_JOB_DETAILS
      text
-->  p1        text
<--  p2        text
form get_job_details.
Get current job details
  call function 'GET_JOB_RUNTIME_INFO'
       importing
            eventid                 = gd_eventid
            eventparm               = gd_eventparm
            external_program_active = gd_external_program_active
            jobcount                = gd_jobcount
            jobname                 = gd_jobname
            stepcount               = gd_stepcount
       exceptions
            no_runtime_info         = 1
            others                  = 2.
endform.                    " GET_JOB_DETAILS
*&      Form  OBTAIN_SPOOL_ID
      text
-->  p1        text
<--  p2        text
form obtain_spool_id.
  check not ( gd_jobname is initial ).
  check not ( gd_jobcount is initial ).
  select * from tbtcp into table it_tbtcp
  where jobname = gd_jobname
    and jobcount = gd_jobcount
    and stepcount = gd_stepcount
    and listident <> '0000000000'
    order by jobname
             jobcount
             stepcount.
  read table it_tbtcp into wa_tbtcp index 1.
  if sy-subrc = 0.
    message s004(zdd) with gd_spool_nr.
    gd_spool_nr = wa_tbtcp-listident.
    message s004(zdd) with gd_spool_nr.
  else.
    message s005(zdd).
  endif.
endform.                    " OBTAIN_SPOOL_ID
*&      Form  CONVERT_SPOOL_TO_PDF
      text
-->  p1        text
<--  p2        text
form convert_spool_to_pdf.
  call function 'CONVERT_ABAPSPOOLJOB_2_PDF'
       exporting
            src_spoolid              = gd_spool_nr
            no_dialog                = c_no
            dst_device               = c_device
       importing
            pdf_bytecount            = gd_bytecount
       tables
            pdf                      = it_pdf_output
       exceptions
            err_no_abap_spooljob     = 1
            err_no_spooljob          = 2
            err_no_permission        = 3
            err_conv_not_possible    = 4
            err_bad_destdevice       = 5
            user_cancelled           = 6
            err_spoolerror           = 7
            err_temseerror           = 8
            err_btcjob_open_failed   = 9
            err_btcjob_submit_failed = 10
            err_btcjob_close_failed  = 11
            others                   = 12.
  check sy-subrc = 0.
Transfer the 132-long strings to 255-long strings
  loop at it_pdf_output.
    translate it_pdf_output using ' ~'.
    concatenate gd_buffer it_pdf_output into gd_buffer.
  endloop.
  translate gd_buffer using '~ '.
  do.
    it_mess_att = gd_buffer.
    append it_mess_att.
    shift gd_buffer left by 255 places.
    if gd_buffer is initial.
      exit.
    endif.
  enddo.
endform.                    " CONVERT_SPOOL_TO_PDF
*&      Form  PROCESS_EMAIL
      text
-->  p1        text
<--  p2        text
form process_email.
  describe table it_mess_att lines gd_recsize.
  check gd_recsize > 0.
  perform send_email using p_email1.
endform.                    " PROCESS_EMAIL
*&      Form  SEND_EMAIL
      text
     -->P_P_EMAIL1  text
form send_email using    p_email.
  check not ( p_email is initial ).
  refresh it_mess_bod.
Default subject matter
  gd_subject = 'Subject'.
  gd_attachment_desc = 'Attachname'.
CONCATENATE 'attach_name' ' ' INTO gd_attachment_name.
  it_mess_bod = 'SCGL - Purchase Order in 050'.
  append it_mess_bod.
  it_mess_bod = 'Success or Error messages'.
  append it_mess_bod.
If no sender specified - default blank
  if p_sender eq space.
    gd_sender_type = space.
  else.
    gd_sender_type = 'INT'.
  endif.
Add the recipients email address
  open dataset file for input in text mode.
  if sy-subrc = 0.
    do.
      read dataset file into itab_receivers.
      if sy-subrc = 0.
        append itab_receivers.
      else.
        exit.
      endif.
    enddo.
  endif.
  close dataset file.
  loop at itab_receivers.
    clear: p_email.
    p_email = itab_receivers-receiver.
Send file by email as .xls speadsheet
    perform send_file_as_email_attachment
                      tables it_mess_bod
                             it_mess_att
                       using p_email
                            'SCGL Purchase Order IN 050'
                            'PDF'
                             gd_attachment_name
                             gd_attachment_desc
                             p_sender
                             gd_sender_type
                    changing gd_error
                             gd_reciever.
  endloop.
endform.                    " SEND_EMAIL
*&      Form  SEND_FILE_AS_EMAIL_ATTACHMENT
      text
     -->P_IT_MESS_BOD  text
     -->P_IT_MESS_ATT  text
     -->P_P_EMAIL  text
     -->P_1572   text
     -->P_1573   text
     -->P_GD_ATTACHMENT_NAME  text
     -->P_GD_ATTACHMENT_DESC  text
     -->P_P_SENDER  text
     -->P_GD_SENDER_TYPE  text
     <--P_GD_ERROR  text
     <--P_GD_RECIEVER  text
form send_file_as_email_attachment tables it_message
                                          it_attach
                                   using p_email
                                         p_mtitle
                                         p_format
                                         p_filename
                                         p_attdescription
                                         p_sender_address
                                         p_sender_addres_type
                                   changing p_error
                                            p_reciever.
  ld_email = p_email.
  ld_mtitle = p_mtitle.
  ld_format = p_format.
  ld_attdescription = p_attdescription.
  ld_attfilename = p_filename.
  ld_sender_address = p_sender_address.
  ld_sender_address_type = p_sender_addres_type.
Fill the document data.
  w_doc_data-doc_size = 1.
Populate the subject/generic message attributes
  w_doc_data-obj_langu = sy-langu.
  w_doc_data-obj_name = 'SAPRPT'.
  w_doc_data-obj_descr = ld_mtitle .
  w_doc_data-sensitivty = 'F'.
Fill the document data and get size of attachment
  clear w_doc_data.
  read table it_attach index w_cnt.
  w_doc_data-doc_size =
  ( w_cnt - 1 ) * 255 + strlen( it_attach ).
  w_doc_data-obj_langu = sy-langu.
  w_doc_data-obj_name = 'SAPRPT'.
  w_doc_data-obj_descr = ld_mtitle.
  w_doc_data-sensitivty = 'F'.
  clear t_attachment.
  refresh t_attachment.
  t_attachment[] = it_attach[].
Describe the body of the message
  clear t_packing_list.
  refresh t_packing_list.
  t_packing_list-transf_bin = space.
  t_packing_list-head_start = 1.
  t_packing_list-head_num = 0.
  t_packing_list-body_start = 1.
  describe table it_message lines t_packing_list-body_num.
  t_packing_list-doc_type = 'RAW'.
  append t_packing_list.
Create attachment notification
  t_packing_list-transf_bin = 'X'.
  t_packing_list-head_start = 1.
  t_packing_list-head_num = 1.
  t_packing_list-body_start = 1.
  describe table t_attachment lines t_packing_list-body_num.
  t_packing_list-doc_type = ld_format.
  t_packing_list-obj_descr = ld_attdescription.
  t_packing_list-obj_name = ld_attfilename.
  t_packing_list-doc_size = t_packing_list-body_num * 255.
  append t_packing_list.
Add the recipients email address
  clear t_receivers.
  refresh t_receivers.
  t_receivers-receiver = ld_email.
  t_receivers-rec_type = 'U'.
  t_receivers-com_type = 'INT'.
  t_receivers-notif_del = 'X'.
  t_receivers-notif_ndel = 'X'.
  append t_receivers.
  call function 'SO_DOCUMENT_SEND_API1'
       exporting
            document_data              = w_doc_data
            put_in_outbox              = 'X'
            sender_address             = ld_sender_address
            sender_address_type        = ld_sender_address_type
            commit_work                = 'X'
       importing
            sent_to_all                = w_sent_all
       tables
            packing_list               = t_packing_list
            contents_bin               = t_attachment
            contents_txt               = it_message
            receivers                  = t_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.
Populate zerror return code
  ld_error = sy-subrc.
Populate zreceiver return code
  loop at t_receivers.
    ld_receiver = t_receivers-retrn_code.
  endloop.
endform.                    " SEND_FILE_AS_EMAIL_ATTACHMENT
*&      Form  DELETE_SPOOL
      text
-->  p1        text
<--  p2        text
form delete_spool.
  data: ld_spool_nr type tsp01_sp0r-rqid_char.
  ld_spool_nr = gd_spool_nr.
  check p_delspl <> c_no.
  call function 'RSPO_R_RDELETE_SPOOLREQ'
       exporting
            spoolid = ld_spool_nr.
endform.                    " DELETE_SPOOL