How to send a ttachment with email.

Question

Dear all ,
i have written the below code to send mails ..it is workiing fine
my problem is data to be shown in the mail is contained in itab
mailtxt77 .... but i want the data contained in this itab
to be sent as attachment ... how to do dat.
*& Report  ZTRANSPORTER_EMAIL                                          *
REPORT  ZTRANSPORTER_EMAIL                      .
data: maildata type sodocchgi1.
data: entries like sy-tabix.
data: newid like sofolenti1-object_id.
data: sent like sonv-flag.
data: BEGIN OF mailtxt OCCURS 0,
      LINE(300),
      END OF MAILTXT.
data: mailrec  type table of SOMLRECI1 WITH HEADER LINE .
DATA : MAILREC1 type table of SOMLRECI1.
*data: mailrec type string.
data: lt_transporter like ztransporter occurs 0 with header line.
data: begin of lt_transporter2 occurs 0,
      transporter(18),
      end of lt_transporter2.
DATA : MAILTXT1(10),
MAILTXT2(30),
MAILTXT3(4),
MAILTXT4(18),
MAILTXT5(10),
MAILTXT6(35),
MAILTXT7(30),
MAILTXT8(40),
MAILTXT9(10),
MAILTXT10(5),
MAILTXT11(8),
MAILTXT12(10),
mail1 type string,
mail2 type string,
mail3 type string,
mail4 type string,
mail5 type string,
mail6 type string,
mail7 type string,
mail8 type string,
mail9 type string,
mail10 type string,
mail11 type string,
mail12 type string.
DATA : MAILTXT77 TYPE TABLE OF SOLISTI1 WITH HEADER LINE.
data: begin of lt_transporter1 occurs 0,
      Sr_no(10),
      transporter(30),
      plant(4),
      material(18),
      VENDOR(10),
      vendor_name(35),
      vendor_place(30),
      material_desc(40),
      sched_agreement(10),
      sched_line_item(5),
      delivery_date(8),
      delivery_qty(10),
      end of lt_transporter1.
data: lt_email like ztrans_email occurs 0 with header line.
DATA: BEGIN OF MAILTXT13 OCCURS 0 ,
LINE(300),
END OF MAILTXT13.
data: var1 type i,
      var2 type i,
      var3 type i,
var4 type i,
var5 type i,
var6 type i,
var7 type i,
var8 type i,
var9 type i,
var10 type i,
var11 type i,
var12 type i.
start-of-selection.
  clear:    maildata, mailtxt,  mailrec.
  refresh:  mailtxt. "mailrec.
select * from ztransporter into table lt_transporter.
select distinct transporter from ztransporter into table lt_transporter2
loop at lt_transporter.
move-corresponding lt_transporter to lt_transporter1.
append lt_transporter1.
clear lt_transporter1.
endloop.
if not lt_transporter[] is initial.
select * from ztrans_email into table lt_email
for all entries in lt_transporter
where transporter = lt_transporter-transporter.
endif.
loop at lt_transporter2.
  maildata-obj_name = 'TEST'.
  maildata-obj_descr = 'Test'.
  maildata-obj_langu = sy-langu.
MAIL1 = 'SR NO-'.
MAIL2 = '---TRANSPORTER--
mail3 = 'plant'.
mail4 = '---material---'.
mail5 = '-vendor'.
mail6 = '--vendor_name--
mail7 = '--vendor_place--
mail8 = '--material_desc--
mail9 = 'sched_agrt'.
mail10 = 'item-'.
mail11 = 'del. date'.
mail12 = '-del. qty-'.
concatenate mail1 ',' mail2 ',' mail3 ',' mail4 ',' mail5 ',' mail6 ','
mail7 ',' mail8 ',' mail9 ',' mail10 ',' mail11 ',' mail12  into
mailtxt77-line
separated by space.
*mailtxt = '  Srno  Transporter  plant  material  vendor  vendorplace
*materialdesc  schedagreement  LINEITEM  DELIVERYDATE  DELIVERYQTY'.
  append mailtxt77.
  clear mailtxt77.
