Mail attachment .ics is transformed to .msg and lost content

Question

Hello,
I've a little problem in sending a mail with attachment with SO_NEW_DOCUMENT_ATT_SEND_API1
The System is ECC6
I've made a little function to generate and send a mail with an ICS file attached (iCal, i send a meeting request)
My problem is when the mail is sent, the attachment seems to be changed, i send Meeting.ics and i receive Untitled.msg empty
The problem is the same if i use my business workplace to send the mail with the same ICS attachment, i receive untitled.msg empty
I was wondering if SAP have to know the file type, so i've tried with a file with .xyz extension.... all works perfectly, so no, SAP does't have to
Here is the code for information
the code is configured to send an xyz file that works perfectly for me, i need the same with .ics (even if i begin to think that is a basis/exchange problem)
Maybe somebody can confirm this
Sorry for indent, i didn't found how to put this cleanly
  DATA: tab_lines LIKE sy-tabix.
* Variables for EMAIL functionality
  DATA: maildata   LIKE sodocchgi1.
  DATA: mailpack   LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE.
  DATA: mailhead   LIKE solisti1 OCCURS 1 WITH HEADER LINE.
  DATA: mailbin    LIKE solisti1 OCCURS 10 WITH HEADER LINE.
  DATA: mailtxt    LIKE solisti1 OCCURS 10 WITH HEADER LINE.
  DATA: mailrec    LIKE somlrec90 OCCURS 0  WITH HEADER LINE.
  DATA: solisti1   LIKE solisti1 OCCURS 0 WITH HEADER LINE.
*                            START PROGRAM                             *
*Clear all internal data
  CLEAR:    maildata, mailtxt, mailbin, mailpack, mailhead, mailrec.
  REFRESH:  mailtxt, mailbin, mailpack, mailhead, mailrec.
  CLEAR:    mailpack, mailbin, mailhead.
  REFRESH:  mailpack, mailbin, mailhead.
* Mail Subject
  maildata-obj_descr = subject_mail.
* Mail text
  LOOP AT body_mail.
    concatenate mailtxt-line body_mail-line CL_ABAP_CHAR_UTILITIES=>CR_LF into mailtxt-line.
  ENDLOOP.
  APPEND mailtxt.
* Prepare Packing List
  DESCRIBE TABLE mailtxt LINES tab_lines.
  READ TABLE mailtxt INDEX tab_lines.
  maildata-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( mailtxt ).
* Creation of the entry for the text document
  CLEAR mailpack-transf_bin.
  mailpack-head_start = 1.
  mailpack-head_num = 0.
  mailpack-body_start = 1.
  mailpack-body_num = tab_lines.
  mailpack-doc_type = 'RAW'.
  APPEND mailpack.
*Creation of the attachement PDF
* Move OTF code to structure SOLI form email
  CLEAR solisti1. REFRESH solisti1.
  concatenate 'BEGIN:VCALENDAR' CL_ABAP_CHAR_UTILITIES=>CR_LF into solisti1-line.
  concatenate solisti1-line 'BEGIN:VEVENT' CL_ABAP_CHAR_UTILITIES=>CR_LF into solisti1-line.
  concatenate solisti1-line 'DTSTART:' begda 'T' begtime CL_ABAP_CHAR_UTILITIES=>CR_LF into solisti1-line.
  concatenate solisti1-line 'DTEND:' endda 'T' endtime CL_ABAP_CHAR_UTILITIES=>CR_LF into solisti1-line.
  concatenate solisti1-line 'SUMMARY:' SUBJECT_RV CL_ABAP_CHAR_UTILITIES=>CR_LF into solisti1-line.
  concatenate solisti1-line 'LOCATION:' location_RV CL_ABAP_CHAR_UTILITIES=>CR_LF into solisti1-line.
  concatenate solisti1-line 'STATUS:' 'CONFIRMED' CL_ABAP_CHAR_UTILITIES=>CR_LF into solisti1-line.
  concatenate solisti1-line 'DESCRIPTION:' into solisti1-line.
  loop at body_rv.
    concatenate solisti1-line body_rv-line '\n' into solisti1-line.
  endloop.
  concatenate solisti1-line CL_ABAP_CHAR_UTILITIES=>CR_LF into solisti1-line.
  concatenate solisti1-line 'END:VEVENT' CL_ABAP_CHAR_UTILITIES=>CR_LF into solisti1-line.
  concatenate solisti1-line 'END:VCALENDAR' CL_ABAP_CHAR_UTILITIES=>CR_LF into solisti1-line.
  APPEND solisti1.
