Sends a SAP mail to the specified recipient with a SAP BusinessObject as attachment.
4 set ::SAPDat(SAPMAIL:RECEIVERS:RECEIVER:1) Recipient
5 set ::SAPDat(SAPMAIL:RECEIVERS:EXPRESS:1) "X"
10 set ::SAPDat(SAPMAIL:DOCUMENTDATA:OBJ_DESCR) "My Subject"
21 set ::SAPDat(SAPMAIL:PACKING_LIST:HEAD_START:1) "0"
22 set ::SAPDat(SAPMAIL:PACKING_LIST:HEAD_NUM:1) "0"
23 set ::SAPDat(SAPMAIL:PACKING_LIST:BODY_START:1) "1"
24 set ::SAPDat(SAPMAIL:PACKING_LIST:BODY_NUM:1) "3"
25 set ::SAPDat(SAPMAIL:PACKING_LIST:DOC_TYPE:1) "RAW"
32 set ObjKey DRW000000000000000000000123400001
34 set ::SAPDat(SAPMAIL:PACKING_LIST:HEAD_START:2) "1"
35 set ::SAPDat(SAPMAIL:PACKING_LIST:HEAD_NUM:2) "1"
36 set ::SAPDat(SAPMAIL:PACKING_LIST:BODY_START:2) "0"
37 set ::SAPDat(SAPMAIL:PACKING_LIST:BODY_NUM:2) "0"
38 set ::SAPDat(SAPMAIL:PACKING_LIST:DOC_TYPE:2) "OBJ"
39 set ::SAPDat(SAPMAIL:PACKING_LIST:OBJ_NAME:2) $ObjType
40 set ::SAPDat(SAPMAIL:PACKING_LIST:OBJ_DESCR:2) "$ObjType-$ObjKey"
45 set OBJECT_HEADER [
format "%-10s%-10s%-25s" "" $ObjType $ObjKey]
46 set ::SAPDat(SAPMAIL:OBJECT_HEADER:LINE:1) $OBJECT_HEADER
50 set MailBody "This is my Text"
51 set ::SAPDat(SAPMAIL:CONTENTS_TXT:LINE:1) [
string range $MailBody 0 254]
52 set ::SAPDat(SAPMAIL:CONTENTS_TXT:LINE:2) [
string range $MailBody 255 499]
59 if {[
lindex $Status 0] eq "OK"} {