loop at lt_transporter1 where transporter = lt_transporter2-transporter.
*MOVE  LT_TRANSPORTER1+(10) TO MAILTXT(10).
MAILTXT1 = LT_TRANSPORTER1+(10).
*MAILTXT33 = '  '.
var1 = strlen( mailtxt1 ).
var1 = 10 - var1.
shift mailtxt1 right by var1 places.
MAILTXT2 = LT_TRANSPORTER1+10(30).
var2 = strlen( mailtxt2 ).
var2 = 30 - var2.
shift mailtxt2 right by var2 places.
*concatenate mailtxt1 mailtxt2 into mailtxt13-line respecting blanks.
MAILTXT3 = LT_TRANSPORTER1+40(4).
var3 = strlen( mailtxt3 ).
var3 = 4 - var3.
shift mailtxt3 right by var3 places.
MAILTXT4 = LT_TRANSPORTER1+44(18).
var4 = strlen( mailtxt4 ).
var4 = 18 - var4.
shift mailtxt4 right by var4 places.
MAILTXT5 = LT_TRANSPORTER1+62(10).
var5 = strlen( mailtxt5 ).
var5 = 10 - var5.
shift mailtxt5 right by var5 places.
MAILTXT6 = LT_TRANSPORTER1+72(35).
var6 = strlen( mailtxt6 ).
var6 = 35 - var6.
shift mailtxt6 right by var6 places.
MAILTXT7 = LT_TRANSPORTER1+107(30).
var7 = strlen( mailtxt7 ).
var7 = 30 - var7.
shift mailtxt7 right by var7 places.
MAILTXT8 = LT_TRANSPORTER1+137(40).
var8 = strlen( mailtxt8 ).
var8 = 40 - var8.
shift mailtxt8 right by var8 places.
MAILTXT9 = LT_TRANSPORTER1+177(10).
var9 = strlen( mailtxt9 ).
var9 = 10 - var9.
shift mailtxt9 right by var9 places.
MAILTXT10 =  LT_TRANSPORTER1+187(5).
var10 = strlen( mailtxt10 ).
var10 = 5 - var10.
shift mailtxt10 right by var10 places.
MAILTXT11 = LT_TRANSPORTER1+192(8).
var11 = strlen( mailtxt11 ).
var11 = 8 - var11.
shift mailtxt11 right by var11 places.
MAILTXT12 = LT_TRANSPORTER1+200(10).
var12 = strlen( mailtxt12 ).
var12 = 10 - var12.
shift mailtxt12 right by var12 places.
*CONCATENATE LT_TRANSPORTER1(10) LT_TRANSPORTER112(30)
*LT_TRANSPORTER142(4) LT_TRANSPORTER148(18)
*LT_TRANSPORTER166(10) LT_TRANSPORTER178(35)
*LT_TRANSPORTER1115(30) LT_TRANSPORTER1147(40)
*LT_TRANSPORTER1189(10) LT_TRANSPORTER1201(5)
*LT_TRANSPORTER1208(10) LT_TRANSPORTER1220(10) INTO MAILTXT-LINE.
CONCATENATE MAILTXT1 ',' MAILTXT2 ',' MAILTXT3 ',' MAILTXT4 ','
MAILTXT5 ','
MAILTXT6 ',' MAILTXT7 ',' MAILTXT8 ',' MAILTXT9 ',' MAILTXT10 ','
MAILTXT11
',' MAILTXT12 INTO MAILTXT77-LINE SEPARATED BY SPACE.
mailtxt = lt_transporter1.
  append mailtxt77.
   clear mailtxt77.
endloop.
clear lt_email.
read table lt_email with key transporter = lt_transporter2-transporter.
if sy-subrc = 0.
  mailrec-receiver = lt_email-main_email.
  mailrec = lt_email-main_email.
  mailrec-rec_type  = 'U'.
mailrec-com_type = 'INT'.
mailrec-notif_del = 'X'.
mailrec-notif_ndel = 'X'.
  append mailrec.
*perform email.
   clear mailrec.
   if not lt_email-email2 = ''.
  mailrec-receiver = lt_email-email2.
  mailrec-rec_type  = 'U'.
   mailrec-com_type = 'INT'.
mailrec-notif_del = 'X'.
mailrec-notif_ndel = 'X'.
*mailrec = lt_email-email2.
perform email.
  append mailrec.
   clear mailrec.
   endif.
   if not lt_email-email3 = ''.
  mailrec-receiver = lt_email-email3.
  mailrec-rec_type  = 'U'.
   mailrec-com_type = 'INT'.
mailrec-notif_del = 'X'.
mailrec-notif_ndel = 'X'.
  append mailrec.
*mailrec = lt_email-email3.
perform email.
   clear mailrec.
   endif.
    if not lt_email-email4 = ''.
  mailrec-receiver = lt_email-email4.
  mailrec-rec_type  = 'U'.
   mailrec-com_type = 'INT'.
mailrec-notif_del = 'X'.
mailrec-notif_ndel = 'X'.
  append mailrec.
