Create pdf attachment to the mail

Question

Hi folks,
My requirement is to attach pdf document to the mail step in workflow programatically and document is on presentation server.
     i have tried with SOFM object type, but it is asking for document number , but i could not  provide it because it is not in SAP system.
   how to acheive this.
Thanks, 
janakiram.

Answer 1

try this  copy and paste is and make changes as required
Enjoy.............
To create pdf from internal table.
Two steps
1. get spool no.
2. create pdf.
1. get spool no.
SELECT *
  FROM zwftrack
  INTO TABLE it_zwftrack
WHERE wf_id = p_wf_id
   AND action = 'FYA'.
  CALL FUNCTION 'GET_PRINT_PARAMETERS'
    EXPORTING destination            = 'LP01'               " 'LT50'
              copies                 =  1
              list_name              = g_rq2name
              list_text              = 'COMM-PDF NEW-PAGE PRINT ON'
              immediately            = ' '
              release                = ' '
              new_list_id            = 'X'
              expiration             = g_days
              line_size              = g_ln_size              " 255 ZTG12
              line_count             = g_ln_count             " 65 ZTG12
              layout                 = g_layout " 'X_PAPER'ZTG12
             SAP_COVER_PAGE         = 'X'
             RECEIVER               = 'SAP*'
             DEPARTMENT             = 'System'
             SAP_OBJECT             = 'RS'
             AR_OBJECT              = 'TEST'
             ARCHIVE_ID             = 'XX'
             ARCHIVE_INFO           = 'III'
             ARCHIVE_TEXT           = 'Description'
              no_dialog              = 'X'
    IMPORTING out_parameters         = g_params
              out_archive_parameters = g_arparams
              valid                  = g_valid.
"end of get
  NEW-PAGE PRINT ON
                    NEW-SECTION
                    NO-TITLE
                    PARAMETERS g_params
                    ARCHIVE PARAMETERS g_arparams
              NO DIALOG.
***add at top of comments list
WRITE:/ 'Contract Analysis Worksheet', 150 'Current Data ( ', l_date, ' ', l_time, ' )'.
WRITE:/150 'Run # :', wa_zzbedsheet-bdshnum.
WRITE:/ 'Project ID      :',g_object_no.
WRITE:/ 'Project         :',g_psr_desc.
WRITE:/ 'Profit Center   :',g_prctr.
WRITE:/ 'Project Manager :',g_final_abb_contact.
WRITE:/ 'RA key          :',g_abgsl.
WRITE:/ 'Customer        :',l_cust.
WRITE:/ 'Project Start   :',l_proj_start.
SKIP 3.
SORT it_zwftrack BY approver_level.
  LOOP AT it_zwftrack INTO wa_zwftrack.
    AT FIRST.
WRITE:/ 'Approvers Comments:'.
SKIP 1.
WRITE:/1 'Role', 35 'Approved By', 50 'Signature', 75 'Comments'.
ULINE.
ENDAT.
    IF wa_zwftrack IS INITIAL.
      SKIP.
    ELSE.
PERFORM f_get_name USING    wa_zwftrack-approved_by
                   CHANGING g_final_abb_contact.
      WRITE :/ wa_zwftrack-role UNDER 'Role',
               g_final_abb_contact UNDER 'Approved By',
               wa_zwftrack-signature UNDER 'Signature',
               wa_zwftrack-comments UNDER 'Comments'.
    ENDIF.
    CLEAR: g_final_abb_contact.
insert page break
    IF sy-tabix = w_lines  .
      NEW-PAGE .
    w_lines = 2 * w_lines.
    ENDIF.
  ENDLOOP.
    NEW-PAGE PRINT OFF .
CLEAR w_tsp01.
SELECT SINGLE *
  FROM tsp01
  INTO w_tsp01
WHERE rqowner = sy-uname
   AND rq2name = g_rq2name.        "'COMM-PDF' .
g_spool_comm = w_tsp01-rqident.
2. create pdf
    CLEAR g_lines .
    REFRESH it_tab1 .
****get comments page from spool
    CALL FUNCTION 'RSPO_RETURN_ABAP_SPOOLJOB'
      EXPORTING
        rqident              = g_spool_comm                      "spool1
      TABLES
        buffer               = it_tab1
      EXCEPTIONS
        no_such_job          = 1
        job_contains_no_data = 2
        selection_empty      = 3
        no_permission        = 4
        can_not_access       = 5
        read_error           = 6
        OTHERS               = 8.
    IF sy-subrc = 0.
    ENDIF.
