pedido -enviar mail externo- URGENTE

[abaper_biz]

Hola podrias probar con la siguiente funcion:



*-----------------------------------------------------------
DESCRIBE TABLE objtxt LINES w_lines.
CLEAR reclist.
reclist-receiver = 'destinatario@correo.com'.
reclist-express = 'X'.
reclist-rec_type = 'U'.
reclist-copy = 'X'.
APPEND reclist. " aqui va la lista de destinatarios.


CONCATENATE
'Sociedad' 'Usuario' 'Fecha Venc' 'Ejercicio' 'Solicitud'
'Secuencia' 'Cliente' 'Razón Social'
'Importe ' 'Banco' INTO
i_contents_bin SEPARATED BY con_tab.


CONCATENATE con_cret i_contents_bin INTO i_contents_bin.
APPEND i_contents_bin.
APPEND i_contents_bin.
APPEND i_contents_bin.
APPEND i_contents_bin.




DESCRIBE TABLE objtxt LINES w_lines.
objpack-transf_bin = ' '.
objpack-head_start = 1.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = w_lines * 255.
objpack-doc_type = 'RAW'.
objpack-obj_name = 'File.Xls'.
objpack-obj_descr = 'Aqui ingresas el mensaje del correo '.
APPEND objpack.
DESCRIBE TABLE i_contents_bin 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 = 'XLS'. " --> aqui le indicas el formato
APPEND objpack.
*------------------------------------------------

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = doc_chng "-> este es el asunto del mail
put_in_outbox = 'X' "-> salida a sapoffice.
commit_work = 'X'
TABLES
packing_list = objpack
object_header = objhead
contents_bin = i_contents_bin " contenido del alv.
contents_txt = objtxt " nombre archivo adjunto
receivers = reclist " lista de destinatarios
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.