Smartform to PDF conversion

Question

Hi Experts ,
I am sending an e-mail aith a PDF attachment , the attachment contains a greeting card (BIT MAP file),
When i find the mail , PDF is opening with error 'Drawing Error Occured'.
Pls find the sample code ...
          CALL FUNCTION V_FORM_NAME
            EXPORTING
              ARCHIVE_PARAMETERS = W_ARCLOP
              CONTROL_PARAMETERS = W_CTRLOP
              OUTPUT_OPTIONS     = W_COMPOP
              USER_SETTINGS      = 'X'
            IMPORTING
              JOB_OUTPUT_INFO    = W_RETURN
            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.
          CHECK NOT ( I_TLINE[] IS INITIAL ).
          DATA :LV_COUNTER  TYPE I.
          DATA :LV_FROM     TYPE I.
          LOOP AT I_TLINE.
            TRANSLATE  I_TLINE USING ' ~' .
         CONCATENATE IT_ATTACHMENT_LONG I_TLINE INTO IT_ATTACHMENT_LONG
          ENDLOOP.
          TRANSLATE  IT_ATTACHMENT_LONG USING '~ ' .
          APPEND IT_ATTACHMENT_LONG.
          CLEAR : LV_COUNTER.
          DO.
            LV_COUNTER = STRLEN( IT_ATTACHMENT_LONG ).
            IF LV_COUNTER GE 255.
              IT_ATTACHMENT = IT_ATTACHMENT_LONG(255).
              APPEND IT_ATTACHMENT.
              SHIFT IT_ATTACHMENT_LONG BY 255 PLACES.
            ELSE.
              IT_ATTACHMENT = IT_ATTACHMENT_LONG(LV_COUNTER).
              APPEND IT_ATTACHMENT.
              EXIT.
            ENDIF.
          ENDDO.
*END:ADDED COMMENTS LINE BY SUHAS 27.01.2007
          DESCRIBE TABLE LT_OBJTXT LINES L_TAB_LINES.
          READ TABLE LT_OBJTXT INDEX L_TAB_LINES.
          LE_DOC_CHNG-DOC_SIZE = ( L_TAB_LINES - 1 ) * 255
                                  + STRLEN( LT_OBJTXT ).
  Title of the email as spool name
  CONCATENATE 'Happy Birthday :'  T522T-ATEXT PA0002-VORNA PA0002-NACHN
  INTO TITLE SEPARATED BY SPACE.
          LV_DOCUMENT_DATA-OBJ_DESCR = TITLE.
          LV_DOCUMENT_DATA-SENSITIVTY = 'O'.
          LV_DOCUMENT_DATA-EXPIRY_DAT = SY-DATUM + 15.
          LV_DOCUMENT_DATA-DOC_SIZE = STRLEN( LT_OBJTXT ).
  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 = L_TAB_LINES.
          LT_OBJPACK-DOC_TYPE = 'RAW'.
          APPEND LT_OBJPACK.
*START:ADDED COMMENTS BY SUHAS 27.01.2007
  For e-mail attachment
          DESCRIBE TABLE IT_ATTACHMENT LINES L_ATT_LINES.
          READ TABLE IT_ATTACHMENT INDEX L_ATT_LINES.
*END:ADDED COMMENTS BY SUHAS 27.01.2007
*START:ADDED COMMENTS BY SUHAS 27.01.2007
          CLEAR LT_OBJPACK.
          LT_OBJPACK-TRANSF_BIN = 'X'.
          LT_OBJPACK-HEAD_START = 1.
          LT_OBJPACK-HEAD_NUM = 1.
          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 = LV_SPOOL_DESC.
          LT_OBJPACK-DOC_SIZE = ( 255 * ( L_ATT_LINES - 1 ) ) +
STRLEN(
          IT_ATTACHMENT-LINE ).
          LT_OBJPACK-OBJ_NAME   = 'Salary Slip'.
          LT_OBJPACK-OBJ_NAME   = TITLE.
          WRITE SY-DATUM TO LT_OBJPACK-OBJ_DESCR.
          CONCATENATE 'Bday' LT_OBJPACK-OBJ_DESCR INTO
    LT_OBJPACK-OBJ_DESCR
          SEPARATED BY SPACE.
          CONCATENATE LT_OBJPACK-OBJ_DESCR '.PDF' INTO
    LT_OBJPACK-OBJ_DESCR.
          APPEND LT_OBJPACK.
*END:ADDED COMMENTS BY SUHAS 27.01.2007
          LT_RECLIST-RECEIVER = PA0105-USRID_LONG.
          LT_RECLIST-REC_TYPE = 'U'.
          APPEND LT_RECLIST.
          CLEAR LT_RECLIST.
          LT_RECLIST-RECEIVER = V_RESMAIL.
          LT_RECLIST-REC_TYPE = 'U'.
          APPEND LT_RECLIST.
          CLEAR LT_RECLIST.