*Send OTF code to mail structure
  LOOP AT solisti1.
    MOVE-CORRESPONDING solisti1 TO mailtxt.
    APPEND mailtxt.
  ENDLOOP.
*Set status of the attachement
  DESCRIBE TABLE mailtxt LINES tab_lines.
  mailhead = 'ATTACHMENT'.
  APPEND mailhead.
** Creation of the entry for the compressed attachment
  CLEAR mailpack-transf_bin.
  mailpack-head_start = 2.
  mailpack-head_num = 1.
  mailpack-body_start = 2.
  mailpack-body_num = tab_lines.
  mailpack-doc_type = 'XYZ'.
  mailpack-obj_name = 'ATTACHMENT'.
  mailpack-obj_descr = 'Meeting.xyz'.
  mailpack-doc_size = tab_lines * 255.
  APPEND mailpack.
* Set recipient - email address
  mailrec-receiver = to.
  mailrec-rec_type  = 'U'.
  APPEND mailrec.
* Sending the document
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = maildata
      put_in_outbox              = 'X'
      commit_work                = 'X'
    TABLES
      packing_list               = mailpack
      object_header              = mailhead
      contents_bin               = mailbin
      contents_txt               = mailtxt
      receivers                  = mailrec
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      operation_no_authorization = 4
      OTHERS                     = 99.
*Check Return code for each receiver
  IF sy-subrc = 0.
    LOOP AT mailrec.
      WRITE :/ mailrec-receiver, mailrec-retrn_code.
    ENDLOOP.
  ENDIF.
*If needed, uncomment this to launch SOST queue
*Normally, this is automatic
*  IF sy-subrc = 0.
*    SUBMIT rsconn01
*            WITH mode = 'INT'
*            WITH output = ' '
*    AND RETURN.
*  ENDIF.
ENDFUNCTION.
Thanks in advance
Antoine

Answer 1

hi ;
this is sample for mail and PDF attachment ; U can use tihs algoritym
  FORM MAIL_GONDER .
* Internal Table
  DATA: I_OTF TYPE TABLE OF ITCOO INITIAL SIZE 0,
  I_TLINE TYPE TABLE OF TLINE,
  I_RECEIVERS TYPE TABLE OF SOMLRECI1,
  I_RECORD TYPE TABLE OF SOLISTI1 INITIAL SIZE 0 ,
* structures
  S_TLINE TYPE TLINE,
  S_RECORD TYPE SOLISTI1,
  S_OBJTXT TYPE SOLISTI1,
  S_OBJPACK TYPE SOPCKLSTI1,
  S_RECLIST TYPE SOMLRECI1,
* Objects to send mail.
  I_OBJPACK TYPE TABLE OF SOPCKLSTI1 INITIAL SIZE 0,
  I_OBJTXT TYPE TABLE OF SOLISTI1 INITIAL SIZE 0,
  I_OBJBIN TYPE TABLE OF SOLISTI1 INITIAL SIZE 0,
  I_RECLIST TYPE TABLE OF SOMLRECI1 INITIAL SIZE 0,
* Work Area declarations
  WA_OBJHEAD TYPE SOLI_TAB,
  W_CTRLOP TYPE SSFCTRLOP,
  W_COMPOP TYPE SSFCOMPOP,
  W_RETURN TYPE SSFCRESCL,
  WA_DOC_CHNG TYPE SODOCCHGI1,
  W_DATA TYPE SODOCCHGI1,
  WA_BUFFER TYPE STRING,
  "To convert from 132 to 255
* Variables declarations
  V_FORM_NAME TYPE RS38L_FNAM,
  V_LEN_IN TYPE SOOD-OBJLEN,
  V_LEN_OUT TYPE SOOD-OBJLEN,
  V_LEN_OUTN TYPE I,
  V_LINES_TXT TYPE I,
  V_LINES_BIN TYPE I.
  IF S_RECS IS INITIAL.
