Werte Per Mail verschicken

Werte Per Mail verschicken

Hallo Leute,

ich habe ein Probelm. Ich möchte Datensätze die ich bereits in einer Struktur habe per E-Mail verschicken. Mein Problem ist es die Daten in das Textfeld zu packen und diese dann ordnungsgemäß zu verschicken.

Bis jetzt sieht mein Coding wie folgt aus:
__________________________________________________________________________________________________________________

Tables: EDIDC, ZIDOCFEHLER.

CONSTANTS: mail(26) TYPE c VALUE '@'.



DATA: lt_edidc TYPE STANDARD TABLE OF edidc,
ls_edidc like LINE OF lt_edidc,
idoc_nr like ls_edidc-DOCNUM,
statusidoc like ls_edidc-STATUS,
datum like ls_edidc-CREDAT,
T_CONTENT type SOLISTI1 occurs 0 with header line.



Data : itab_fehler TYPE STANDARD TABLE OF ZIDOCFEHLER,
is_fehler LIKE LINE OF itab_fehler,
text like is_fehler-text,
fehlernr like is_fehler-STATUS.



SELECT text Status from ZIDOCFEHLER into CORRESPONDING FIELDS OF TABLE
itab_fehler.


SELECT DOCNUM Status CREDAT from EDIDC into CORRESPONDING FIELDS OF
TABLE
lt_edidc for all entries in itab_fehler where
status = itab_fehler-STATUS and CREDAT = '20001130' .

LOOP AT lt_edidc into ls_edidc .

READ TABLE itab_fehler WITH KEY STATUS = ls_edidc-STATUS into
is_fehler.

IF sy-subrc <> 0.

clear is_fehler-text.

ENDIF.

WRITE 'Die IDOC-Nummer ist :' to T_CONTENT-Line.
write ls_edidc-DOCNUM to T_CONTENT-Line+28.
append T_CONTENT.
CLEAR T_CONTENT.
WRITE 'Der Fehlerstatus ist :' to T_CONTENT-LINE.
WRITE ls_edidc-STATUS to T_CONTENT-LINE+28.
WRITE is_fehler-text to T_CONTENT-Line+31.
append T_CONTENT.
CLEAR T_CONTENT.
WRITE 'Das Erstellungsdatum ist :' to T_CONTENT-LINE.
WRITE ls_edidc-CREDAT to T_CONTENT-LINE+28.
append T_CONTENT.
CLEAR T_CONTENT.
append T_CONTENT.

ENDLOOP.

PERFORM Mail_senden.


*&---------------------------------------------------------------------*
*& Form Mail_senden
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* --> p1 text
* <-- p2 text
*----------------------------------------------------------------------*
form Mail_senden .

DATA: email TYPE string VALUE '@'.

data: E_DOCDATA type SODOCCHGI1,
T_RECIVRS type SOMLRECI1 occurs 0 with header line.


T_RECIVRS-RECEIVER = email.
T_RECIVRS-REC_TYPE = 'C'.
T_RECIVRS-EXPRESS = 'X'.
append T_RECIVRS.

call function 'SO_NEW_DOCUMENT_SEND_API1'
exporting
DOCUMENT_DATA = E_DOCDATA
COMMIT_WORK = 'X' "i
tables
OBJECT_CONTENT = T_CONTENT
RECEIVERS = T_RECIVRS
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.


IF sy-subrc <> 0.
write 'Error'.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.

ENDIF.

endform. " Mail_senden
____________________________________________________________________________________________________________________
Ich hoffe ihr könn mir helfen

Re: Werte Per Mail verschicken

Hat sich erledigt habe vergessen die Zeilen zu zählen und das wars thx