to record line no  for page break .
    DESCRIBE TABLE it_tab1 LINES g_lines.
    MOVE g_lines TO wa_eof-line .
    APPEND  wa_eof TO it_eof .
    CLEAR g_lines .
    APPEND LINES OF it_tab1 TO it_tab.
    REFRESH it_tab1 .
SELECT SINGLE spld INTO w_spld FROM usr01 WHERE bname = sy-uname.
SHIFT g_wf_id LEFT DELETING LEADING '0'.
CONCATENATE g_wf_id '-ONEPDF' INTO g_list_name.
CALL FUNCTION 'GET_PRINT_PARAMETERS'
    EXPORTING destination            = w_spld               " 'LT50'
              copies                 =  1
              list_name              = g_list_name
              list_text              = 'PM-PDF NEW-PAGE PRINT ON'
              immediately            = ' '
              release                = ' '
              new_list_id            = 'X'
              expiration             = g_days
              line_size              = g_ln_size              " 255 ZTG12
              line_count             = g_ln_count             " 65 ZTG12
              layout                 = g_layout " 'X_PAPER'ZTG12
             SAP_COVER_PAGE         = 'X'
             RECEIVER               = 'SAP*'
             DEPARTMENT             = 'System'
             SAP_OBJECT             = 'RS'
             AR_OBJECT              = 'TEST'
             ARCHIVE_ID             = 'XX'
             ARCHIVE_INFO           = 'III'
             ARCHIVE_TEXT           = 'Description'
              no_dialog              = 'X'
    IMPORTING out_parameters         = g_params
              out_archive_parameters = g_arparams
              valid                  = g_valid.
  NEW-PAGE PRINT ON
                  NEW-SECTION
                  NO-TITLE
                  PARAMETERS g_params
                  ARCHIVE PARAMETERS g_arparams
           NO DIALOG.
  w_idx =  1 . " for reading EOF line no .
  w_tabix  = 0  .
  READ TABLE it_eof INTO wa_eof INDEX w_idx .
  MOVE  wa_eof-line TO g_lines .
  w_lines = w_tabix + g_lines .
  DATA: w_linestr LIKE sy-tabix .                           "#EC NEEDED
  LOOP AT it_tab INTO wa_tab.
    IF wa_tab-line CP   'Current Budget'  .
      w_linestr  =  sy-tabix .
    ENDIF .
    IF wa_tab IS INITIAL OR wa_tab-line CA '?' .        " ZTG15
      SKIP  .                                               " ZTG15
    ELSE .   " ZTXX
      WRITE /  wa_tab  .
    ENDIF .                                                 " ZTG15
insert page break
    IF sy-tabix = w_lines  .
      NEW-PAGE .
      w_idx = w_idx + 1 .
      w_tabix =  sy-tabix + w_tabix .
      READ TABLE it_eof INTO wa_eof INDEX w_idx .
      MOVE  wa_eof-line TO g_lines .
      w_lines = w_tabix + g_lines .
      CLEAR: w_tabix.
    ENDIF .
  ENDLOOP .
  NEW-PAGE PRINT OFF .
  CLEAR w_tsp01.
SELECT * INTO TABLE t_tsp01 FROM tsp01
  WHERE rqowner = sy-uname
  AND rq2name = g_list_name .
IF sy-subrc = 0  .
   SORT t_tsp01 BY rqcretime DESCENDING . "RBE24 rqident DESCENDING .
ENDIF .
READ TABLE t_tsp01 INTO W_TSP01 INDEX 1 .
CLEAR w_tsp01.
SELECT SINGLE *
  FROM tsp01
  INTO w_tsp01
WHERE rqowner = sy-uname
   AND rq2name = g_list_name.        "'COMM-PDF' .
  WHILE  g_numbytes  = 0 .
    CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
        EXPORTING
          src_spoolid                    = w_tsp01-rqident  "spoolno
          no_dialog                      = ' '
      DST_DEVICE                     =
      PDF_DESTINATION                =
        IMPORTING
          pdf_bytecount                  = g_numbytes
          pdf_spoolid                    = g_pdfspoolid
      LIST_PAGECOUNT                 =
          btc_jobname                    = g_jobname
          btc_jobcount                   = g_jobcount
        TABLES
          pdf                            = it_pdf
        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.
  ENDWHILE.
