Ausführbare SAP-Mail mit BCS

[Josie2243]

Hallo zusammen,

ich suche eine Möglichkeit mittels BCS (cl_bcs) eine SAP-Mail zu versenden, die ausführbar ist.

Wie das ganze mit SO_NEW_DOCUMENT_SEND_API1 funktioniert ist mir klar, dort kann ich über den Parameter document_data die Transaktion die ausgeführt werden soll mit geben. Über den Parameter object_para kann ich für die Transaktion Werte mit geben.

Gibt es analog dazu etwas für BCS?

[Tristan1443]

Diese Information würde mich auch brennend interessieren.
Ist dafür eine Lösung gefunden?

[Tron]

Moin,
meint ihr so ?

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. *&---------------------------------------------------------------------*
2. *& Report  YBC_EMAIL_CLASS
3. *&
4. *&---------------------------------------------------------------------*
5. *&
6. *&
7. *&---------------------------------------------------------------------*
8.  
9. REPORT  YBC_EMAIL_CLASS.
10. CLASS cl_bcs DEFINITION LOAD.
11. DATA:  lo_send_request TYPE REF TO cl_bcs
12.       ,lo_document     TYPE REF TO cl_document_bcs
13.       ,lo_sender       TYPE REF TO if_sender_bcs
14.       ,lo_recipient    TYPE REF TO if_recipient_bcs
15.       ,lt_message_body TYPE bcsy_text
16.       ,lx_document_bcs TYPE REF TO cx_document_bcs
17.       ,lv_send         TYPE ad_smtpadr VALUE 'Tron@localhost'
18.       ,lv_sent_to_all  TYPE os_boolean     .
19.  
20. data lt_att_content_hex type solix_tab.
21.  
22. "create send request
23. lo_send_request = cl_bcs=>create_persistent( ).
24.  
25. "create message body and subject
26. APPEND 'Dear Vendor,' TO lt_message_body.
27. APPEND INITIAL LINE to lt_message_body.
28. APPEND 'Please fill the attached .' TO lt_message_body.
29. APPEND INITIAL LINE to lt_message_body.
30. APPEND 'Thank You,' TO lt_message_body.
31.  
32. "put your text into the document
33. lo_document = cl_document_bcs=>create_document(
34.                  i_type = 'RAW'
35.                  i_text = lt_message_body
36.                  i_subject = 'Vendor Payment Form' ).
37.  
38.  
39. TRY.
40.   lo_document->add_attachment(
41.     EXPORTING
42.       i_attachment_type = 'PDF'
43.       i_attachment_subject = 'Form'
44.       i_att_content_hex = lt_att_content_hex ).
45.  
46.   CATCH cx_document_bcs INTO lx_document_bcs.
47. ENDTRY.
48.  
49. * Add attachment
50. * Pass the document to send request
51. lo_send_request->set_document( lo_document ).
52.  
53.  
54. "Create sender
55. lo_sender = cl_cam_address_bcs=>create_internet_address( lv_send ).
56.  
57. "Set sender
58. lo_send_request->set_sender( lo_sender ).
59.  
60. "Create recipient
61. lo_recipient = cl_sapuser_bcs=>create( sy-uname ).
62.  
63. *Set recipient
64. lo_send_request->add_recipient(
65.      EXPORTING
66.        i_recipient = lo_recipient i_express = 'X' ).
67.  
68. lo_send_request->add_recipient( lo_recipient ).
69.  
70. * Send email
71. lo_send_request->send(
72.   EXPORTING
73.     i_with_error_screen = 'X'
74.   RECEIVING
75.     result = lv_sent_to_all ).
76.  
77. COMMIT WORK.

GeSHi ©

