Image in Mail body in ABAP

Hello

I tried many ways to send an image in body but it still doesn t appear , I applied all steps correctly but no result I send all html to email address but image still  = X

my code is here please help

SPAN {
font-family: “Courier New”;
font-size: 10pt;
color: #000000;
background: #FFFFFF;
}
.L0S31 {
font-style: italic;
color: #808080;
}
.L0S32 {
color: #3399FF;
}
.L0S33 {
color: #4DA619;
}
.L0S52 {
color: #0000FF;
}
.L0S55 {
color: #800080;
}
.L0S70 {
color: #808080;
}
REPORT ZBW_HBDAY.

DATA:
*- Structure to hold Output Details in delimited format
gf_output_soli TYPE  soli,
*- Structure to hold Imported Object Components
gf_objpack     TYPE sopcklsti1,
*- Structure to hold data in single line format
gf_objhead     TYPE solisti1,
*- Structure to hold data in single line format
gf_objtxt      TYPE solisti1,
*- Structure to hold data for API Recipient List
gf_reclist     TYPE somlreci1,
*- Structure to hold  email data
gf_doc_chng    TYPE sodocchgi1,
*- Internal Table to hold Output Details in delimited format
gt_output_soli TYPE TABLE OF soli,
*- Internal Table to hold Imported Object Components
gt_objpack     TYPE TABLE OF sopcklsti1,
*- Internal Table to hold data in single line format
gt_objhead     TYPE TABLE OF solisti1,
*- Internal Table to hold data in single line format
gt_objtxt      TYPE TABLE OF solisti1,
*- Internal Table to hold data for API Recipient List
gt_reclist     TYPE TABLE OF somlreci1.

* Data Declarations
DATA: LT_MAILSUBJECT     TYPE SODOCCHGI1.
DATA: LT_MAILRECIPIENTS  TYPE STANDARD TABLE OF SOMLREC90 WITH HEADER LINE.
DATA: LT_MAILTXT         TYPE STANDARD TABLE OF SOLI      WITH HEADER LINE.

DATA: LT_MAILSUBJECT_2     TYPE SODOCCHGI1.
DATA: LT_MAILRECIPIENTS_2  TYPE STANDARD TABLE OF SOMLREC90 WITH HEADER LINE.
DATA: LT_MAILTXT_2         TYPE STANDARD TABLE OF SOLI      WITH HEADER LINE.

DATA: BEGIN OF GT_ITAB OCCURS 0,
usrid_long like  pa0105–usrid_long.
DATA: END OF GT_ITAB,

LS_ITAB LIKE LINE OF GT_ITAB.

data : date(2) type c,
month(2) type c,
year(4) type c.

date = sy–datum+6(2).
month = sy–datum+4(2).
year = sy–datum+0(4).

SELECT
distinct
p05~usrid_long
FROM PA0002 as p2 INNER JOIN   pa0000 as p0 on p2~pernr = p0~pernr
inner join pa0105 as p05 on p05~pernr = p0~pernr
into table gt_itab
where p2~gbmon = month    and  p2~gbtag = date and p05~usrid_long <> ” .

*loop at gt_itab.

* Recipients
*LT_MAILRECIPIENTS-REC_TYPE  = ‘U’.
*LT_MAILRECIPIENTS-RECEIVER = gt_itab-usrid_long.
*APPEND LT_MAILRECIPIENTS .
*CLEAR LT_MAILRECIPIENTS .

LT_MAILRECIPIENTS–REC_TYPE  = ‘U’.
LT_MAILRECIPIENTS–RECEIVER = ‘<private information removed by moderator>’.
LT_MAILRECIPIENTS–BLIND_COPY = ‘X’.
APPEND LT_MAILRECIPIENTS .

*ENDLOOP.

DATA: gv_mr_api TYPE REF TO if_mr_api.

DATA is_folder TYPE boole_d.
DATA l_current TYPE xstring.
DATA l_loio TYPE skwf_io.

IF gv_mr_api IS INITIAL.