**DATA : DATA_TAB TYPE TABLE.
  CALL FUNCTION 'GUI_DOWNLOAD'
    EXPORTING
     bin_filesize                    = g_numbytes
      filename                        = g_lv_file
     filetype                        = 'BIN'
   IMPORTING
     filelength                      = g_numbytes
    TABLES
      data_tab                        = it_pdf
  FIELDNAMES                      =
   EXCEPTIONS
     file_write_error                = 1
     no_batch                        = 2
     gui_refuse_filetransfer         = 3
     invalid_type                    = 4
     no_authority                    = 5
     unknown_error                   = 6
     header_not_allowed              = 7
     separator_not_allowed           = 8
     filesize_not_allowed            = 9
     header_too_long                 = 10
     dp_error_create                 = 11
     dp_error_send                   = 12
     dp_error_write                  = 13
     unknown_dp_error                = 14
     access_denied                   = 15
     dp_out_of_memory                = 16
     disk_full                       = 17
     dp_timeout                      = 18
     file_not_found                  = 19
     dataprovider_exception          = 20
     control_flush_error             = 21
     OTHERS                          = 22
  IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
  ENDIF.
report ZTEST12345678.
tables:
tsp01.
*STRUCTURES
parameters:
p_repid like sy-repid, " Report to execute
p_linsz like sy-linsz default 255, " Line size
p_paart like sy-paart default 'X_65_132'. " Paper Format
data:
mstr_print_parms like pri_params,
mc_valid(1) type c,
mi_bytecount type i,
mi_length type i,
mi_rqident like tsp01-rqident.
*INTERNAL TABLES
data:
mtab_pdf like tline occurs 0 with header line,
mc_filename TYPE string.
*----Data for 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: 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.
DATA: V_MAILID(241) TYPE C .
DATA: BEGIN OF DATA_TAB OCCURS 20,
LINE(255),
END OF DATA_TAB.
start-of-selection.
concatenate 'c:\abap\'
p_repid
'.pdf'
into mc_filename.
*Setup the Print Parmaters
call function 'GET_PRINT_PARAMETERS'
exporting
authority = space
copies = '1'
cover_page = space
data_set = space
department = space
destination = space
expiration = '1'
immediately = space
*in_archive_parameters = space
*in_parameters = space
layout = space
mode = space
new_list_id = 'X'
no_dialog = 'X'
user = sy-uname
importing
out_parameters = mstr_print_parms
valid = mc_valid
exceptions
archive_info_not_found = 1
invalid_print_params = 2
invalid_archive_params = 3
others = 4.
*Make sure that a printer destination has been set up
*If this is not done the PDF function module ABENDS
if mstr_print_parms-pdest = space.
mstr_print_parms-pdest = 'LP01'.
endif.
*Explicitly set line width, and output format so that
*the PDF conversion comes out OK
mstr_print_parms-linsz = p_linsz.
mstr_print_parms-paart = p_paart.
submit (p_repid) to sap-spool without spool dynpro
spool parameters mstr_print_parms
via selection-screen
and return.
CALL FUNCTION 'ENQUE_SLEEP'
EXPORTING
seconds = 2.
*Find out what the spool number is that was just created
P_REPID = SY-REPID.
perform get_spool_number using p_repid sy-uname
changing mi_rqident.
*Convert Spool to PDF
call function 'CONVERT_ABAPSPOOLJOB_2_PDF'
exporting
src_spoolid = mi_rqident
no_dialog = space
dst_device = mstr_print_parms-pdest
importing
pdf_bytecount = mi_bytecount
tables
pdf = mtab_pdf
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.
perform create_mail_data.
PERFORM SEND_MAIL.
*FORM get_spool_number
*Get the most recent spool created by user/report *
*--> F_REPID *
*--> F_UNAME *
*--> F_RQIDENT *
form get_spool_number using f_repid
f_uname changing f_rqident.
data: lc_rq2name like tsp01-rq2name.
concatenate f_repid+0(8)
f_uname+0(3)
into lc_rq2name separated by '_'.
concatenate f_repid+0(9)
f_uname+0(3)
into lc_rq2name.
select * from tsp01 where rq2name = lc_rq2name
order by rqcretime descending.
f_rqident = tsp01-rqident.
exit.
endselect.
if sy-subrc ne 0.
clear f_rqident.
endif.
endform." get_spool_number
**& Form create_mail_data
form create_mail_data.
*Creation of the document to be sent
DOC_CHNG-OBJ_NAME = 'TEST MAIL ATTACHMENTS'.
DOC_CHNG-OBJ_DESCR = 'Test for PDF'.
OBJTXT = 'Contents of mail'.
APPEND OBJTXT.
OBJTXT = 'PDF'.
APPEND OBJTXT.
OBJTXT = 'PDF'.
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 = 'RAW'.
APPEND OBJPACK.
*-DOWNLOADING AND AGAIN UPLOADINGIN BIN FORMAT TO TRANSFER TO OBJBIN
*MC_FILENAME = 'c:\test.doc' .
*--pdf--
*MC_FILENAME = 'c:\test.pdf'.
CALL FUNCTION 'GUI_DOWNLOAD'
  EXPORTING
   BIN_FILESIZE                    = MI_BYTECOUNT
    filename                        = MC_FILENAME
   FILETYPE                        = 'BIN'
  APPEND                          = ' '
  WRITE_FIELD_SEPARATOR           = ' '
  HEADER                          = '00'
  TRUNC_TRAILING_BLANKS           = ' '
  WRITE_LF                        = 'X'
  COL_SELECT                      = ' '
  COL_SELECT_MASK                 = ' '
  DAT_MODE                        = ' '
  CONFIRM_OVERWRITE               = ' '
  NO_AUTH_CHECK                   = ' '
  CODEPAGE                        = ' '
  IGNORE_CERR                     = ABAP_TRUE
  REPLACEMENT                     = '#'
  WRITE_BOM                       = ' '
  TRUNC_TRAILING_BLANKS_EOL       = 'X'
  WK1_N_FORMAT                    = ' '
  WK1_N_SIZE                      = ' '
  WK1_T_FORMAT                    = ' '
  WK1_T_SIZE                      = ' '
  WRITE_LF_AFTER_LAST_LINE        = ABAP_TRUE
  SHOW_TRANSFER_STATUS            = ABAP_TRUE
