Sending PDF to SAP Outbox - Urgent

Question

Hi All,
  I try to send a SAP mail with PDF Attachment throught a Program. Its sending the mail along with the attachment. But when i try to open the PDF in SAP Outbox, its giving formating error and file is not getting opend. The code as follows. Anybody code give us the solution.
[code
*& Report  ZHH_TEST_CODE3                                              *
REPORT  ZHH_TEST_CODE3                          .
DATA: it_attachment TYPE soli OCCURS 0 WITH HEADER LINE.
Hold contents of attachment file for use by email
perform send_email USING '[email protected]' 'C:\TEST1.PDF'.
FORM send_email USING p_email p_filename.
DATA:     lt_objpack LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE,
          lt_objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE,
          lt_objbin LIKE solisti1 OCCURS 10 WITH HEADER LINE,
          lt_objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE,
          lt_reclist LIKE somlreci1 OCCURS 5 WITH HEADER LINE,
          l_document_data TYPE sodocchgi1.
DATA: l_att_lines TYPE i.
CHECK NOT ( p_email IS INITIAL ).
CLEAR:    lt_reclist, lt_reclist[],
          lt_objhead, lt_objhead[],
          lt_objtxt, lt_objtxt[],
          lt_objbin, lt_objbin[],
          lt_objpack, lt_objpack[].
CLEAR l_document_data.
Read in file to attach to internal table it_attachment
PERFORM read_attach_file USING p_filename.
CHeck that attach file has been read
CHECK NOT ( it_attachment[] IS INITIAL ).
Body of email
MOVE 'This is the body of email' TO lt_objtxt.
APPEND lt_objtxt.
l_document_data-obj_name = 'Xtract'.
Title of email
MOVE 'This is the title of the email' TO l_document_data-obj_descr.
l_document_data-sensitivty = 'O'.
l_document_data-expiry_dat = sy-datum + 10.
l_document_data-doc_size = STRLEN( lt_objtxt ).
Settings for e-mail body
CLEAR lt_objpack.
lt_objpack-head_start = 1.
lt_objpack-head_num = 0.
lt_objpack-body_start = 1.
lt_objpack-body_num = 1.
lt_objpack-doc_type = 'RAW'.
lt_objpack-doc_size = STRLEN( lt_objtxt ).
APPEND lt_objpack.
Settings for e-mail attachment
DESCRIBE TABLE it_attachment LINES l_att_lines.
READ TABLE it_attachment INDEX l_att_lines.
CLEAR lt_objpack.
lt_objpack-transf_bin = 'X'.
lt_objpack-head_start = 1.
lt_objpack-head_num = 0.
lt_objpack-body_start = 1.
lt_objpack-body_num = l_att_lines.
lt_objpack-doc_type = 'PDF'.
lt_objpack-obj_name = 'email'.
lt_objpack-obj_descr = 'KANBAN'.
lt_objpack-doc_size = ( 255 * ( l_att_lines - 1 ) ) + STRLEN( it_attachment-line ).
APPEND lt_objpack.
make recipient list
lt_reclist-receiver = p_email.
lt_reclist-rec_type = 'U'.      "OUT OF SAP user
APPEND lt_reclist.
send mail with attachment
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = l_document_data
put_in_outbox = 'X'
TABLES
packing_list = lt_objpack
object_header = lt_objhead
contents_bin = it_attachment
contents_txt = lt_objtxt
receivers = lt_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.
write:/ 'successful sending'.
else.
write:/ 'failure in sending'.
endif.
ENDFORM. " send_email
FORM read_attach_file USING p_filename TYPE string.
DATA:   act_filetype LIKE rlgrap-filetype,
        act_filename LIKE rlgrap-filename,
        h_filename LIKE rlgrap-filename,
        doc_length LIKE soxwd-doc_length,
        f_cancelled LIKE sonv-flag,
        file_put_to_kpro LIKE sonv-flag,
        def_filename(12),
        l_filetype TYPE rlgrap-filetype.
l_filetype = 'PDF'.
def_filename = 'TEST1.PDF'.
REFRESH it_attachment.
CALL FUNCTION 'SO_OBJECT_UPLOAD'
EXPORTING
default_filename = def_filename
filetype = l_filetype
path_and_file = 'C:\TEST1.PDF'
*no_dialog = 'X'
IMPORTING
filelength = doc_length
f_cancelled = f_cancelled
act_filename = act_filename
act_filetype = act_filetype
file_put_to_kpro = file_put_to_kpro
TABLES
objcont = it_attachment
EXCEPTIONS
file_read_error = 1
invalid_type = 2
x_error = 3
object_type_not_allowed = 4
kpro_insert_error = 5
OTHERS = 6.
if sy-subrc = 0.
write:/  'file uploaded'.
else.
write:/ 'problem in uploading'.
endif.
ENDFORM. " upload_file
[/code]
And I promise to return and reward the answers.
With Regards,
Raja T.

Answer 1

Hi,
Check the sy-subrc value while reading the attachement in the function module 'SO_OBJECT_UPLOAD'.If it is not zero,then there is problem there itself.
Check these link for sample coding.
http://www.sap-img.com/fu016.htm
Re: Sending e-mails using ABAP
Have a look at this sample coding also.
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: 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 L_NUM(3).
Creation of the document to be sent
File Name
  DOC_CHNG-OBJ_NAME = 'SENDFILE'.
Mail Subject
  DOC_CHNG-OBJ_DESCR = 'Delivered Mail'.
Mail Contents
  OBJTXT = 'Object text'.
  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.
Creation of the document attachment
  LOOP AT ITAB_DATA.
    CONCATENATE ITAB_DATA-PRODUCTOR
                ITAB_DATA-VBELN
                ITAB_DATA-POSNR
                ITAB_DATA-MATNR INTO OBJBIN.
    APPEND OBJBIN.
  ENDLOOP.
  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   = 'TXT'.
  OBJPACK-OBJ_NAME   = 'WEBSITE'.
  OBJPACK-OBJ_DESCR  = 'ORDERS.TXT'.
  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'.
  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
       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.
ENDFORM.                    " SEND_MAIL
Check this link also.
http://www.sapdevelopment.co.uk/reporting/email/emailhome.htm
Message was edited by: Jayanthi Jayaraman