How to retrive the archived (in PDF) smartform as a email attachment.

Question

Hi ,
I have a requirement where the smartform is archived in PDF mode and I have to retrieve the archived smartfrom and send the mail with PDf attachment.
I referred the sdn forum for the same and I could some posts posted earlier and quite a few are solved. I implemented the sample code provided by some of the posts and I still get the same error when I try to open the mail/attachment in SOST transaction. But I didnt understand what exactly they did to get away with the error when we try to open the attachment.
Please help me with the correct code to get this issue solved.
Thanks a lot in advance.
Regards,
Naresh

Answer 1

Hi Sim,
The Error says:
"Adobe reader could not open 'InvoiceDetails_20110228094610.709_X.pdf' because it is either not a supported file or because the file has been damaged(for example, it was sent as an email attachment and wasn't correctly decorded).
Below is the sample code that I got from one of the forum postings. I implemented the same and got the same error that the earlier posting was referring. From that step, I didnt know what to do further.
*// Internal Table Declarations
DATA : li_toa01 TYPE TABLE OF toa01,
       li_archivobject TYPE TABLE OF docs,
       li_binarchivobject TYPE TABLE OF tbl1024,
       li_objcont TYPE TABLE OF soli,
       li_receivers TYPE TABLE OF soos1.
*// Work Area Declarations
DATA : lwa_toa01 TYPE toa01,
       lwa_objcont TYPE soli,
       lwa_receivers TYPE soos1,
       lwa_archivobject TYPE docs,
       lwa_binarchivobject TYPE tbl1024.
*// Variable Declaration
DATA : lv_length   TYPE num12,
       lv_binlength TYPE num12,
       lv_buffer TYPE xstring,
       lv_x TYPE i.
DATA : wa_objbin TYPE solisti1,
       i_objbin TYPE TABLE OF solisti1,
       wa_objtxt TYPE solisti1,
       i_objtxt TYPE TABLE OF solisti1.
DATA : wa_doc_chng TYPE sodocchgi1,
       w_l1 TYPE i.
DATA : wa_objpack TYPE sopcklsti1,
       i_objpack TYPE TABLE OF sopcklsti1.
DATA : wa_reclist TYPE somlreci1,
       i_reclist TYPE TABLE OF somlreci1.
CALL FUNCTION 'ARCHIVOBJECT_GET_TABLE'
          EXPORTING
            archiv_id                      = 'ZF'
            document_type                  = 'PDF'
            archiv_doc_id                  = 'DF88D06227DFAEF1A31D0050568361B1'
*           ALL_COMPONENTS                 =
*           SIGNATURE                      = 'X'
*           COMPID                         = 'data'
          IMPORTING
            length                         = lv_length
            binlength                      = lv_binlength
          TABLES
            archivobject                   = li_archivobject
            binarchivobject                = li_binarchivobject
*         EXCEPTIONS
*           ERROR_ARCHIV                   = 1
*           ERROR_COMMUNICATIONTABLE       = 2
*           ERROR_KERNEL                   = 3
*           OTHERS                         = 4
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
LOOP AT li_binarchivobject INTO lwa_binarchivobject.
  CONCATENATE lv_buffer lwa_binarchivobject-line INTO lv_buffer
  IN BYTE MODE.
ENDLOOP.
lv_x = 0.
DO.
  wa_objbin-line = lv_buffer+lv_x.
  APPEND wa_objbin TO i_objbin.
  lv_x = lv_x + 255.
  IF lv_x GT lv_binlength.
    EXIT.
  ENDIF.
ENDDO.
wa_objtxt = 'Test Mail'.
APPEND wa_objtxt TO i_objtxt.
CLEAR wa_doc_chng.
wa_doc_chng-obj_name = 'Invoice Details'.
wa_doc_chng-obj_descr = 'Invoice Details'.
DESCRIBE TABLE i_objtxt LINES w_l1.
READ TABLE i_objtxt INTO wa_objtxt INDEX w_l1.
wa_doc_chng-doc_size = ( w_l1 - 1 ) * 255 + strlen( wa_objtxt ).
CLEAR wa_objpack-transf_bin.
wa_objpack-head_start = 1.
wa_objpack-head_num = 0.
wa_objpack-body_start = 1.
wa_objpack-body_num = w_l1.
wa_objpack-doc_type = 'PDF'.
APPEND wa_objpack TO i_objpack.
CLEAR wa_objpack.
wa_objpack-transf_bin = 'X'.
wa_objpack-head_start = 1.
wa_objpack-head_num = 1.
wa_objpack-doc_type = 'DAT'.
wa_objpack-body_num = w_l1 .
wa_objpack-doc_size = w_l1 * lv_binlength .
wa_objpack-obj_name = 'TEST'.
wa_objpack-obj_descr = 'Naresh'.
APPEND wa_objpack TO i_objpack.
wa_reclist-receiver =   -->emailaddress given.
wa_reclist-rec_type = 'U'.
APPEND wa_reclist TO i_reclist.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
  document_data = wa_doc_chng
  put_in_outbox = 'X'
  commit_work = 'X'
* IMPORTING
* SENT_TO_ALL =
* NEW_OBJECT_ID =
TABLES
  packing_list = i_objpack
* OBJECT_HEADER =
  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.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.