Pdf in mail

Question

I converted a sapscript to pdf. If I download this file and check its contents, all is fine and the logo in the sapscript appears fine as well. Now I have to send the pdf as an attachment through e-m to the user. I open the pdf attachment in my e-m but it's not opened properly. If I remove logo everything is fine and the contents of pdf is fine in attachment.
What have to be done to get logo and contents perfect as an attachment?

Answer 1

hi naty,
https://www.sdn.sap.com/irj/servlet/prt/portal/prtroot/docs/library/uuid/d4fe7fca-0b01-0010-569a-9a9c1ddf4132
SAP Send mail via ABAP functions SO_NEW_DOCUMENT_SEND_API1
This abap mail sending program demonstrate how you can send a mail to the user SAP Office mailbox.
REPORT ZSEND .
TABLES: KNA1.
data for send function
DATA DOC_DATA  LIKE SODOCCHGI1.
DATA OBJECT_ID LIKE SOODK.
DATA OBJCONT   LIKE SOLI OCCURS 10 WITH HEADER LINE.
DATA RECEIVER  LIKE SOMLRECI1 OCCURS 1 WITH HEADER LINE.
SELECT * FROM KNA1 WHERE ANRED LIKE 'C%'.
  WRITE:/ KNA1-KUNNR, KNA1-ANRED.
send data internal table
  CONCATENATE KNA1-KUNNR KNA1-ANRED
                         INTO OBJCONT-LINE SEPARATED BY SPACE.
  APPEND OBJCONT.
ENDSELECT.
insert receiver (sap name)
  REFRESH RECEIVER.
  CLEAR RECEIVER.
  MOVE: SY-UNAME TO RECEIVER-RECEIVER,
        'X'      TO RECEIVER-EXPRESS,
        'B'      TO RECEIVER-REC_TYPE.
  APPEND RECEIVER.
insert mail description
  WRITE 'Sending a mail through abap'
                 TO DOC_DATA-OBJ_DESCR.
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
     EXPORTING
          DOCUMENT_DATA              = DOC_DATA
     IMPORTING
          NEW_OBJECT_ID              = OBJECT_ID
     TABLES
          OBJECT_CONTENT             = OBJCONT
          RECEIVERS                  = RECEIVER
     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.
smartform to mail
Data declaration .....
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
   EXPORTING
     formname           = 'Z_REPORT'
   IMPORTING
     fm_name            = v_form_name
   EXCEPTIONS
     no_form            = 1
     no_function_module = 2
     OTHERS             = 3.
   IF sy-subrc <> 0.
   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
   WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
   w_ctrlop-getotf    = 'X'.
w_ctrlop-no_dialog = 'X'.
w_compop-tdnoprev  = 'X'.
w_compop-tddest    = 'Locl'.
   w_ctrlop-no_dialog = 'X'.
w_ctrlop-device = 'PRINTER'.
   CALL FUNCTION v_form_name
   EXPORTING
     control_parameters = w_ctrlop
     output_options     = w_compop
     user_settings      = ' '
     l_load             = p_load
   IMPORTING
     job_output_info    = w_return
   TABLES
     i_output           = i_output
   EXCEPTIONS
     formatting_error   = 1
     internal_error     = 2
     send_error         = 3
     user_canceled      = 4
     OTHERS             = 5.
   IF sy-subrc <> 0.
   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
   WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
   i_otf[] = w_return-otfdata[].
CALL FUNCTION 'CONVERT_OTF'
   EXPORTING
     format                = 'PDF'
     max_linewidth         = 132
   IMPORTING
     bin_filesize          = v_len_in
   TABLES
     otf                   = i_otf
     lines                 = i_tline
   EXCEPTIONS
     err_max_linewidth     = 1
     err_format            = 2
     err_conv_not_possible = 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.
Convert PDF from 132 to 255.
LOOP AT i_tline.
Replacing space by ~
   TRANSLATE i_tline USING ' ~'.
   CONCATENATE w_buffer i_tline INTO w_buffer.
ENDLOOP.
Replacing ~ by space
TRANSLATE w_buffer USING '~ '.
   DO.
   i_record = w_buffer.
Appending 255 characters as a record
   APPEND i_record.
   SHIFT w_buffer LEFT BY 255 PLACES.
   IF w_buffer IS INITIAL.
     EXIT.
   ENDIF.
ENDDO.
   REFRESH: i_reclist,
          i_objtxt,
          i_objbin,
          i_objpack.
CLEAR w_objhead.
Object with PDF.
i_objbin[] = i_record[].
DESCRIBE TABLE i_objbin LINES v_lines_bin.
Object with main text of the mail.
i_objtxt = text-002.
APPEND i_objtxt.
CLEAR i_objtxt.
APPEND i_objtxt.
i_objtxt = 'Kind regards,'.
APPEND i_objtxt.
i_objtxt = 'Client facing team'.
APPEND i_objtxt.
DESCRIBE TABLE i_objtxt LINES v_lines_txt.
Document information.
w_doc_chng-obj_name = 'Smartform'.
w_doc_chng-expiry_dat = sy-datum + 10.
w_doc_chng-obj_descr = 'Shipment Summary Report'.
w_doc_chng-sensitivty = 'O'. "Standard
w_doc_chng-doc_size = v_lines_txt * 255.
Pack to main body as RAW.
Obj. to be transported not in binary form
CLEAR i_objpack-transf_bin.
Start line of object header in transport packet
i_objpack-head_start = 1.
Number of lines of an object header in object packet
i_objpack-head_num = 0.
Start line of object contents in an object packet
i_objpack-body_start = 1.
Number of lines of the object contents in an object packet
i_objpack-body_num = v_lines_txt.
Code for document class
i_objpack-doc_type = 'RAW'.
APPEND i_objpack.
Packing as PDF.
i_objpack-transf_bin = 'X'.
i_objpack-head_start = 1.
i_objpack-head_num = 1.
i_objpack-body_start = 1.
i_objpack-body_num = v_lines_bin.
i_objpack-doc_type = 'PDF'.
i_objpack-obj_name = 'Smartform'.
CONCATENATE 'Hazard report-' p_load '.pdf' INTO i_objpack-obj_descr.
i_objpack-doc_size = v_lines_bin * 255.
APPEND i_objpack.
IF sy-subrc = 0.
   LOOP AT i_misc INTO w_misc.
     i_reclist-receiver = w_misc-z_value_1.
     i_reclist-express = 'X'.
     i_reclist-rec_type = 'U'. "Internet address
     APPEND i_reclist.
   ENDLOOP.
Sending mail.
   CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
     EXPORTING
       document_data              = w_doc_chng
       put_in_outbox              = 'X'
       commit_work                = 'X'
     TABLES
       packing_list               = i_objpack
       object_header              = w_objhead
       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.
   ELSE.
     CALL FUNCTION 'POPUP_TO_INFORM'
       EXPORTING
         titel = 'Mail sent'(003)
         txt1  = 'The report is sent via e-mail.'(004)
         txt2  = '  '.
     LEAVE PROGRAM.
   ENDIF.
ELSE.
   CALL FUNCTION 'POPUP_TO_INFORM'
     EXPORTING
       titel = 'No e-mail specified'(005)
       txt1  = 'You need to maintain the e-mail adress in table'(006)
       txt2  = text-007.
   LEAVE PROGRAM.
ENDIF.
thanks
karthik