Code: Alles auswählen.
DATA: LS_HEAD_DATA TYPE SOOD1,
LT_NOTE_TEXT TYPE STANDARD TABLE OF SOLI,
LS_NOTE_TEXT TYPE SOLI,
LV_DESCRIPTION TYPE SO_OBJ_DES,
LT_STDTEXT TYPE STANDARD TABLE OF TLINE,
LS_STDTEXT TYPE TLINE,
LT_REC TYPE STANDARD TABLE OF SOOS1,
LS_REC TYPE SOOS1,
LV_MAILVERTEILER TYPE SO_DLI_NAM,
LV_MATNR TYPE OBJKY,
LV_MATNR_O TYPE MATNR,
LV_MAKTX_D TYPE MAKTX,
LV_MAKTX_E TYPE MAKTX,
LV_DOKNR TYPE DOKNR,
entries like sy-tabix.
LS_NOTE_TEXT-LINE = 'Dies ist ein test'.
APPEND LS_NOTE_TEXT TO LT_NOTE_TEXT.
LV_DESCRIPTION = 'Betreffzeile'.
LS_HEAD_DATA-OBJDES = LV_DESCRIPTION.
LS_NOTE_TEXT-LINE = 'ZMailtext'.
APPEND LS_NOTE_TEXT TO LT_NOTE_TEXT.
LS_NOTE_TEXT-LINE = 'Zeile2'.
APPEND LS_NOTE_TEXT TO LT_NOTE_TEXT.
* Mail-Dialog aufrufen
CALL FUNCTION 'SO_DYNP_OBJECT_SEND' STARTING NEW TASK 'MAIL'
EXPORTING
OBJECT_HD_CHANGE = LS_HEAD_DATA
NOTE_FLAG = 'X'
TABLES
REC_TAB = LT_REC
NOTE_TEXT = LT_NOTE_TEXT
EXCEPTIONS
OBJECT_NOT_SENT = 1
OWNER_NOT_EXIST = 2
PARAMETER_ERROR = 3
OTHERS = 4
.
Code: Alles auswählen.
Content-Type: multipart/mixed;
Code: Alles auswählen.
Content-Type: text/plain;
charset="us-ascii"
Content-Transfer-Encoding: quoted-printable