How can I to send an email with a longer than 50 characters subject?

Question

I'm trying to send an email through an abap program ( report ), but when the email arrives to the SOST transaction the subject is cut to 50 characters. How can I send an email with a longer than 50 characters subject?

Answer 1

check this below code and do changes in ur report
FORM SEND_MAIL_SUPPORT  TABLES   P_EM_BODY
                        USING    P_TITLE.
*_ Start of the code to send an email notification
  DATA : ATTACH_REC TYPE I.
  DATA: OBJPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE,
        OBJHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE,
        OBJBIN LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE,
        OBJTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE,
        DOC_CHNG LIKE SODOCCHGI1,
        TAB_LINES LIKE SY-TABIX.
Creation of the document to be sent
  DOC_CHNG-OBJ_NAME = 'Mat Attach'(010).
  DOC_CHNG-OBJ_DESCR = P_TITLE.
  APPEND LINES OF P_EM_BODY TO 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.
  DESCRIBE TABLE IT_ERROR LINES ATTACH_REC.
  IF ATTACH_REC GE '1'.
*Start of email attachement of internal table conversition
   APPEND LINES OF IT_ERROR TO OBJBIN.
WRITE: '----
' TO OBJBIN.
APPEND OBJBIN.
CLEAR OBJBIN.
CONCATENATE 'CCode.' 'A/CDocNum.' '  FYear.' 'DType.' 'PDate.' '  RefField.' INTO
             V_TEXT SEPARATED BY ' '.
APPEND V_TEXT TO OBJBIN.
CLEAR V_TEXT.
WRITE: '----
' TO OBJBIN.
APPEND OBJBIN.
CLEAR OBJBIN.
LOOP AT IT_ERROR.
CONCATENATE IT_ERROR-BUKRS IT_ERROR-BELNR IT_ERROR-GJAHR IT_ERROR-BLART
             IT_ERROR-BUDAT IT_ERROR-STATUS INTO V_TEXT SEPARATED BY '   '.
APPEND V_TEXT TO OBJBIN.
CLEAR V_TEXT.
ENDLOOP.
WRITE: '----
' TO OBJBIN.
APPEND OBJBIN.
CLEAR OBJBIN.
    DESCRIBE TABLE OBJBIN LINES OBJPACK-BODY_NUM.
    OBJPACK-TRANSF_BIN = 'X'.
    OBJPACK-HEAD_START = 1.
    OBJPACK-HEAD_NUM = 1.
    OBJPACK-BODY_START = 1.
    OBJPACK-DOC_SIZE = OBJPACK-BODY_NUM * 255.
    OBJPACK-DOC_TYPE = 'RAW'.
    OBJPACK-OBJ_DESCR = 'List of Error Documents'(012).  " Description
    APPEND OBJPACK. CLEAR OBJPACK.
  ENDIF.
  RECLIST-RECEIVER = S_EMAIL-LOW.
  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
      PUT_IN_OUTBOX              = 'X'
      COMMIT_WORK                = 'X'
    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.
*CHECK SY-SUBRC = 0.
ENDFORM.                    " SEND_MAIL_SUPPORT