*mailrec = lt_email-email4.
perform email.
   clear mailrec.
   endif.
   if not lt_email-email5 = ''.
  mailrec-receiver = lt_email-email5.
  mailrec-rec_type  = 'U'.
  append mailrec.
mailrec = lt_email-email5.
perform email.
   clear mailrec.
   endif.
endif.
    call function 'SO_NEW_DOCUMENT_SEND_API1'
         exporting
              document_data              = maildata
              document_type              = 'RAW'
              put_in_outbox              = 'X'
              commit_work                = 'X'
         importing
              sent_to_all                = sent
              new_object_id             = newid
         tables
              object_content             = mailtxt77
              receivers                  = mailrec
         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.
    endif.

Answer 1

dear all,
  i  am now able to get attachments with the mail
  but there are 2 attachments
  1.     . raw
  2.     .ali -  this attachment shows junk characters
i need only one .html file as attachement
if you can kindly find the fault in this code
*& Report  ZTRANSPORTER_EMAIL                                          *
REPORT  ZTRANSPORTER_EMAIL                      .
data: maildata type sodocchgi1.
DATA:
l_datum(10),
ls_docdata TYPE sodocchgi1,
lt_objpack TYPE TABLE OF sopcklsti1 WITH HEADER LINE,
lt_objhead TYPE TABLE OF solisti1 WITH HEADER LINE,
lt_objtxt TYPE TABLE OF solisti1 WITH HEADER LINE,
lt_objbin TYPE TABLE OF solisti1 WITH HEADER LINE,
lt_reclist TYPE TABLE OF somlreci1 WITH HEADER LINE,
lt_listobject TYPE TABLE OF abaplist WITH HEADER LINE,
l_tab_lines TYPE i,
l_att_type LIKE soodk-objtp.
data: entries like sy-tabix.
data: newid like sofolenti1-object_id.
data: sent like sonv-flag.
data: BEGIN OF mailtxt OCCURS 0,
      LINE(300),
      END OF MAILTXT.
data: mailrec  type table of SOMLRECI1 WITH HEADER LINE .
DATA : MAILREC1 type table of SOMLRECI1.
*data: mailrec type string.
data: lt_transporter like ztransporter occurs 0 with header line.
data: begin of lt_transporter2 occurs 0,
      transporter(18),
      end of lt_transporter2.
DATA : MAILTXT1(10),
MAILTXT2(30),
MAILTXT3(4),
MAILTXT4(18),
MAILTXT5(10),
MAILTXT6(35),
MAILTXT7(30),
MAILTXT8(40),
MAILTXT9(10),
MAILTXT10(5),
MAILTXT11(8),
MAILTXT12(10),
mail1 type string,
mail2 type string,
mail3 type string,
mail4 type string,
mail5 type string,
mail6 type string,
mail7 type string,
mail8 type string,
mail9 type string,
mail10 type string,
mail11 type string,
mail12 type string.
DATA : MAILTXT77 TYPE TABLE OF SOLISTI1 WITH HEADER LINE.
data: begin of lt_transporter1 occurs 0,
      Sr_no(10),
      transporter(30),
      plant(4),
      material(18),
      VENDOR(10),
      vendor_name(35),
      vendor_place(30),
      material_desc(40),
      sched_agreement(10),
      sched_line_item(5),
      delivery_date(8),
      delivery_qty(10),
      end of lt_transporter1.
data: lt_email like ztrans_email occurs 0 with header line.
DATA: BEGIN OF MAILTXT13 OCCURS 0 ,
LINE(300),
END OF MAILTXT13.
data: var1 type i,
      var2 type i,
      var3 type i,
var4 type i,
var5 type i,
var6 type i,
var7 type i,
var8 type i,
var9 type i,
var10 type i,
var11 type i,
var12 type i.
start-of-selection.
  clear:    maildata, mailtxt,  mailrec.
  refresh:  mailtxt. "mailrec.
select * from ztransporter into table lt_transporter.
select distinct transporter from ztransporter into table lt_transporter2
loop at lt_transporter.
move-corresponding lt_transporter to lt_transporter1.
append lt_transporter1.
clear lt_transporter1.
endloop.
if not lt_transporter[] is initial.
select * from ztrans_email into table lt_email
for all entries in lt_transporter
where transporter = lt_transporter-transporter.
endif.
loop at lt_transporter2.
  maildata-obj_name = 'TEST'.
  maildata-obj_descr = 'Test'.
  maildata-obj_langu = sy-langu.
