Que tal,
mirá yo para enviar correos use esta función
* Sending the document
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = doc_chng
put_in_outbox = 'X'
commit_work = 'X'
TABLES
packing_list = lt_objpack
object_header = lt_objhead
contents_bin = lt_objbin
contents_txt = lt_objtxt
receivers = lt_reclist
EXCEPTIONS
too_many_receivers = 1
document_not_sent = 2
operation_no_authorization = 4
OTHERS = 99.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
donde en la tabla LT_RECLIST le paso los destinatarios
(la completé de esta manera). Seguramente vas a tener qe cambiar el campo REC_TYPE proqe yo use una lista de distribución.
LOOP AT lt_mails INTO le_mails.
lt_reclist-receiver = le_mails-grupo. "NOMBRE DE LA LISTA
lt_reclist-express = 'X'.
lt_reclist-rec_type = 'C'. "Usa lista de distribución.
lt_reclist-copy = 'X'.
APPEND lt_reclist.
ENDLOOP.
saludos!
|