Beispiel 2

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. *&---------------------------------------------------------------------*
2. *& Report  YBC_EMAIL_CLASS
3. *&
4. *&---------------------------------------------------------------------*
5. *&
6. *&
7. *&---------------------------------------------------------------------*
8.  
9. REPORT  ybc_email_class3.
10. TYPE-POOLS: ixml.
11. DATA t_att_content_hex TYPE solix_tab.
12. DATA lo_send_request TYPE REF TO cl_bcs VALUE IS INITIAL.
13. DATA: lt_message_body TYPE bcsy_text VALUE IS INITIAL,
14.             lo_document TYPE REF TO cl_document_bcs VALUE IS INITIAL.
15. DATA: lx_document_bcs TYPE REF TO cx_document_bcs VALUE IS INITIAL.
16. DATA: lo_recipient TYPE REF TO if_recipient_bcs VALUE IS INITIAL.
17.  
18. DATA file_name TYPE ibipparms-path.
19. DATA file_name1 TYPE string.
20.  
21. *TO GET THE FILE NAME IN PRESENTATION SERVER
22. CALL FUNCTION 'F4_FILENAME'
23.   EXPORTING
24.     program_name  = syst-cprog
25.     dynpro_number = syst-dynnr
26.     field_name    = ' '
27.   IMPORTING
28.     file_name     = file_name.
29. DATA it_mail_hex TYPE solix_tab.
30. file_name1 = file_name.
31.  
32. CALL FUNCTION 'GUI_UPLOAD'
33.   EXPORTING
34.     filename                = file_name1
35.     filetype                = 'BIN'
36.   TABLES
37.     data_tab                = it_mail_hex
38.   EXCEPTIONS
39.     file_open_error         = 1
40.     file_read_error         = 2
41.     no_batch                = 3
42.     gui_refuse_filetransfer = 4
43.     invalid_type            = 5
44.     no_authority            = 6
45.     unknown_error           = 7
46.     bad_data_format         = 8
47.     header_not_allowed      = 9
48.     separator_not_allowed   = 10
49.     header_too_long         = 11
50.     unknown_dp_error        = 12
51.     access_denied           = 13
52.     dp_out_of_memory        = 14
53.     disk_full               = 15
54.     dp_timeout              = 16
55.     OTHERS                  = 17.
56. IF sy-subrc <> 0.
57.   MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
58.           WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
59. ENDIF.
60.  
61.  
62.  
63. CLASS cl_bcs DEFINITION LOAD.
64. lo_send_request = cl_bcs=>create_persistent( ).
65.  
66. * MESSAGE BODY AND SUBJECT
67. APPEND 'Dear,' TO lt_message_body.
68. APPEND ' ' TO lt_message_body.
69. APPEND 'Please find the attached form.'
70. TO lt_message_body.
71. APPEND ' '
72. TO lt_message_body.
73. APPEND 'Thank You,'
74. TO lt_message_body.
75.  
76. *CREATING DOCUMENT
77. lo_document = cl_document_bcs=>create_document(
78. i_type = 'RAW'
79. i_text = lt_message_body
80. i_subject = 'Mail Attachment Sample Example'
81. ).
82. t_att_content_hex = it_mail_hex.
83. *CREATE ATTCHMENT AS PDF
84. TRY.
85.     lo_document->add_attachment(
86.     EXPORTING
87.     i_attachment_type = 'PDF'
88.     i_attachment_subject = 'Example Application for mail attachment'
89.     i_att_content_hex = t_att_content_hex ).
90.   CATCH cx_document_bcs INTO lx_document_bcs.
91.  
92. ENDTRY.
93.  
94. * ADD ATTACHMENT
95. * PASS THE DOCUMENT TO SEND REQUEST
96. lo_send_request->set_document( lo_document ).
97. DATA: lo_sender TYPE REF TO if_sender_bcs VALUE IS INITIAL,
98. l_send TYPE adr6-smtp_addr VALUE 'yourmailid@gmail.com'.
99.  
100.  
101. *SET SENDER:
102. *           THIS IS NECESSARY ONLY IF YOU WANT TO SET THE SENDER
103. *           DIFFERENT FROM ACTUAL USER (SY-UNAME). OTHERWISE SENDER IS
104. *           SET AUTOMATICALLY WITH ACTUAL USER.
105.  
106. lo_sender = cl_sapuser_bcs=>create( sy-uname ).
107. lo_send_request->set_sender(
108. EXPORTING
109. i_sender = lo_sender ).
110.  
111. ** CREATE RECIPIENT
112. **ADD RECIPIENT (E-MAIL ADDRESS)
113. *lo_recipient = cl_cam_address_bcs=>create_internet_address(
114. *                          'Tron@localhost' ).
115. *
116. ** SET RECIPIENT
117. *lo_send_request->add_recipient(
118. *EXPORTING
119. *i_recipient = lo_recipient
120. *i_express = 'X'           ).
121.  
122.  
123. * CREATE RECIPIENT
124. *ADD RECIPIENT (INTERNAL USER)
125. lo_recipient = cl_sapuser_bcs=>create( sy-uname ).
126.  
127. * SET RECIPIENT
128. lo_send_request->add_recipient(
129. EXPORTING
130. i_recipient = lo_recipient
131. i_express = 'X'           ).
132.  
133.  
134.  
135.  
136.  
137.  
138. * SEND EMAIL
139. DATA: lv_sent_to_all(1) TYPE c VALUE IS INITIAL.
140. lo_send_request->send(
141. EXPORTING
142. i_with_error_screen = 'X'
143. RECEIVING
144. result = lv_sent_to_all ).
145. COMMIT WORK.

GeSHi ©

gruß Jens

[Josie2243]

meint ihr so ?

Nein

Wenn man eine SAP-Mail versendet, kann man diese im SAP Workplace ausführbar machen. Das Ausführen ist ein Call Transaktion mit Parameter übergabe. Funktioniert m.W. nicht per eMail.

Wie man dies über die FuBas hinbekommt ist mir klar, aber über BCS leider nicht.
Ausführbare SAP-Mails sind manchmal ganz praktisch, um z.B. den User direkt in den Beleg zu schicken, nur die FuBas sind etwas unpraktisch (z.B. Längenbegrenzung der Parameter-IDs). Deshalb besteht die Hoffnung, dass dies mit BCS etwas besser umsetzbar ist.

[Ursula4506]

Hallo Zusammen,
es geht, indem man einen SAP Link Datei als Anlage verschickt.
Man kann ja aus dem SAP Menü per rechtem Mausklick sich solche Dateien erzeugen und auf dem Desktop ablegen ("Verknüpfung erstellen auf dem Desktop").
Dabei entsteht eine Datei, die beispielhaft so aussieht:

Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)

1. [System]
2. Name=Z99
3. Client=201
4. [User]
5. Name=UNAME
6. Language=E
7. [Function]
8. Command=SE38 RS38M-PROGRAMM=ZABAP;
9. Title=ABAP Editor
10. Type=Transaction
11.  

GeSHi ©

Man muss also eigentlich nur ein solches Textfile programmtechnisch erzeugen und als attachment an die Mail anhängen. Parameter können per Semikolon getrennt mitgegeben werden, dabei muss man die Feldnamen auf dem Dynpro der aufgerufenen Transaktion mitgeben (siehe Beispiel).

Bei Doppelklick auf die Datei ( extension .sap!) muss der Anwender noch evtl. ein paar Sicherheitsabfragen beantworten ("Wollen Sie wirklich zulassen..."), dann folgt der Anmeldeschirm des entsprechenden Systems usw. usf.

Gruß
Frank