MAIL1 = 'SR NO-'.
MAIL2 = '---TRANSPORTER--
mail3 = 'plant'.
mail4 = '---material---'.
mail5 = '-vendor'.
mail6 = '--vendor_name--
mail7 = '--vendor_place--
mail8 = '--material_desc--
mail9 = 'sched_agrt'.
mail10 = 'item-'.
mail11 = 'del. date'.
mail12 = '-del. qty-'.
concatenate mail1 ',' mail2 ',' mail3 ',' mail4 ',' mail5 ',' mail6 ','
mail7 ',' mail8 ',' mail9 ',' mail10 ',' mail11 ',' mail12  into
mailtxt77-line
separated by space.
*mailtxt = '  Srno  Transporter  plant  material  vendor  vendorplace
*materialdesc  schedagreement  LINEITEM  DELIVERYDATE  DELIVERYQTY'.
  append mailtxt77.
  clear mailtxt77.
loop at lt_transporter1 where transporter = lt_transporter2-transporter.
*MOVE  LT_TRANSPORTER1+(10) TO MAILTXT(10).
MAILTXT1 = LT_TRANSPORTER1+(10).
*MAILTXT33 = '  '.
var1 = strlen( mailtxt1 ).
var1 = 10 - var1.
shift mailtxt1 right by var1 places.
MAILTXT2 = LT_TRANSPORTER1+10(30).
var2 = strlen( mailtxt2 ).
var2 = 30 - var2.
shift mailtxt2 right by var2 places.
*concatenate mailtxt1 mailtxt2 into mailtxt13-line respecting blanks.
MAILTXT3 = LT_TRANSPORTER1+40(4).
var3 = strlen( mailtxt3 ).
var3 = 4 - var3.
shift mailtxt3 right by var3 places.
MAILTXT4 = LT_TRANSPORTER1+44(18).
var4 = strlen( mailtxt4 ).
var4 = 18 - var4.
shift mailtxt4 right by var4 places.
MAILTXT5 = LT_TRANSPORTER1+62(10).
var5 = strlen( mailtxt5 ).
var5 = 10 - var5.
shift mailtxt5 right by var5 places.
MAILTXT6 = LT_TRANSPORTER1+72(35).
var6 = strlen( mailtxt6 ).
var6 = 35 - var6.
shift mailtxt6 right by var6 places.
MAILTXT7 = LT_TRANSPORTER1+107(30).
var7 = strlen( mailtxt7 ).
var7 = 30 - var7.
shift mailtxt7 right by var7 places.
MAILTXT8 = LT_TRANSPORTER1+137(40).
var8 = strlen( mailtxt8 ).
var8 = 40 - var8.
shift mailtxt8 right by var8 places.
MAILTXT9 = LT_TRANSPORTER1+177(10).
var9 = strlen( mailtxt9 ).
var9 = 10 - var9.
shift mailtxt9 right by var9 places.
MAILTXT10 =  LT_TRANSPORTER1+187(5).
var10 = strlen( mailtxt10 ).
var10 = 5 - var10.
shift mailtxt10 right by var10 places.
MAILTXT11 = LT_TRANSPORTER1+192(8).
var11 = strlen( mailtxt11 ).
var11 = 8 - var11.
shift mailtxt11 right by var11 places.
MAILTXT12 = LT_TRANSPORTER1+200(10).
var12 = strlen( mailtxt12 ).
var12 = 10 - var12.
shift mailtxt12 right by var12 places.
*CONCATENATE LT_TRANSPORTER1(10) LT_TRANSPORTER112(30)
*LT_TRANSPORTER142(4) LT_TRANSPORTER148(18)
*LT_TRANSPORTER166(10) LT_TRANSPORTER178(35)
*LT_TRANSPORTER1115(30) LT_TRANSPORTER1147(40)
*LT_TRANSPORTER1189(10) LT_TRANSPORTER1201(5)
*LT_TRANSPORTER1208(10) LT_TRANSPORTER1220(10) INTO MAILTXT-LINE.
CONCATENATE MAILTXT1 ',' MAILTXT2 ',' MAILTXT3 ',' MAILTXT4 ','
MAILTXT5 ','
MAILTXT6 ',' MAILTXT7 ',' MAILTXT8 ',' MAILTXT9 ',' MAILTXT10 ','
MAILTXT11
',' MAILTXT12 INTO MAILTXT77-LINE SEPARATED BY SPACE.
mailtxt = lt_transporter1.
  append mailtxt77.
   clear mailtxt77.
