hallow i send mail with this code
i wont to now how in the header of mail i send it in blue <b>color</b>
regards
CONCATENATE sy-datum6(2) sy-datum4(2) sy-datum+0(4)
INTO p_date SEPARATED BY '/'.
CONCATENATE sy-uzeit0(2) sy-uzeit2(2) sy-uzeit+4(2)
INTO p_time SEPARATED BY ':'.
CONCATENATE text-002 p_date p_time
INTO p_line1 SEPARATED BY space.
APPEND p_line1 TO text.
p_line1 = '=========================================='.
APPEND p_line1 TO text.
CONCATENATE text-003 counter
INTO p_line1 SEPARATED BY space.
APPEND p_line1 TO text.
p_line1 = text-007.
APPEND p_line1 TO text.
p_line1 = '=========================================='.
APPEND p_line1 TO text.
******************************************************
SELECT SINGLE value
FROM yhr_parameters
INTO wa_mail_addr
WHERE title = 'YHR'
AND subtitle = 'MMSK_LOMED'
AND name = 'SEND_MAIL'.
document = cl_document_bcs=>create_document(
i_type = 'RAW'
i_text = text
i_length = '12'
<b>i_subject = text-001 ).</b>
CALL METHOD send_request->set_document( document ).
sender = cl_sapuser_bcs=>create( sy-uname ).
CALL METHOD send_request->set_sender
EXPORTING
i_sender = sender.
recipient = cl_cam_address_bcs=>create_internet_address( wa_mail_addr ).
CALL METHOD send_request->add_recipient
EXPORTING
i_recipient = recipient
i_express = 'X'.
CALL METHOD send_request->send(
EXPORTING
i_with_error_screen = 'X'
RECEIVING
result = sent_to_all ).
COMMIT WORK.
Bluesky