*START:ADDED LINE BY SUHAS 25.01.08
          SELECT SINGLE BUKRS INTO PA0001-BUKRS
          FROM PA0001
          WHERE PERNR EQ IT_PA0001-PERNR AND
                BEGDA LE SY-DATUM AND
                ENDDA GE SY-DATUM.
          SELECT A~PERNR INTO CORRESPONDING FIELDS OF TABLE IT_PR
          FROM ZHR_BIRTHDAY AS A INNER JOIN PA0001 AS B ON
               APERNR EQ BPERNR
          WHERE A~DFLAG = '' AND
                B~BUKRS EQ PA0001-BUKRS AND
                B~BEGDA LE SY-DATUM AND
                B~ENDDA GE SY-DATUM.
          LOOP AT IT_PR.
            SELECT SINGLE USRID_LONG INTO PA0105-USRID_LONG
            FROM PA0105
            WHERE PERNR = IT_PR-PERNR AND
                  SUBTY = '0010' AND
                  BEGDA LE SY-DATUM AND
                  ENDDA GE SY-DATUM.
            IF SY-SUBRC = 0.
              LT_RECLIST-RECEIVER = PA0105-USRID_LONG.
              LT_RECLIST-REC_TYPE = 'U'.
              APPEND LT_RECLIST.
            ENDIF.
          ENDLOOP.
*END:ADDED LINE BY SUHAS 25.01.08
Provide Employee Email List Cost Centerwise.
          IF IT_PA0001-KOSTL NE ''.
            SELECT PERNR INTO PA0001-PERNR
            FROM PA0001
            WHERE KOSTL = IT_PA0001-KOSTL AND
                  BEGDA LE SY-DATUM AND
                  ENDDA GE SY-DATUM.
              IF SY-SUBRC = 0.
*CHECKING EMPLOYEE ACTIVE STATUS.
                CALL FUNCTION 'RP_GET_FIRE_DATE'
                EXPORTING
                  PERSNR         = PA0001-PERNR
    STATUS2        = '0'
               IMPORTING
                  FIREDATE       = FIRE_DATE1.
                IF FIRE_DATE1 IS NOT INITIAL.
                ELSE.
                  SELECT SINGLE USRID_LONG INTO PA0105-USRID_LONG
                  FROM PA0105
                  WHERE PERNR = PA0001-PERNR AND
                        SUBTY = '0010' AND
                        BEGDA LE SY-DATUM AND
                        ENDDA GE SY-DATUM.
                  IF SY-SUBRC = 0.
                    LT_RECLIST-RECEIVER = PA0105-USRID_LONG.
                    LT_RECLIST-REC_TYPE = 'U'.
                    APPEND LT_RECLIST.
                  ENDIF.
                ENDIF.
              ENDIF.
            ENDSELECT.
          ENDIF.
for it department employee
         SELECT SINGLE PERNR INTO PA0001-PERNR
         FROM PA0001
         WHERE PERNR EQ IT_PA0001-PERNR AND
               KOSTL IN S_KOSTL.
         IF SY-SUBRC = 0.
           SELECT PERNR INTO PA0001-PERNR
           FROM PA0001
           WHERE PERNR IN S_RESPER AND
                 KOSTL IN S_KOSTL.
             SELECT SINGLE USRID_LONG INTO PA0105-USRID_LONG
              FROM PA0105
              WHERE PERNR = PA0001-PERNR AND
                    SUBTY = '0010' AND
                    BEGDA LE SY-DATUM AND
                    ENDDA GE SY-DATUM.
             IF SY-SUBRC = 0.
               LT_RECLIST-RECEIVER = PA0105-USRID_LONG.
               LT_RECLIST-REC_TYPE = 'U'.
               APPEND LT_RECLIST.
             ENDIF.
           ENDSELECT.
         ENDIF.
  send mail with attachment
          CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
            EXPORTING
              DOCUMENT_DATA              = LV_DOCUMENT_DATA
              PUT_IN_OUTBOX              = 'X'
              COMMIT_WORK                = '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.
          CASE SY-SUBRC.
            WHEN 0.
              WRITE: / 'Many many happy returns of the day '.
              LOOP AT LT_RECLIST.
                IF LT_RECLIST-RETRN_CODE = 0.
                  WRITE '...sent successfully!!!'.
                ELSE.
                  WRITE 'not sent'.
                ENDIF.
              ENDLOOP.
            WHEN 1.
            WHEN 2.
        WRITE: / 'document could not be sent to any of the recipients!'.
            WHEN 4.
              WRITE: / 'no authorization to send !'.
            WHEN OTHERS.
              WRITE: / 'error occurred during sending !'.
          ENDCASE.
          REFRESH:LT_RECLIST.
          CLEAR:MI_RQIDENT,LV_SPOOL_DESC,MC_VALID,
IT_ATTACHMENT_LONG,IT_ATTACHMENT,LV_DOCUMENT_DATA,MSTR_PRINT_PARMS,
          LE_DOC_CHNG,LV_DOCUMENT_DATA,V_EMAIL,V_CELL,V_EXT.
          REFRESH:LT_PDF,IT_ATTACHMENT_LONG,IT_ATTACHMENT,
MAIL_BODY,LT_OBJTXT,LT_OBJPACK,IT_ATTACHMENT,LT_OBJPACK,LT_RECLIST,
          LT_OBJHEAD,IT_ATTACHMENT,LT_OBJTXT.
        ENDIF.
      ENDIF.
    ENDIF.
   ENDIF.
  ENDLOOP.
Pls check ...

Answer 1

Hi,
check whther that Image avilable in the system or not.
and same time check the Size of the image.