Create receiver list
**LOOP AT s_name.
*lt_reclist-receiver = s_name-low.
**lt_reclist-rec_type = 'B'.
**APPEND lt_reclist.
**ENDLOOP.
Send Message
endloop.
submit zreport with transporter = lt_transporter2-transporter
   exporting list to memory and return.
*REFRESH LT_LISTOBJECT.
   CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
listobject = lt_listobject
EXCEPTIONS
not_found = 1
OTHERS = 2.
IF sy-subrc <> 0.
Error in function module &1
MESSAGE ID '61' TYPE 'E' NUMBER '731'
WITH 'LIST_FROM_MEMORY'.
ENDIF.
Because listobject is of size RAW(1000)
and objbin is of size CHAR(255) we make this table copy
CALL FUNCTION 'TABLE_COMPRESS'
TABLES
in = lt_listobject
out = lt_objbin
EXCEPTIONS
compress_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
Error in function module &1
MESSAGE ID '61' TYPE 'E' NUMBER '731'
WITH 'TABLE_COMPRESS'.
ENDIF.
ls_docdata-obj_name = 'USERS_LIST'.
CONCATENATE 'List of Users' sy-sysid '-' l_datum "#EC *
INTO ls_docdata-obj_descr SEPARATED BY space.
Main Text
lt_objtxt = 'List of Users According to Logon Date' &
' and Password Change'. "#EC *
APPEND lt_objtxt.
Write Packing List (Main)
DESCRIBE TABLE lt_objtxt LINES l_tab_lines.
READ TABLE lt_objtxt INDEX l_tab_lines.
ls_docdata-doc_size = ( l_tab_lines - 1 ) * 255 + STRLEN( lt_objtxt ).
CLEAR lt_objpack-transf_bin.
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.
Create Message Attachment
Write Packing List (Attachment)
l_att_type = 'ALI'.
DESCRIBE TABLE lt_objbin LINES l_tab_lines.
READ TABLE lt_objbin INDEX l_tab_lines.
lt_objpack-doc_size = ( l_tab_lines - 1 ) * 255 + STRLEN( lt_objbin ).
lt_objpack-transf_bin = 'X'.
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 = l_att_type.
lt_objpack-obj_name = 'ATTACHMENT'.
lt_objpack-obj_descr = 'List_of_Users'. "#EC *
APPEND lt_objpack.
clear lt_email.
read table lt_email with key transporter = lt_transporter2-transporter.
if sy-subrc = 0.
  mailrec-receiver = lt_email-main_email.
  mailrec = lt_email-main_email.
  mailrec-rec_type  = 'U'.
mailrec-com_type = 'INT'.
mailrec-notif_del = 'X'.
mailrec-notif_ndel = 'X'.
  append mailrec.
*perform email.
   clear mailrec.
   if not lt_email-email2 = ''.
  mailrec-receiver = lt_email-email2.
  mailrec-rec_type  = 'U'.
   mailrec-com_type = 'INT'.
mailrec-notif_del = 'X'.
mailrec-notif_ndel = 'X'.
*mailrec = lt_email-email2.
perform email.
  append mailrec.
   clear mailrec.
   endif.
   if not lt_email-email3 = ''.
  mailrec-receiver = lt_email-email3.
  mailrec-rec_type  = 'U'.
   mailrec-com_type = 'INT'.
mailrec-notif_del = 'X'.
mailrec-notif_ndel = 'X'.
  append mailrec.
*mailrec = lt_email-email3.
perform email.
   clear mailrec.
   endif.
    if not lt_email-email4 = ''.
  mailrec-receiver = lt_email-email4.
  mailrec-rec_type  = 'U'.
   mailrec-com_type = 'INT'.
mailrec-notif_del = 'X'.
mailrec-notif_ndel = 'X'.
  append mailrec.
*mailrec = lt_email-email4.
perform email.
   clear mailrec.
   endif.
   if not lt_email-email5 = ''.
  mailrec-receiver = lt_email-email5.
  mailrec-rec_type  = 'U'.
  append mailrec.
mailrec = lt_email-email5.
perform email.
   clear mailrec.
   endif.
endif.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = ls_docdata
put_in_outbox = ''
commit_work = 'X'
TABLES
packing_list = lt_objpack
object_header = lt_objhead
contents_bin = lt_objbin
contents_txt = lt_objtxt
receivers = MAILREC
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.
Document sent
MESSAGE ID 'SO' TYPE 'S' NUMBER '022'.
ELSE.
Document <&> could not be sent
MESSAGE ID 'SO' TYPE 'S' NUMBER '023'
WITH ls_docdata-obj_name.
ENDIF.
kindly help..
APT POINTS WILL BE GIVEN..