Email to all vendors

Question

Hi All,
May you please help me on this one i'm trying to write a report that sends e-mail to all vendors each statement separately.
Thanks,
Fred.

Answer 1

Hi
For getting a line feed in the xls attachment we have to concatenate a Hexadecimal charecter say '09' for each line.
so that the sap system will find that the line will end at that point.
check the following code.
vrifier qu'une adresse a t rentre
CHECK NOT s_execut IS INITIAL.
Zone objet du mail
CLEAR str_docdata.
str_docdata-obj_name = text-m01.
str_docdata-obj_descr = text-m03.
Alim table des destinataires
LOOP AT s_execut.
tbl_dest-rec_type = 'U'.
tbl_dest-receiver = s_execut-low.
APPEND tbl_dest.
CLEAR tbl_dest.
ENDLOOP.
Alim tbl_text pour corps du mail
"ne pas rpondre"
CLEAR tbl_text.
REFRESH tbl_text.
tbl_text-line = text-m02.
APPEND tbl_text.
CLEAR tbl_text.
saut de ligne
APPEND tbl_text.
BEG OF DEL <D10K990893>
nb de lignes lues / en anomalie / qui seront dans le corps du texte
WRITE p_filpar TO tbl_text-line NO-ZERO LEFT-JUSTIFIED.
IF tbl_text-line IS INITIAL.
tbl_text-line = '0'.
ENDIF.
CONCATENATE text-cr1 tbl_text-line INTO tbl_text-line
SEPARATED BY space.
APPEND tbl_text.
CLEAR tbl_text.
WRITE p_filali TO tbl_text-line NO-ZERO LEFT-JUSTIFIED.
IF tbl_text-line IS INITIAL.
tbl_text-line = '0'.
ENDIF.
CONCATENATE text-cr1 tbl_text-line INTO tbl_text-line
SEPARATED BY space.
APPEND tbl_text.
CLEAR tbl_text.
WRITE p_recycl TO tbl_text-line NO-ZERO LEFT-JUSTIFIED.
IF tbl_text-line IS INITIAL.
tbl_text-line = '0'.
ENDIF.
CONCATENATE text-cr2 tbl_text-line INTO tbl_text-line
SEPARATED BY space.
APPEND tbl_text.
CLEAR tbl_text.
WRITE w_enr_10 TO tbl_text-line NO-ZERO LEFT-JUSTIFIED.
IF tbl_text-line IS INITIAL.
tbl_text-line = '0'.
ENDIF.
CONCATENATE text-cr3 tbl_text-line INTO tbl_text-line
SEPARATED BY space.
APPEND tbl_text.
CLEAR tbl_text.
WRITE w_enr_20 TO tbl_text-line NO-ZERO LEFT-JUSTIFIED.
IF tbl_text-line IS INITIAL.
tbl_text-line = '0'.
ENDIF.
CONCATENATE text-cr4 tbl_text-line INTO tbl_text-line
SEPARATED BY space.
APPEND tbl_text.
CLEAR tbl_text.
BEG OF DEL <D10K990893>
BEG OF INS <D10K990893>
WRITE w_enr_10 TO tbl_text-line NO-ZERO LEFT-JUSTIFIED.
IF tbl_text-line IS INITIAL.
tbl_text-line = '0'.
ENDIF.
CONCATENATE text-cr3 tbl_text-line INTO tbl_text-line
SEPARATED BY space.
APPEND tbl_text.
CLEAR tbl_text.
WRITE w_enr_30 TO tbl_text-line NO-ZERO LEFT-JUSTIFIED.
IF tbl_text-line IS INITIAL.
tbl_text-line = '0'.
ENDIF.
CONCATENATE text-cr4 tbl_text-line INTO tbl_text-line
SEPARATED BY space.
APPEND tbl_text.
CLEAR tbl_text.
IF NOT tbl_mat_creat[] IS INITIAL.
MOVE text-cr6 TO tbl_text-line.
APPEND tbl_text.
CLEAR tbl_text.
LOOP AT tbl_mat_creat.
MOVE tbl_mat_creat TO tbl_text-line.
APPEND tbl_text.
CLEAR tbl_text.
ENDLOOP.
ENDIF.
WRITE w_enr_40 TO tbl_text-line NO-ZERO LEFT-JUSTIFIED.
IF tbl_text-line IS INITIAL.
tbl_text-line = '0'.
ENDIF.
CONCATENATE text-cr7 tbl_text-line INTO tbl_text-line
SEPARATED BY space.
APPEND tbl_text.
CLEAR tbl_text.
IF NOT tbl_mat_modif[] IS INITIAL.
MOVE text-cr8 TO tbl_text-line.
APPEND tbl_text.
CLEAR tbl_text.
LOOP AT tbl_mat_modif.
MOVE tbl_mat_modif TO tbl_text-line.
APPEND tbl_text.
CLEAR tbl_text.
ENDLOOP.
ENDIF.
WRITE w_enr_20 TO tbl_text-line NO-ZERO LEFT-JUSTIFIED.
IF tbl_text-line IS INITIAL.
tbl_text-line = '0'.
ENDIF.
CONCATENATE text-cr9 tbl_text-line INTO tbl_text-line
SEPARATED BY space.
APPEND tbl_text.
CLEAR tbl_text.
WRITE w_enr_50 TO tbl_text-line NO-ZERO LEFT-JUSTIFIED.
IF tbl_text-line IS INITIAL.
tbl_text-line = '0'.
ENDIF.
CONCATENATE text-cr1 tbl_text-line INTO tbl_text-line
SEPARATED BY space.
APPEND tbl_text.
CLEAR tbl_text.
END OF INS <D10K990893>
APPEND tbl_text.
WRITE text-cr5 TO tbl_text-line NO-ZERO LEFT-JUSTIFIED.
APPEND tbl_text.
CLEAR tbl_text.
CLEAR w_lines.
DESCRIBE TABLE tbl_text LINES w_lines.
CLEAR tbl_pack.
REFRESH tbl_pack.
tbl_pack-head_start = 1.
tbl_pack-head_num = 0.
tbl_pack-body_start = 1.
tbl_pack-body_num = w_lines.
tbl_pack-doc_type = 'RAW'.
tbl_pack-obj_name = text-m01. "Program name
tbl_pack-doc_size = ( w_lines - 1 ) * 255 + STRLEN( tbl_text-line ).
APPEND tbl_pack.
Alim tbl_text pour pice jointe
- en-tte des colonnes
CLEAR tbl_text.
CONCATENATE text-ti1 text-ti2
text-ti3 text-ti5
text-ti4 kst_retours
INTO tbl_text-line SEPARATED BY ';'.
APPEND tbl_text.
contenu des colonnes
LOOP AT tbl_compte_rendu.
CLEAR tbl_text.
CONDENSE tbl_compte_rendu-text1.
CONCATENATE tbl_compte_rendu-text1
tbl_compte_rendu-text2
tbl_compte_rendu-text3
tbl_compte_rendu-text4
tbl_compte_rendu-text5
tbl_compte_rendu-text6
kst_retours
INTO tbl_text-line SEPARATED BY ';'.
CONDENSE tbl_text.
APPEND tbl_text.
ENDLOOP.
DESCRIBE TABLE tbl_text LINES w_lines2.
CLEAR tbl_pack.
tbl_pack-head_start = 1.
tbl_pack-head_num = 0.
tbl_pack-body_start = w_lines + 1.
tbl_pack-body_num = w_lines + w_lines2.
tbl_pack-doc_type = 'CSV'.
tbl_pack-obj_name = text-m07.
tbl_pack-obj_descr = text-m08.
tbl_pack-doc_size = ( w_lines2 - 1 ) * 255
+ STRLEN( tbl_text-line ).
APPEND tbl_pack.
Envoi du mail
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = str_docdata
put_in_outbox = space
commit_work = 'X'
TABLES
packing_list = tbl_pack
contents_txt = tbl_text
receivers = tbl_dest
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.
http://www.sapdevelopment.co.uk/reporting/email/attach_xls.htm