MESSAGE 'BELGEYu0130 MAu0130LE EKLEMEK u0130STu0130YORSANIZ ALICI ADRESu0130 Gu0130RMELu0130Su0130Nu0130Z'
    TYPE 'I'.
    RETURN.
  ENDIF.
  CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      FORMNAME           = LV_SMART_NAME
    IMPORTING
      FM_NAME            = V_FORM_NAME
    EXCEPTIONS
      NO_FORM            = 1
      NO_FUNCTION_MODULE = 2
      OTHERS             = 3.
  W_CTRLOP-GETOTF = 'X'.
  W_CTRLOP-NO_DIALOG = 'X'.
  W_COMPOP-TDNOPREV = 'X'.
  IF MOD EQ 'SATISF'.
    CLEAR: GT_LIPS[].
    CALL FUNCTION V_FORM_NAME
      EXPORTING
        CONTROL_PARAMETERS = W_CTRLOP
        OUTPUT_OPTIONS     = W_COMPOP
        USER_SETTINGS      = 'X'
        TOPLAM_VBRP_NTGEW  = TOPLAM_VBRP_NTGEW
        TOPLAM_KDV         = TOPLAM_KDV
        GT_VBRK            = GT_VBRK[]
        GT_VBRP            = GT_VBRP[]
        GT_LIPS            = GT_LIPS[]
        TOPLAMNET          = TOPLAMNET
        BRUTNET            = BRUTNET
      IMPORTING
        JOB_OUTPUT_INFO    = W_RETURN
      TABLES
        GT_KNA             = GT_KNA1[]
        GT_KONV            = GT_KONV[]
        GT_KONVKDV         = GT_KONVKDV[]
      EXCEPTIONS
        FORMATTING_ERROR   = 1
        INTERNAL_ERROR     = 2
        SEND_ERROR         = 3
        USER_CANCELED      = 4
        OTHERS             = 5.
  ELSEIF MOD EQ 'SATISIH'.
    CLEAR:GT_LIPS[].
    CALL FUNCTION V_FORM_NAME
      EXPORTING
        CONTROL_PARAMETERS = W_CTRLOP
        OUTPUT_OPTIONS     = W_COMPOP
        USER_SETTINGS      = 'X'
        TOPLAM_VBRP_NTGEW  = TOPLAM_VBRP_NTGEW
        TOPLAM_KDV         = TOPLAM_KDV
        GT_VBRK            = GT_VBRK[]
        GT_VBRP            = GT_VBRP[]
        GT_LIPS            = GT_LIPS[]
        TOPLAMNET          = TOPLAMNET
        BRUTNET            = BRUTNET
      IMPORTING
        JOB_OUTPUT_INFO    = W_RETURN
      TABLES
        GT_KNA             = GT_KNA1[]
        GT_KONV            = GT_KONV[]
        GT_KONVKDV         = GT_KONVKDV[]
      EXCEPTIONS
        FORMATTING_ERROR   = 1
        INTERNAL_ERROR     = 2
        SEND_ERROR         = 3
        USER_CANCELED      = 4
        OTHERS             = 5.
  ELSEIF MOD EQ 'HURDA'.
    CALL FUNCTION V_FORM_NAME
      EXPORTING
        CONTROL_PARAMETERS = W_CTRLOP
        OUTPUT_OPTIONS     = W_COMPOP
        USER_SETTINGS      = 'X'
        SOFOR              = P_SOFOR
        PLAKA              = P_PLAKA
        TOPLAMTUTAR        = TOP_KALEM_TUTARI
        ISKONTO            = GV_ISKONTO
        KDV                = GV_KDV
        NETTOPLAM          = GV_NETTOPLAM
        NET                = GV_TOPLAM
        KUNNR              = GV_KUNNR
        IHRACATMI          = OPSIYON
      IMPORTING
        JOB_OUTPUT_INFO    = W_RETURN
      TABLES
        GT_BKPF            = GT_BKPF[]
        GT_BSEG            = GT_BSEG[]
      EXCEPTIONS
        FORMATTING_ERROR   = 1
        INTERNAL_ERROR     = 2
        SEND_ERROR         = 3
        USER_CANCELED      = 4
        OTHERS             = 5.
  ELSEIF MOD EQ 'SEVK'.
    DATA: LS_DLV_DELNOTE        TYPE LEDLV_DELNOTE.
    DATA: TESLIMAT LIKE NAST-OBJKY.
    MOVE P_TESLIM TO TESLIMAT .
    CALL FUNCTION V_FORM_NAME
    EXPORTING
        CONTROL_PARAMETERS = W_CTRLOP
        OUTPUT_OPTIONS     = W_COMPOP
        USER_SETTINGS      = 'X'
        IS_DLV_DELNOTE       = LS_DLV_DELNOTE
        IS_NAST              = NAST
        TESLIMATNO           = TESLIMAT
   IMPORTING
        JOB_OUTPUT_INFO    = W_RETURN
   EXCEPTIONS
       FORMATTING_ERROR     = 1
       INTERNAL_ERROR       = 2
       SEND_ERROR           = 3
       USER_CANCELED        = 4
       OTHERS               = 5.
  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.
  LOOP AT I_TLINE INTO S_TLINE.
    TRANSLATE S_TLINE USING '~'.
    CONCATENATE WA_BUFFER S_TLINE INTO WA_BUFFER.
  ENDLOOP.
  TRANSLATE WA_BUFFER USING '~'.
  DO.
    S_RECORD = WA_BUFFER.
    APPEND S_RECORD TO I_RECORD.
    SHIFT WA_BUFFER LEFT BY 255 PLACES.
    IF WA_BUFFER IS INITIAL.
      EXIT.
    ENDIF.
  ENDDO.
