Quantcast
Channel: SCN: Message List
Viewing all articles
Browse latest Browse all 9269

Re: Pro with mail sending

$
0
0

Hi Friends,

 

I have written coding in another way and still my image is not getting displayed in SOST.

 

here my image in SOST.

 

 

 

 

 

My Code.

 

CALL METHOD gv_mr_api->get
   EXPORTING
     i_url              = '/SAP/PUBLIC/Recruiting_Header.jpg'
   IMPORTING
     e_is_folder        = is_folder
     e_content          = gv_content
     e_loio             = l_loio
   EXCEPTIONS
     parameter_missing  = 1
     error_occured      = 2
     not_found          = 3
     permission_failure = 4
     OTHERS             = 5.

l_obj_len = XSTRLEN( gv_content ).
lv_graphic_length = XSTRLEN( gv_content ).
CLEAR gr_xstr.
gr_xstr = gv_content(l_obj_len).
l_offset = 0.
l_lenght = 255.


CLEAR lt_solix[].
WHILE l_offset < lv_graphic_length.
   l_diff = lv_graphic_length - l_offset.
   IF l_diff > l_lenght.
     ls_solix-line = gr_xstr+l_offset(l_lenght).
   ELSE.
     ls_solix-line = gr_xstr+l_offset(l_diff).
   ENDIF.
   APPEND ls_solix TO lt_solix.
   ADD l_lenght TO l_offset.
ENDWHILE.


CREATE OBJECT lo_mime_helper .

CALL METHOD lo_mime_helper->add_binary_part(
   content = lt_solix
   filename = l_filename
   extension = 'JPG'
   description = 'Graphic in JPG Format'
   content_type = 'image/jpg'
   length = l_obj_len
   content_id = l_content_id
   ).



ls_soli = '<html xmlns="http://www.w3.org/1999/xhtml" xmlns:xfa="http://www.xfa.org/schema/xfa-template/2.1"><head></head>'.
APPEND ls_soli TO lt_soli.
CLEAR ls_soli.

ls_soli = '<body>'.
APPEND ls_soli TO lt_soli.
CLEAR ls_soli.

CONCATENATE '<p><font size="4" face="Gabriola,Lucida Calligraphy,Comic Sans MS" color="red" fontStyle="italic"><i><b>Dear'
        'Employee Name' ', <br>' INTO ls_soli SEPARATED BY space.

APPEND ls_soli TO lt_soli.
CLEAR ls_soli.
ls_soli = '<br><img alt="[image]" src="cid:img_happy.jpg" /><br>'.
APPEND ls_soli TO lt_soli.
CLEAR ls_soli.
CONCATENATE '<br>Regards,<br>' 'CEO Name' '<br>Team GINGER</br></i></font></P></body></html>' INTO ls_soli SEPARATED BY space.
APPEND ls_soli TO lt_soli.
CLEAR ls_soli.

lo_mime_helper->set_main_html(
     content     = lt_soli
     filename    = 'sapwebform.htm'
     description = 'Birthday Greetungs'
        ).

l_subject = 'Birthday Greetings'.
lo_doc_bcs = cl_document_bcs=>create_from_multirelated(
                                  i_subject = l_subject
                                  i_multirel_service = lo_mime_helper ).

lo_bcs = cl_bcs=>create_persistent( ).

lo_bcs->set_document( lo_doc_bcs ).


lo_sender = cl_sapuser_bcs=>create( sy-uname ).

lo_bcs->set_sender(
EXPORTING
   i_sender = lo_sender ).

lo_recipient = cl_cam_address_bcs=>create_internet_address( i_address_string = 'abc@xyz.com' ).
lo_bcs->add_recipient( i_recipient = lo_recipient ).
lo_bcs->send( ).
COMMIT WORK.




Can any  one please help me..


Sudheer.


Moderator message - Do not post personal info - email, mobile# etc

 

Message was edited by: Suhas Saha


Viewing all articles
Browse latest Browse all 9269

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>