Code: Alles auswählen.
CASE im_type.
WHEN 'RAW'. " wird sonst verwendet
* Dokument erzeugen
mo_document = cl_document_bcs=>create_document( i_type = im_type
i_text = im_body
i_subject = im_subject ).
WHEN 'HTM'. " wird vom 'Problem FuBa' verwendet
* Dokument erzeugen
mo_document = cl_document_bcs=>create_document( i_type = im_type
i_hex = im_hex
i_subject = im_subject ).
ENDCASE.
mo_send_request->set_document( mo_document ).
Code: Alles auswählen.
TRY.
mo_send_request->set_send_immediately( iv_immadiately ).
mo_send_request->send( ).
CATCH cx_send_req_bcs.
RAISE email_error.
ENDTRY.
COMMIT WORK.
Code: Alles auswählen.
CALL FUNCTION 'SCMS_STRING_TO_XSTRING'
EXPORTING
text = lv_html
IMPORTING
buffer = lv_xhtml
EXCEPTIONS
failed = 1
OTHERS = 2.
CALL FUNCTION 'SCMS_XSTRING_TO_BINARY'
EXPORTING
buffer = lv_xhtml
TABLES
binary_tab = lt_hex.
...
...
...
CREATE OBJECT lo_mail.
lo_mail->set_sender( iv_smtpadr = '---' ).
lo_mail->add_recipient( iv_smtpadr = '---' ).
lo_mail->add_recipient( iv_smtpadr = '---' ).
lo_mail->set_subject( lv_subject ).
lo_mail->set_content( im_type = 'HTM' im_hex = lt_hex im_subject = lv_subject ).
lo_mail->send( ).
CATCH cx_bcs INTO lox_bcs_exception.
lv_message = lox_bcs_exception->get_text( ).
MESSAGE e000(su) WITH lv_message.
ENDTRY.
Code: Alles auswählen.
DATA(lo_document) = cl_document_bcs=>create_document(
i_type = 'HTM'
i_text = lt_mailtext
i_subject = iv_title ).
Hast du im Programmlauf danach vielleicht irgendwo ein ROLLBACK WORK drinnen oder es mit einem expliziten COMMIT WORK schon versucht?SaskuAc hat geschrieben:Was mich wundert, es wird halt kein Eintrag in die SOST geschrieben, sodass ich eventuell einen überblick hätte was hier falsch läuft, bzw. richtig...
muss man nicht. Geht auch mit normalem TextSaskuAc hat geschrieben:@zzcpak z. B. bei HTML Text musst du den HEX-Parameter nehmen.
Code: Alles auswählen.
DATA:
go_mail TYPE REF TO cl_bcs_message,
lv_mail_content TYPE string.
CREATE OBJECT go_mail.
go_mail->set_subject( 'HTML Mail' ).
lv_mail_content = '<html><style>h3 { color: blue; }</style>' &&
'<h3>Überschrift in Blau</h3>' &&
'<p>noch a bisserl text</p></html>'.
go_mail->set_main_doc(
iv_contents_txt = lv_mail_content
iv_doctype = 'HTM' ).
go_mail->add_recipient( '<deinemail@adresse.ext>' ).
DATA(gt_error) = go_mail->send( ).