* Attachment
  REFRESH: I_RECLIST,
  I_OBJTXT,
  I_OBJBIN,
  I_OBJPACK.
  CLEAR WA_OBJHEAD.
  I_OBJBIN[] = I_RECORD[].
* Mesaj gövdesi ve attachment oluu015Ftur.
  S_OBJTXT = 'FORM SÜNGER OTOMATu0130K BELGE MAu0130Lu0130'.
  APPEND S_OBJTXT TO I_OBJTXT.
  DESCRIBE TABLE I_OBJTXT LINES V_LINES_TXT.
  READ TABLE I_OBJTXT INDEX V_LINES_TXT TRANSPORTING NO FIELDS.
  WA_DOC_CHNG-OBJ_NAME = 'smartform'.
  WA_DOC_CHNG-EXPIRY_DAT = SY-DATUM + 10.
  WA_DOC_CHNG-OBJ_DESCR = 'smartform'.
  WA_DOC_CHNG-SENSITIVTY = 'F'.
  WA_DOC_CHNG-DOC_SIZE = V_LINES_TXT * 255.
* Main Text
  CLEAR S_OBJPACK-TRANSF_BIN.
  S_OBJPACK-HEAD_START = 1.
  S_OBJPACK-HEAD_NUM = 0.
  S_OBJPACK-BODY_START = 1.
  S_OBJPACK-BODY_NUM = V_LINES_TXT.
  S_OBJPACK-DOC_TYPE = 'RAW'.
  APPEND S_OBJPACK TO I_OBJPACK.
* Attachment (pdf-Attachment)
  S_OBJPACK-TRANSF_BIN = 'X'.
  S_OBJPACK-HEAD_START = 1.
  S_OBJPACK-HEAD_NUM = 0.
  S_OBJPACK-BODY_START = 1.
  DESCRIBE TABLE I_OBJBIN LINES V_LINES_BIN.
  READ TABLE I_OBJBIN INDEX V_LINES_BIN TRANSPORTING NO FIELDS.
  S_OBJPACK-DOC_SIZE = V_LINES_BIN * 255 .
  S_OBJPACK-BODY_NUM = V_LINES_BIN.
  S_OBJPACK-DOC_TYPE = 'PDF'.
  S_OBJPACK-OBJ_NAME = 'EK'.
  S_OBJPACK-OBJ_DESCR = 'BELGE'.
  APPEND S_OBJPACK TO I_OBJPACK.
  CLEAR: S_RECLIST, I_RECLIST.
  LOOP AT S_RECS.
    S_RECLIST-RECEIVER = S_RECS-LOW.
    S_RECLIST-REC_TYPE = 'U'.
    APPEND  S_RECLIST TO I_RECLIST.
  ENDLOOP.
  "APPEND LINES OF ALICILAR TO I_RECLIST.
  CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      DOCUMENT_DATA              = WA_DOC_CHNG
      PUT_IN_OUTBOX              = 'X'
      COMMIT_WORK                = 'X'
    TABLES
      PACKING_LIST               = I_OBJPACK
      OBJECT_HEADER              = WA_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.
  WRITE:/ 'Mail Servera u0130letildi'.
ENDFORM.                    " MAIL_GONDER