Отправка писем на email

femina_alba

Здравствуйте. Пытаюсь настроить отправку письма на email с помощью ФМ SO_NEW_DOCUMENT_SEND_API1. В случае обычного abap-отчета письма уходят и доходят до адресата без проблем, а при попытках рассылки из динамического мероприятия письма уходят, но не доходят. С чем это может быть связано. Заранее большое спасибо.

Удав

Под каким пользователем отрабатывает динамическое мероприятие?

femina_alba

Мы так поняли, что под тем, который собственно и проводит мероприятие.

Пономарев Артем

В транзакции SOST эти письма видно?

femina_alba

нет не видно

Пономарев Артем

Значит письма и не уходят. Вы уверены что ваше мероприятие в принципе отрабатывает?

femina_alba

через отладку смотрели. До ФМ доходит, отрабатывает, никаких EXCEPTIONS не возникает.

Parazit

femina_alba написал(а):

через отладку смотрели. До ФМ доходит, отрабатывает, никаких EXCEPTIONS не возникает.

Смотрите SU53

trop

может commit забыли?

olegbash

а может это забыли: RSCONN01 ?

а можно на код посмотреть?

olegbash

ну и еще вариант: возможно какой-то параметр для ФМ заполнен неправильно (получатель или еще что-нибудь).
попробуйте дойти до ФМ из двух программ (которая работает и нет) и сохранить параметры как тестовые для ФМ, потом внимательно сравнить.

femina_alba

Code:

DATA  DOCUMENT_DATA LIKE SODOCCHGI1.
  DATA: itab_objtxt TYPE TABLE OF solisti1,
        ls_objtxt LIKE LINE OF itab_objtxt.

*  DATA: DEFAULT_RECEIVER LIKE  SOMLREC90.

*RECEIVERS-RECEIVER = RECEIVER.
*RECEIVERS-EXPRESS = EXPRESS.
*APPEND RECEIVERS.

*  DEFAULT_RECEIVER-RECEIVER = SY-UNAME.

* Заголовок

  DOCUMENT_DATA-obj_langu = sy-langu.
  DOCUMENT_DATA-obj_descr = 'Title'. "Заголовок сообщения

* Email body text
  ls_objtxt-line = 'Test'.
  APPEND ls_objtxt to itab_objtxt.


* Получатели
  refresh RECEIVERS.
  clear RECEIVERS.
  receivers-receiver = 'user@kos.ru'.
  receivers-rec_type   = 'U'.               "&---- Send to External Email id
  APPEND receivers.

* Отправка
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
  EXPORTING
    DOCUMENT_DATA                    =  DOCUMENT_DATA
    PUT_IN_OUTBOX                    = 'X'
    COMMIT_WORK                      = 'X'
*   IP_ENCRYPT                       =
*   IP_SIGN                          =
* IMPORTING
*   SENT_TO_ALL                      =
*   NEW_OBJECT_ID                    =
  TABLES
*   OBJECT_HEADER                    =
    OBJECT_CONTENT                   = itab_objtxt
*   CONTENTS_HEX                     =
*   OBJECT_PARA                      =
*   OBJECT_PARB                      =
    RECEIVERS                        = RECEIVERS
 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.

 SUBMIT rsconn01 WITH mode = 'INT'
                    WITH output = 'X'
           TO SAP-SPOOL DESTINATION 'LOCL' IMMEDIATELY ' '
           KEEP IN SPOOL 'X' DATASET EXPIRATION 14
           WITHOUT SPOOL DYNPRO AND RETURN.

SU53 ничего не показывает

AFH

После CALL FUNCTION sy-subrc = 0?
А commit work где?

А хотя нет, вроде выше уже ответили на вопрос...

femina_alba

Попробовала так, все равно не работает

Code:

  DATA  DOCUMENT_DATA LIKE SODOCCHGI1.
  DATA: itab_objtxt TYPE TABLE OF solisti1,
        ls_objtxt LIKE LINE OF itab_objtxt.

*  DATA: DEFAULT_RECEIVER LIKE  SOMLREC90.

*RECEIVERS-RECEIVER = RECEIVER.
*RECEIVERS-EXPRESS = EXPRESS.
*APPEND RECEIVERS.

*  DEFAULT_RECEIVER-RECEIVER = SY-UNAME.

* Заголовок

  DOCUMENT_DATA-obj_langu = sy-langu.
  DOCUMENT_DATA-obj_descr = 'Title'. "Заголовок сообщения

* Email body text
  ls_objtxt-line = 'Test'.
  APPEND ls_objtxt to itab_objtxt.


