Enviar mails desde SAP con un excel anexado

[jordiC77]

Hola!! Soy nuevo, así que muchas gracias de antemano por vuestra ayuda.

Mi problema es el siguiente: estoy intentando enviar un e-mail desde SAP con un excel anexado pero no consigo que me salga. Lo he intentado de dos maneras:

1) Utilizando la función de SAP: SO_NEW_DOCUMENT_ATT_SEND_API1.

2) He intentado grabar el juego de datos, pero hay un problema: cuando le das al botón de anexar documento, aparece una pantalla del tipo que te muestra el word cuando le das a la opción "Guardar como..." y eso no se graba en el juego de datos.

¿Alguien lo ha hecho? ¿Tenéis alguna idea? Gracias!!

Saludos,
Jordi.

hola yo envio un excel anexado con la funcion
'SO_NEW_DOCUMENT_ATT_SEND_API1'


DATA : _fcha(10) TYPE c.
objtxt = 'Envío de correos por vencimiento de cartas fianza'.
append objtxt.
DESCRIBE TABLE objtxt LINES w_lines.
* aqui colocas a q email deseas enviar.
clear RECLIST.
RECLIST-RECEIVER = ADR6-SMTP_ADDR.
RECLIST-EXPRESS = 'X'.
RECLIST-REC_TYPE = 'U'.
RECLIST-COPY = 'X'.
APPEND RECLIST.
* este es el cuerpo
CONCATENATE '0D' 'DATO1' 'DATO2' 'DATO3' INTO i_contents_bin.
APPEND i_contents_bin.

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.

**DOC_CHG
WRITE sy-datum TO _fcha.
READ TABLE objtxt INDEX w_lines.
doc_chng-doc_size = ( w_lines - 1 ) * 255 + STRLEN( objtxt ).
CONCATENATE 'Carta Fianza por vencer y vencidas a '
p_dvend INTO doc_chng-obj_descr SEPARATED BY space.
doc_chng-priority = '1'.
doc_chng-obj_prio = '1'.
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 =
'Envío de correos por vencimiento de cartas fianza'.
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'.
APPEND objpack.
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 = i_contents_bin
contents_txt = objtxt
receivers = 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.

[jordiC77]

Gracias ibecerra!! Una cosa solo: la variable con_tab qué contiene? Gràcias!!

hola..
contiene esto
CONSTANTS: con_cret TYPE x VALUE '0D', "OK for non Unicode
con_tab TYPE x VALUE '09'. "OK for non Unicode

[jordiC77]

Muchas gracias ibecerra, ha funcionado! Eres un crack!

[leir1612]

Hola yo ya tengo el excel en mi PC como hago para levantarlo y anexarlo

Gracias

[jfmagi]

Ibecerra,,, bueno solo queria darte las gracias, ya que siempre que necesito algo encuentro una nota tuya solucionandolo. La verdad que solo puedo agradecerte. Se que contestar necesita dejar un poquito de tu tiempo para hacerlo.. Te aseguro que es agradecido grandemente. Espero que lo que das te vuelva en tu vida con mucha salud y opulencia para vos y la gente que te quiere.. Un abrazo Gracias.

Jejeje, han pasado los años y todavia mis notas sirven, muchas gracias por los buenos deseos en lo que puedo siempre apoyare un abrazo!!
SALUDOS
ISRAEL!!

[jfmagi]

Hola me da error con el compo con_tab
lo declare asi...

CONSTANTS: con_tab TYPE X VALUE '09'. "OK for non Unicode

concatenate
'Sociedad' 'Usuario' 'Fecha Venc' 'Ejercicio' 'Solicitud'
'Secuencia' 'Cliente' 'Razón Social'
'Importe ' 'Banco' into
i_contents_bin separated by con_tab.

ERROR: CON_TAB MUST BE A CHARACTER-LIKE DATA OBJECT(DATA TYPE C,N,D,T OR STRING)

[jfmagi]

Lo solucione con...

CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB