SO_NEW_DOCUMENT_ATT_SEND_API1

SO_NEW_DOCUMENT_ATT_SEND_API1

Hallo,

ich möchte mit genanntem Baustein ein PDF als Anhang versenden, welches ursprünglich aus einem SmartForm erstellt wird. Die OTF Datei erstelle ich direkt aus der SmartForm Ausgabe.

Im ersten Schritt konvertiere ich OTF nach PDF

i_otf = w_return_mail-otfdata.

CALL FUNCTION 'CONVERT_OTF'
EXPORTING
format = 'PDF'
max_linewidth = 255
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.

REFRESH: i_reclist,
i_objtxt,
i_objbin,
i_objpack.
CLEAR w_objhead.

* Object with PDF.
i_objbin = i_tline.

DESCRIBE TABLE i_objbin LINES v_lines_bin.


Dann hänge ich das PDF an eine Mail. Mit dem Baustein kann ich die Mail auch fehlerfrei incl. Anhang erstellen. Leider kann ich die PDF Datei nicht öffen.Es kommt eine Meldung, dass das Dokument unter Umständen beschädigt sei.

Folgendes Coding erstellt die Mail:

* Object with main text of the mail.
i_objtxt = 'Sehr geehrte Damen und Herren,'.
APPEND i_objtxt.

CLEAR i_objtxt.
APPEND i_objtxt.

i_objtxt = 'Bei Rückfragen stehen wir Ihnen jederzeit zur Verfügung.'.
APPEND i_objtxt.

CLEAR i_objtxt.
APPEND i_objtxt.

DESCRIBE TABLE i_objtxt LINES v_lines_txt.



* Document information.
w_doc_chng-obj_name = 'XXX'.
w_doc_chng-expiry_dat = sy-datum + 10.
w_doc_chng-obj_descr = 'XXX'.
w_doc_chng-sensitivty = '0'.
w_doc_chng-doc_size = ( v_lines_txt - 1 ) * 255 + STRLEN ( i_objtxt ).

CLEAR i_objpack-transf_bin.

i_objpack-head_start = 1.
i_objpack-head_num = 0.
i_objpack-body_start = 1.
i_objpack-body_num = v_lines_txt.
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 'XXX' '.pdf'
INTO i_objpack-obj_descr.
i_objpack-doc_size = ( v_lines_bin - 1 ) * 255 + STRLEN( i_objbin ).
APPEND i_objpack.

* Document information.
CLEAR i_reclist.
i_reclist-receiver = ab_kopf-smtp_addr.
i_reclist-express = 'X'.
i_reclist-rec_type = 'U'. "Internet address
APPEND i_reclist.

* Sending mail.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = w_doc_chng
put_in_outbox = '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.
COMMIT WORK.
ENDIF.
ENDIF.

Ich suche schon eine lange Zeit in diversen Foren.

In der Tabelle SXFORMATG stehen diese Einträge:

004 FAXXYZ PCL FAX
004 FAXXYZ TIF FAX

und auch mit dem FuBa QCE1_CONVERT habe ich schon mein Glück versucht. Den habe ich vor dem SO_NEW_DOCUMENT_ATT_SEND_API1 aufgerufen und die T_TARGET_TAB im SO_NEW_DOCUMENT_ATT_SEND_API1 als CONTENTS_BIN angegeben.

Es hatte keinen Erfolg.

Oder habe ich ein alte PDF Version? SAP ist SAP ECC 6.0 und mein Adobe Reader 9.4.6. Zusätzlich findet die ganze Orgie noch in einem UNICODE Umfeld statt.

Wer hat eine Idee woran es liegt?


Danke und viele Grüße

Norbert

Re: SO_NEW_DOCUMENT_ATT_SEND_API1

Hallo,

so geht es.

Danke und Viele Grüße

Norbert