Code: Alles auswählen.
* Internet User
264.************************
265.* @@@@ TODO !!!!!
266.************************
267.* Your Email Adress goes HERE
268. receiver_list-receiver = 'SAPUSER@LOCALHOST'.
269. receiver_list-rec_type = 'U'.
270. receiver_list-com_type ='INT'.
271. APPEND receiver_list.
DATA l_sender TYPE soextreci1-receiver value 'norelpy@myorg.com'.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
EXPORTING
document_data = v_emailattr
put_in_outbox = 'X'
sender_address = l_sender "Sender's Address
sender_address_type = 'INT'
commit_work = 'X'
TABLES
packing_list = it_objpack
object_header = it_objhead
contents_bin = it_objbin
contents_txt = it_objtxt
receivers = it_reclist
Willkommen im Club. 😉besteht die Möglichkeit das Programm von der Nachrichtensteuerung zu debuggen
Code: Alles auswählen.
*&---------------------------------------------------------------------*
*& Program ZMEDRUCK_EMAIL_BCS
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*
PROGRAM ZMEDRUCK_EMAIL_BCS.
* because Po-Order debugging @!,arghhh,-, is nich so schön
PERFORM test.
EXIT.
:
:
:
FORM test.
DATA rc TYPE i.
SELECT SINGLE * FROM nast INTO nast WHERE objky = '4512081578' AND ldest = 'LP01'.
nast-vstat = '0'.
SELECT SINGLE * FROM tnapr INTO tnapr WHERE
kschl = 'NEU' AND
nacha = '1' AND
kappl = 'EF'.
PERFORM entry_neu USING rc ' '.
ENDFORM.
Code: Alles auswählen.
*** for Test
IF sy-sysid = 'xxx'. " Die Testsystem ID
lsmtp_addr = 'yyy@yyy.sap'. " DEINE EMAIL Adresse
ENDIF.