IMPORTING
  FILELENGTH                      =
  tables
    data_tab                        = MTAB_PDF[]
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*CALL FUNCTION 'GUI_DOWNLOAD'
*EXPORTING
*BIN_FILESIZE = MI_BYTECOUNT
*FILENAME = MC_FILENAME
*FILETYPE = 'BIN'
*TABLES
*DATA_TAB = MTAB_PDF
*EXCEPTIONS
*FILE_OPEN_ERROR = 1
*FILE_WRITE_ERROR = 2
*INVALID_FILESIZE = 3
*INVALID_TYPE = 4
*NO_BATCH = 5
*UNKNOWN_ERROR = 6
*INVALID_TABLE_WIDTH = 7
*GUI_REFUSE_FILETRANSFER = 8
*CUSTOMER_ERROR = 9
*OTHERS = 10.
CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
    filename                      = MC_FILENAME
   FILETYPE                      = 'BIN'
  HAS_FIELD_SEPARATOR           = ' '
  HEADER_LENGTH                 = 0
  READ_BY_LINE                  = 'X'
  DAT_MODE                      = ' '
  CODEPAGE                      = ' '
  IGNORE_CERR                   = ABAP_TRUE
  REPLACEMENT                   = '#'
  CHECK_BOM                     = ' '
  VIRUS_SCAN_PROFILE            =
  NO_AUTH_CHECK                 = ' '
IMPORTING
  FILELENGTH                    =
  HEADER                        =
  tables
    data_tab                      = OBJBIN
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
*CALL FUNCTION 'GUI_UPLOAD'
*EXPORTING
*FILENAME = MC_FILENAME
*FILETYPE = 'BIN'
*TABLES
*DATA_TAB = OBJBIN.
*--uncommnet this for pdf--
DESCRIBE TABLE OBJBIN LINES TAB_LINES.
OBJHEAD = 'TEST.pdf'. 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 = 'Testing PDF Attachment'.
OBJPACK-OBJ_DESCR = 'Customes Ageing report PDF Output Attachment'.
OBJPACK-DOC_SIZE = TAB_LINES * 255.
APPEND OBJPACK.
CLEAR V_MAILID.
V_MAILID = <mail id>.
RECLIST-RECEIVER = V_MAILID.
RECLIST-REC_TYPE = 'U'.  "B for SAP Inbox
APPEND RECLIST.
endform. " create_mail_data
**& Form SEND_MAIL
form SEND_MAIL.
Sending the document
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
DOCUMENT_DATA = DOC_CHNG
PUT_IN_OUTBOX = 'X'
commit_work = '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.
*EXCEPTION HANDLING
CASE SY-SUBRC.
WHEN 0.
WRITE: / 'Mail sent with attachment'.
WHEN 1.
WRITE: / 'No authorization for sending to the specified number',
'of recipients'.
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