gv_mr_api = cl_mime_repository_api=>if_mr_api~get_api( ).

ENDIF.

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

*IF gv_mr_api IS INITIAL.
*
*gv_mr_api = cl_mime_repository_api=>if_mr_api~get_api( ).
*
*ENDIF.
*
*CALL METHOD gv_mr_api->get
*EXPORTING
*i_url = ‘/SAP/PUBLIC/dogum_gunu.jpg’  “Image path
*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.

“Convert Image to Xstring table form

DATA :         gv_content TYPE xstring.

DATA : l_obj_len      TYPE so_obj_len,
lv_graphic_length TYPE tdlength,
gr_xstr TYPE xstring,
l_offset TYPE i,
l_length TYPE i,
l_diff TYPE i,
ls_solix TYPE solix,
lt_solix TYPE solix_tab.

DATA: l_filename     TYPE string,
l_content_id TYPE string,
gv_content_64 type string,
lv_length type string,
lv_len2 type i,
lv_len3 type i.

data : lt_soli        TYPE soli_tab,
ls_soli TYPE soli.

l_obj_len = XSTRLEN( gv_content ).
lv_graphic_length = XSTRLEN( gv_content ).

“get whole image
CLEAR gr_xstr.
gr_xstr = gv_content(l_obj_len).

l_offset = 0.
l_length = 255.

CLEAR lt_solix[].

WHILE l_offset < lv_graphic_length.

l_diff = lv_graphic_length – l_offset.
IF l_diff > l_length.
ls_solix–line = gr_xstr+l_offset(l_length).
ELSE.
ls_solix–line = gr_xstr+l_offset(l_diff).
ENDIF.
APPEND ls_solix TO lt_solix.
ADD l_length TO l_offset.
ENDWHILE.

*  CALL FUNCTION ‘SSFC_BASE64_ENCODE’
*    EXPORTING
*      bindata                        = l_current
*   IMPORTING
*     b64data                        = b64data.
*  IF sy-subrc <> 0.
*  ENDIF.

*CALL FUNCTION ‘SSFC_BASE64_ENCODE’
*EXPORTING
*BINDATA                        = gv_content
*IMPORTING
*B64DATA                        = gv_content_64
*EXCEPTIONS
*SSF_KRN_ERROR                  = 1
*SSF_KRN_NOOP                   = 2
*SSF_KRN_NOMEMORY               = 3
*SSF_KRN_OPINV                  = 4
*SSF_KRN_INPUT_DATA_ERROR       = 5
*SSF_KRN_INVALID_PAR            = 6
*SSF_KRN_INVALID_PARLEN         = 7
*OTHERS                         = 8
*.
*IF SY-SUBRC <> 0.
** Implement suitable error handling here
*ENDIF.

*Attach image to HTML body
l_filename = ‘dogum_gunu.jpg’.
l_content_id = ‘dogum_gunu.jpg’.

DATA : lo_mime_helper    TYPE REF TO cl_gbt_multirelated_service.

CREATE OBJECT lo_mime_helper.

CALL METHOD lo_mime_helper->add_binary_part
EXPORTING
content = lt_solix                   “Xstring in table form
filename = l_filename                 “file name to be given to image
extension = ‘JPG’                      “type of file
description = ‘Graphic in JPG format’    “description
content_type = ‘image/jpg’                “content type / Mime type. If mime type not present in system then need to add through tcode : SMW0
length = l_obj_len                  “length of image
content_id = l_content_id.              “content id would be used in html part

“Create HTML mail body Content
REFRESH lt_soli[].
CLEAR ls_soli.

*****************************************************HTML body content start**************************************************************************
ls_soli = ‘<html xmlns=”http://www.w3.org/1999/xhtml” xmlns:xfa=”http://www.xfa.org/schema/xfa-template/2.1/”>’ .
APPEND ls_soli TO lt_soli.
CLEAR ls_soli.

ls_soli = ‘<html>’.
APPEND ls_soli TO lt_soli.

CLEAR ls_soli.

