CONVERT SAP SCRIPT TO PDF AND SEND MAIL

[former_member227911]

Hi,

I got the requirement to convert a SAP Script to PDF and a Mail to SOST.

But for me Mail is going to SOST, And the PDF options came . But when i click On PDF i couldn't open the Form. Its shows some Error.

  CALL FUNCTION 'CLOSE_FORM'
IMPORTING
RESULT  = RESULT
tables
otfdata = lt_otf
EXCEPTIONS
OTHERS  = 1.

************************************************************************************
** Convert the OTF File Obtained in a PDF File
************************************************************************************
data: lv_binstr type XSTRING.

CALL FUNCTION 'CONVERT_OTF'
EXPORTING
FORMAT                      = 'PDF'
MAX_LINEWIDTH               = 132
PDF_DELETE_OTFTAB           = ' '
IMPORTING
bin_filesize                = lv_file_size
bin_file                    = lv_binstr
TABLES
otf                         = lt_otf
lines                                                 = lt_pdf
.

************************************************************************************
** Convert the Xstring To BINARY
************************************************************************************
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
EXPORTING
buffer     = lv_binstr
TABLES
binary_tab = lt_binary_tab.

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data                    = ls_gd_doc_data
PUT_IN_OUTBOX                    = 'X'
COMMIT_WORK                      = 'X'
tables
packing_list                     = lt_packing_list
OBJECT_HEADER                    = lt_mail_head
CONTENTS_BIN                     = lt_mail_bin
CONTENTS_TXT                     = lt_mailtext
contents_hex                     = lt_binary_tab
receivers                        = lt_receivers
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
.
ENDFORM.                    " ZSEND_MAIL

  LEAR:   ls_mail_bin, ls_mail_head, ls_packing_list.


DESCRIBE TABLE lt_mailtext LINES TAB_LINES.
READ TABLE lt_mailtext Into ls_mailtext INDEX TAB_LINES.
ls_gd_doc_data-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( ls_mailtext ).

*#  Creation of the entry for the compressed document CLEAR MAILPACK-TRANSF_BIN.
ls_packing_list-HEAD_START = 1.
ls_packing_list-HEAD_NUM = 0.
ls_packing_list-BODY_START = 1.
ls_packing_list-BODY_NUM = TAB_LINES.
ls_packing_list-DOC_TYPE = 'RAW'.
APPEND ls_packing_list to lt_packing_list.
CLEAR ls_packing_list.


***********************************************************************************
** To Get the OTF
***********************************************************************************

*PERFORM get_otf.


LOOP AT lt_SOLISTI1 INTO ls_SOLISTI1.
MOVE-CORRESPONDING ls_SOLISTI1 TO lt_mail_bin.
APPEND ls_mail_bin to lt_mail_bin.
CLEAR ls_mail_bin.
ENDLOOP.

DESCRIBE TABLE lt_mail_bin LINES TAB_LINES.
ls_mail_head = 'TEST.OTF'.
APPEND ls_mail_head to lt_mail_head.
CLEAR ls_mail_head.

*  Creation of the entry for the compressed attachment
ls_packing_list-TRANSF_BIN = 'X'.
ls_packing_list-HEAD_START = 1.
ls_packing_list-HEAD_NUM = 1.
ls_packing_list-BODY_START = 1.
ls_packing_list-BODY_NUM = TAB_LINES.
ls_packing_list-DOC_TYPE = 'OTF'.
ls_packing_list-OBJ_NAME = 'TEST'.
ls_packing_list-OBJ_DESCR = 'Subject'.
*MAILPACK-DOC_SIZE = TAB_LINES * 255.
APPEND ls_packing_list to lt_packing_list.
CLEAR ls_packing_list.

endform

Regards,

Sadiq K