Отправка письма на внешний ящик...

holocron

Проблемы возникли... Пытаюсь отправить, вроде все нормально. sy-subrc везде 0. А ни в очереди не появляется, ни у получателя.. мож пример есть рабочий?

Code:

  DATA:
    send_request TYPE REF TO cl_bcs,
    mail_message TYPE REF TO cl_document_bcs,
    recipient  TYPE REF TO cl_cam_address_bcs.

      TRY.
          send_request = cl_bcs=>create_persistent( ).
*
          i_subject = 'test.'.
          CALL METHOD CL_DOCUMENT_BCS=>CREATE_FROM_TEXT
            EXPORTING
              I_TEXT    = lt_message
              I_SUBJECT = i_subject
            RECEIVING
              RESULT    = mail_message.
*
          send_request->set_document( mail_message ).
*
          smtp_addr = 'a@b.c'.
            CALL METHOD cl_cam_address_bcs=>create_internet_address
              EXPORTING
                i_address_string = smtp_addr
              RECEIVING
                result           = recipient.
*
            CALL METHOD SEND_REQUEST->ADD_RECIPIENT
              EXPORTING
                I_RECIPIENT = recipient.

          send_request->SEND_WITHOUT_DIALOG( ).

          FREE: mail_message, send_request.

        CATCH cx_send_req_bcs .
        CATCH cx_document_bcs .
        CATCH cx_bcs .
        CLEANUP.
          FREE: mail_message, send_request.
      ENDTRY.

Сергей Королев

А COMMIT там разве не нужен?

EHOT

а кстати в 4.0 каким ФМ почта на внешний адрес отправляется ?

Serge69

*" IMPORTING
*" REFERENCE(TO) TYPE CHAR255
*" REFERENCE(SUBJ) TYPE CHAR255
*" TABLES
*" BODY STRUCTURE PRU_CHAR255
*" EXCEPTIONS
*" NO_SENDING

FIELD-SYMBOLS <f> TYPE pru_char255.
DATA: objpack LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE.
DATA: objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE.
DATA: objbin LIKE solisti1 OCCURS 10 WITH HEADER LINE.
DATA: objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE.
DATA: reclist LIKE somlreci1 OCCURS 5 WITH HEADER LINE.
DATA: doc_chng LIKE sodocchgi1.
DATA: tab_lines LIKE sy-tabix.

doc_chng-obj_name = 'SENDFILE'.
* Mail Subject
doc_chng-obj_descr = subj.
* Mail Contents
LOOP AT body ASSIGNING <f>.
objtxt = <f>-char255.
APPEND objtxt.
ENDLOOP.

DESCRIBE TABLE objtxt LINES tab_lines.
READ TABLE objtxt INDEX tab_lines.
doc_chng-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ).

* Creation of the entry for the compressed document
CLEAR objpack-transf_bin.
objpack-head_start = 1.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = 'TXT'.
APPEND objpack.

reclist-receiver = to.
reclist-rec_type = 'U'.
APPEND reclist.

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = doc_chng
TABLES
packing_list = objpack
object_header = objhead
contents_bin = objbin
contents_txt = objtxt
receivers = reclist
EXCEPTIONS
too_many_receivers = 1
document_not_sent = 2
operation_no_authorization = 4
OTHERS = 99.
SUBMIT rsconn01
WITH mode = 'INT'
WITH output = space
AND RETURN.
IF sy-subrc <> 0.
RAISE no_sending.
ENDIF.

holocrоn

Сергей Королев написал:

А COMMIT там разве не нужен?

я пытаюсь это сделать в user-exit'е. поэтому проблематично. (сохранение мероприятия в HR).

holocrоn

holocrоn написал(а):

Сергей Королев написал:

А COMMIT там разве не нужен?

я пытаюсь это сделать в user-exit'е. поэтому проблематично. (сохранение мероприятия в HR).

попробовал сделать ФМ с выполнением в UPDATE TASK... оказывается обновление прерывается, до COMMIT не доходит

Сергей Королев

А может по where-used пример использования поискать? Отдельную тестовую программку написать надо бы, чтоб на ней потренироваться. Еще был пример на SDN Томас Юнг выкладывал.

holocrоn

Сергей Королев написал:

А может по where-used пример использования поискать? Отдельную тестовую программку написать надо бы, чтоб на ней потренироваться. Еще был пример на SDN Томас Юнг выкладывал.

фишка в том, что из обычной программы все работает... из юзера - нет

Сергей Королев

А может еще попробовать ФМ с вызовом STARTING NEW TASK?

Гость

Сергей Королев написал:

А может еще попробовать ФМ с вызовом STARTING NEW TASK?

блин, не подумал... ну да ладно, уже решил через submit + export/import from memory...

Спасибо всем, кто помогал в решении вопроса.

Гость_1

holocrоn написал(а):

Сергей Королев написал:

А COMMIT там разве не нужен?

я пытаюсь это сделать в user-exit'е. поэтому проблематично. (сохранение мероприятия в HR).

Может воспользоваться динамическими мероприятиями ?
(Ракурс V_T588Z с операцией 'M' )

Правила форума

Отправка письма на внешний ящик...

Кто сейчас на конференции