ls_soli = ‘<body>’.
APPEND ls_soli TO lt_soli.

CLEAR ls_soli.

*
*
*
*
*ls_soli  = ‘<style=”font-family:verdana;font-size:15px;”>’  .
*APPEND ls_soli TO lt_soli.
*
*CLEAR ls_soli.
*
* lv_length = STRLEN( gv_content_64 ).
* lv_len2 = lv_length / 255.
* ls_soli = gv_content_64.
* APPEND ls_soli TO lt_soli.
*
*CLEAR ls_soli.
*
* DO lv_len2 TIMES.
*
* lv_len3 = 255 * sy-index.
* IF lv_len3 <= lv_length.
*  ls_soli-line = gv_content_64(lv_len3).
*      IF ls_soli IS NOT INITIAL.
*     MOVE ls_soli-line TO ls_soli-line.
*     APPEND ls_soli TO lt_soli.
*     CLEAR lt_soli.
*    ELSE.
*       EXIT.
*      ENDIF.
*ELSEif lv_len3 > lv_length.
*    EXIT.
*ENDIF.
*ENDDO.
*
*
*
*CLEAR ls_soli.

ls_soli = ‘<br><img src=”cid:dogum_gunu.jpg” />’.
APPEND ls_soli TO lt_soli.
clear ls_soli .

ls_soli = ‘<BR> <BR> <BR> ‘ .

APPEND ls_soli TO lt_soli.

clear ls_soli .

ls_soli = ‘ <p>   Dear Name1,  <BR> <BR>  the Following request requires your Attention: <BR> <BR> ‘ .

APPEND ls_soli TO lt_soli.

clear ls_soli .

ls_soli = ‘ Request Number : <U> Ticket number </U> <BR> Request Type : Category <BR> Description: Test <BR> Current Status: Status <BR> </p> ‘  .

APPEND ls_soli TO lt_soli.

clear ls_soli .

ls_Soli = ‘ <BR> <BR> <P1> <Strong> Action Team </Strong> </P1> <BR> <BR> ‘  .

APPEND ls_soli TO lt_soli.

clear ls_soli .

ls_soli = ‘<h2 style=”background-color:yellow;”>’ .

APPEND ls_soli TO lt_soli.
clear ls_soli .

ls_soli = ‘ <P2> <font color = “#0000FF” size=”+1″ face=”Arial,”Helvetica, sans-serif”   <BR>  This is an automatically generated message. Please do not reply to this address.  <BR> ‘ .

APPEND ls_soli TO lt_soli.
clear ls_soli .

ls_soli = ‘ </body> ‘ .

APPEND ls_soli TO lt_soli.
clear ls_soli .

ls_soli = ‘ </html> ‘ .

APPEND ls_soli TO lt_soli.
clear ls_soli .

DATA : title type c LENGTH 100.

CONCATENATE ‘ticketnumber-status’ ‘requires your attention’  INTO title SEPARATED BY space.

*CREATE OBJECT lo_mime_helper.

CALL METHOD lo_mime_helper->set_main_html
EXPORTING
content = lt_soli
filename = ‘sapwebform.htm’
description = ‘Ticket Alert’.

data: lo_bcs            TYPE REF TO cl_bcs,

lo_doc_bcs TYPE REF TO cl_document_bcs,

lo_sender TYPE REF TO if_sender_bcs,

lo_recipient      TYPE REF TO if_recipient_bcs,

l_subject TYPE so_obj_des.

“Create HTML using BCS class and attach html and image part to it.
l_subject = title.  “subject
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( ).

“Create Document
lo_bcs->set_document( i_document = lo_doc_bcs ).

“create Sender
lo_sender = cl_cam_address_bcs=>create_internet_address( ‘<private information removed by moderator>’ ).

“Create Recipient
lo_recipient = cl_cam_address_bcs=>create_internet_address( i_address_string = ‘<private information removed by moderator>’ ).
lo_bcs->add_recipient( i_recipient = lo_recipient ).

lo_bcs->send( ).
COMMIT WORK AND WAIT.