群发邮件代码

buparedeqie

FORM SEND_EMAIL  .
*&& 调用FUNCTION发送MAIL
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      DOCUMENT_DATA              = L_TAB_DATA "邮件标题
      PUT_IN_OUTBOX              = 'X'
      COMMIT_WORK                = 'X'
    TABLES
      PACKING_LIST               = L_TAB_LIST "邮件设置
*      OBJECT_HEADER              = V_OBJHEAD
*      CONTENTS_BIN               = I_OBJBIN
      CONTENTS_TXT               = L_TAB_TXT  "邮件内容
      RECEIVERS                  = L_TAB_RECE[] "邮件接收人    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.

    SUBMIT Z_EMAIL WITH MODE = 'INT' AND RETURN.
  ENDIF.


ENDFORM.

admin

你用SE37单独运行测试一下，如果se37里也是发送一个的话，那这个函数就是只能发送一个，如果se37可以发送多个的话，那就是你其他代码的问题，你要查一下了。

lovehu801

这个代码我也在研究....

sabap

群发你可以试试这个FM：SO_OBJECT_SEND

laohu

看的有点蒙，可能对系统还不熟悉，还是谢谢啦！

冰糖葫芦

学习