Here is the code guys:
function z_send_email.
*"----
""Local interface:
*" IMPORTING
*" VALUE(SUBJECT) TYPE STRING
*" VALUE(MESSAGE) TYPE STRING OPTIONAL
*" EXPORTING
*" REFERENCE(RETURN) TYPE BAPIRET2
*" TABLES
*" RECIPIENTS
*" MAILBODY STRUCTURE SOLI OPTIONAL
*" ATTACHMENTS OPTIONAL
*" EXCEPTIONS
*" NO_BODY
*" BCS_ERROR
*"----
----
----
data: send_request type ref to cl_bcs.
data: document type ref to cl_document_bcs.
data: sender type ref to if_sender_bcs.
data: recipient type ref to if_recipient_bcs.
data: exception_info type ref to if_os_exception_info,
bcs_exception type ref to cx_bcs.
data: l_dset type string,
l_attach type solix,
l_attname type sood-objdes,
l_attext type soodk-objtp,
l_lines type i,
l_file type string,
wa_attach type solix, " Attachment
l_size type sood-objlen. " Size of Attachmen
----
----
data: l_mailtext type soli_tab.
data: i_attach type solix_tab.
if message is initial and mailbody[] is initial.
return-type = 'E'.
return-message = 'No MESSAGE or MAILBODY'.
raise no_body.
endif.
try.
send_request = cl_bcs=>create_persistent( ).
data: l_subject type so_obj_des.
l_subject = subject.
if mailbody[] is initial.
call function 'SCMS_STRING_TO_FTEXT'
exporting
text = message
tables
ftext_tab = l_mailtext.
else.
l_mailtext[] = mailbody[].
endif.
document = cl_document_bcs=>create_document(
i_type = 'RAW'
i_text = l_mailtext
i_subject = l_subject ).
call method send_request->set_document( document ).
sender = cl_sapuser_bcs=>create( sy-uname ).
call method send_request->set_sender
exporting
i_sender = sender.
data: l_recipient type ad_smtpadr.
loop at recipients into l_recipient.
recipient = cl_cam_address_bcs=>create_internet_address(
l_recipient ).
call method send_request->add_recipient
exporting
i_recipient = recipient.
endloop.
call method send_request->set_status_attributes
exporting
i_requested_status = 'E'
i_status_mail = 'E'.
*Add attachments
loop at attachments into l_dset.
open dataset l_dset in binary mode for input.
do.
read dataset l_dset into wa_attach.
append wa_attach to i_attach.
if sy-subrc ne 0.
exit.
endif.
clear wa_attach.
enddo.
close dataset l_dset.
describe table i_attach lines l_lines.
l_size = l_lines * 255.
call function 'SO_SPLIT_FILE_AND_PATH'
exporting
full_name = l_dset
importing
stripped_name = l_file
exceptions
x_error = 1
others = 2.
if sy-subrc <> 0.
endif.
split l_file at '.' into l_attname l_attext.
call method document->add_attachment
exporting
i_attachment_type = l_attext
i_attachment_size = l_size
i_attachment_subject = l_attname
i_att_content_hex = i_attach[].
endloop.
send_request->set_send_immediately( 'X' ).
call method send_request->send( ).
commit work.
if sy-subrc eq 0.
return-type = 'S'.
return-message = 'Message sent.'.
endif.
catch cx_bcs into bcs_exception.
data: l_message type string.
l_message = bcs_exception->get_text( ).
return-type = 'E'.
return-message = l_message.
raise bcs_error.
endtry.
endfunction.
Bluesky