* Получатели
  refresh RECEIVERS.
  clear RECEIVERS.
  receivers-receiver = 'user@kos.ru'.
  receivers-rec_type   = 'U'.               "&---- Send to External Email id
  APPEND receivers.

* Отправка
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
  EXPORTING
    DOCUMENT_DATA                    =  DOCUMENT_DATA
    PUT_IN_OUTBOX                    = 'X'
*    COMMIT_WORK                      = 'X'
*   IP_ENCRYPT                       =
*   IP_SIGN                          =
* IMPORTING
*   SENT_TO_ALL                      =
*   NEW_OBJECT_ID                    =
  TABLES
*   OBJECT_HEADER                    =
    OBJECT_CONTENT                   = itab_objtxt
*   CONTENTS_HEX                     =
*   OBJECT_PARA                      =
*   OBJECT_PARB                      =
    RECEIVERS                        = RECEIVERS
 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.

 IF SY-SUBRC EQ 0.
 COMMIT WORK.
  SUBMIT rsconn01 WITH mode = 'INT'
                    WITH output = 'X'
           TO SAP-SPOOL DESTINATION 'LOCL' IMMEDIATELY ' '
           KEEP IN SPOOL 'X' DATASET EXPIRATION 14
           WITHOUT SPOOL DYNPRO AND RETURN.
 endif.

olegbash

Вот такой код у меня письмо отправил

Code:

DATA  DOCUMENT_DATA LIKE SODOCCHGI1.
  DATA: itab_objtxt TYPE TABLE OF solisti1,
        ls_objtxt LIKE LINE OF itab_objtxt,
        lt_RECEIVERS TYPE STANDARD TABLE OF SOMLRECI1,
        ls_RECEIVERS TYPE SOMLRECI1
        .

*  DATA: DEFAULT_RECEIVER LIKE  SOMLREC90.

*RECEIVERS-RECEIVER = RECEIVER.
*RECEIVERS-EXPRESS = EXPRESS.
*APPEND RECEIVERS.

*  DEFAULT_RECEIVER-RECEIVER = SY-UNAME.

* Заголовок

  DOCUMENT_DATA-obj_langu = sy-langu.
  DOCUMENT_DATA-obj_descr = 'Title'. "Заголовок сообщения

* Email body text
  ls_objtxt-line = 'Test'.
  APPEND ls_objtxt to itab_objtxt.


* Получатели
"  refresh RECEIVERS.
  "clear: RECEIVERS.
  clear: ls_RECEIVERS, lt_RECEIVERS.
  ls_RECEIVERS-receiver = 'user@kos.ru'. " существующий адрес
  ls_RECEIVERS-rec_type   = 'U'.               "&---- Send to External Email id
  APPEND ls_RECEIVERS to lt_RECEIVERS.

* Отправка
*CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
*  EXPORTING
*    DOCUMENT_DATA                    =  DOCUMENT_DATA
*    PUT_IN_OUTBOX                    = 'X'
**    COMMIT_WORK                      = 'X'
**   IP_ENCRYPT                       =
**   IP_SIGN                          =
** IMPORTING
**   SENT_TO_ALL                      =
**   NEW_OBJECT_ID                    =
*  TABLES
**   OBJECT_HEADER                    =
*    OBJECT_CONTENT                   = itab_objtxt
**   CONTENTS_HEX                     =
**   OBJECT_PARA                      =
**   OBJECT_PARB                      =
*    RECEIVERS                        = lt_RECEIVERS
*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.

CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
  EXPORTING
    DOCUMENT_DATA                    = DOCUMENT_DATA
   DOCUMENT_TYPE                    = 'RAW'
*   PUT_IN_OUTBOX                    = ' '
*   COMMIT_WORK                      = ' '
*   IP_ENCRYPT                       =
*   IP_SIGN                          =
* IMPORTING
*   SENT_TO_ALL                      =
*   NEW_OBJECT_ID                    =
  TABLES
*   OBJECT_HEADER                    =
   OBJECT_CONTENT                   = itab_objtxt
*   CONTENTS_HEX                     =
*   OBJECT_PARA                      =
*   OBJECT_PARB                      =
    RECEIVERS                        = lt_RECEIVERS
* 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
          .
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.


IF SY-SUBRC EQ 0.
COMMIT WORK.
  SUBMIT rsconn01 WITH mode = 'INT'
                    WITH output = 'X'
           TO SAP-SPOOL DESTINATION 'LOCL' IMMEDIATELY ' '
           KEEP IN SPOOL 'X' DATASET EXPIRATION 14
           WITHOUT SPOOL DYNPRO AND RETURN.
endif.

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

Отправка писем на email

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