report zsend .
tables: kna1.
* data for send function
data doc_data like sodocchgi1.
data object_id like soodk.
data objcont like soli occurs 10 with header line.
data receiver like somlreci1 occurs 1 with header line.
select * from kna1 where anred like 'c%'.
write:/ kna1-kunnr, kna1-anred.
* send data internal table
concatenate kna1-kunnr kna1-anred
into objcont-line separated by space.
* insert receiver (sap name)* insert mail description
write 'sending a mail through abap'
to doc_data-obj_descr.
call function 'so_new_document_send_api1'
exporting
document_data = doc_data
importing
new_object_id = object_id
tables
object_content = objcont
receivers = receiver
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.
用Perl傳送郵件小例子
據傳,perl傳送郵件有很多方案,但我只會用mail sender這種方式,也就只能簡單談談這種方式。在參考眾多網頁後,程式書寫如下 usr bin perl w use mail sender my sender mail sender new or die can t send mail.n m...
Shell指令碼實現自動傳送郵件的例子
1 編輯使用者home目錄下的.muttrc檔案,設定發信環境。複製 如下 cat root muttrc set envelope from yes set from owinux sina.cn set realname owinux set use from yes set rfc2047 p...
Shell指令碼實現自動傳送郵件的例子
1 編輯使用者程式設計客棧home目錄下的.muttrc檔案,設定發信環境。複製 如下 cat root muttrc set envelope 程式設計客棧from yes set from owinux sina.cn set rewww.cppcns.comalname owinux set ...