Sap email to outlook

Question

Dear experts,
I want to send email to outlook,How I can test the IMG whether is ok or not?And then,How I can
send the email to outlook with abap program.
Anyone have a clue how to force this out?
Tks very much for your help!
Davidzhang

Answer 1

Hi,
Check the below code..
FORM email_forms TABLES p_emp_details STRUCTURE i_emp_details_line
                  USING p_emailid.
  DATA: l_tab_lines TYPE i,
        l_string TYPE char300,
        l_line TYPE string.
  CONSTANTS : l_c_255(255)  TYPE c VALUE '255',
              l_c_txt(3)    TYPE c VALUE 'TXT'.
  DATA: lt_reclist  TYPE STANDARD TABLE OF somlreci1,       "Recipients
        lt_objpack  TYPE STANDARD TABLE OF sopcklsti1,
        lt_objhead  TYPE STANDARD TABLE OF solisti1,
        lt_objtxt   TYPE STANDARD TABLE OF solisti1,     "Body of EMail
        lt_objbin   TYPE STANDARD TABLE OF solisti1."Attachment of EMail
  DATA: l_doc_chng TYPE sodocchgi1,     "attributes of document to send
        l_reclist  LIKE LINE OF lt_reclist,
        l_objpack  LIKE LINE OF lt_objpack,
        l_obj      LIKE LINE OF lt_objhead.
  DATA :
    l_hex LIKE solix,
    lt_contents_hex LIKE STANDARD TABLE OF solix ,
    conv TYPE REF TO cl_abap_conv_out_ce,
    l_buffer TYPE xstring,
    l_hexa(510) TYPE x.
* Completing the recipient list
  l_reclist-receiver = p_emailid.
  l_reclist-express  = 'X'.
  l_reclist-rec_type = 'U'.
  APPEND l_reclist TO lt_reclist.
  CLEAR  l_reclist.
* Body of Email Message
  APPEND l_obj TO lt_objtxt.   CLEAR l_obj.       " Blank line
  l_obj-line = 'Hello,'(012).
  APPEND l_obj TO lt_objtxt.   CLEAR l_obj.
  l_obj-line = cl_abap_char_utilities=>newline.
  APPEND l_obj TO lt_objtxt.   CLEAR l_obj.       " Blank line
  CONCATENATE
   'Please click the link to access the Confirmation Form.'(t01)
   'Kindly complete the same and return it to the HR contact 15 days' &
   ' prior to the date of confirmation of the employee.'(t02)
               INTO l_obj-line SEPARATED BY space.
  APPEND l_obj TO lt_objtxt.   CLEAR l_obj.
  l_obj-line = cl_abap_char_utilities=>newline.
  APPEND l_obj TO lt_objtxt.   CLEAR l_obj.       " Blank line
  CONCATENATE text-l01 text-l02 INTO l_obj-line.
  APPEND l_obj TO lt_objtxt.   CLEAR l_obj.
  l_obj-line = cl_abap_char_utilities=>newline.
  APPEND l_obj TO lt_objtxt.   CLEAR l_obj.       " Blank line
  l_obj-line =
  'For Trainees use Confirmation form trainees and for rest use the' &
  ' Confirmation form.'(t03).
  APPEND l_obj TO lt_objtxt.
  CLEAR l_obj.
  l_obj-line = cl_abap_char_utilities=>newline.
  APPEND l_obj TO lt_objtxt.   CLEAR l_obj.       " Blank line
  l_obj-line = 'The details of the employee are as follows :'(017).
  APPEND l_obj TO lt_objtxt.   CLEAR l_obj.
  l_obj-line = cl_abap_char_utilities=>newline.
  APPEND l_obj TO lt_objtxt.   CLEAR l_obj.       " Blank line
  l_obj-line = 'Name'(013).
  l_obj-line+60 = 'Department'(005).
  l_obj-line+128 = 'DOJ'(014).
  l_obj-line+150 = 'Confirmation Date'(015).
  APPEND l_obj TO lt_objtxt.   CLEAR l_obj.
* Email Attachment
* Append headings
  CONCATENATE 'Employee No.'(002)
              'Employee Group'(016)
              'Employee Name'(001)
              'Designation'(003)
              'Joining Date'(004)
              'Department'(005)
              'Branch/Location'(006)
              'Unit'(007)
              'Confirmation Due'(008)
              'Form sent on'(009)
              'Form Return by'(010)
              'Employee Group'(016)
            INTO l_string
       SEPARATED BY cl_abap_char_utilities=>horizontal_tab.
  APPEND l_string TO lt_objbin.
  CLEAR l_string.
  APPEND INITIAL LINE TO lt_objbin.
  LOOP AT p_emp_details INTO i_emp_details_line.
    CONCATENATE i_emp_details_line-pnalt
                i_emp_details_line-egroup
                i_emp_details_line-ename
                i_emp_details_line-stext
                i_emp_details_line-srvdt
                i_emp_details_line-ltext
                i_emp_details_line-pbtxt
                i_emp_details_line-btrtx
                i_emp_details_line-mndat
                i_emp_details_line-fsdate
                i_emp_details_line-frdate
                i_emp_details_line-egroup
           INTO l_string
      SEPARATED BY cl_abap_char_utilities=>horizontal_tab.
    APPEND l_string TO lt_objbin.
    CLEAR l_string.
    l_obj-line = i_emp_details_line-ename.
    l_obj-line+60 = i_emp_details_line-ltext.
    l_obj-line+128 = i_emp_details_line-srvdt.
    l_obj-line+150 = i_emp_details_line-mndat.
    APPEND l_obj TO lt_objtxt.   CLEAR l_obj.
  ENDLOOP.
  IF r_cprob EQ 'X'.
    l_string = 'Completion of probation List'(029).
  ELSE.
    l_string = 'Completion of extension of probation List'(018).
  ENDIF.
  APPEND l_string TO lt_objhead.
* APPEND object_header.
  CALL FUNCTION 'SO_RAW_TO_RTF'
    TABLES
      objcont_old = lt_objbin
      objcont_new = lt_objbin.
  LOOP AT lt_objbin INTO l_line.
   conv = cl_abap_conv_out_ce=>create( encoding = 'UTF-8' endian = 'B').
    CALL METHOD conv->write( data = l_line ).
    l_buffer = conv->get_buffer( ).
    MOVE l_buffer TO l_hexa.
    MOVE l_hexa TO l_hex-line.
    APPEND l_hex TO lt_contents_hex.
  ENDLOOP.
* File name for attachment
  CONCATENATE 'Completion of probation List'(018)
               sy-datum '.XLS' INTO l_obj SEPARATED BY space.
  APPEND l_obj TO lt_objhead.
* Email Body Details
  CLEAR l_tab_lines.
  DESCRIBE TABLE lt_objtxt LINES l_tab_lines.
  l_doc_chng-doc_size = ( l_tab_lines - 1 ) * 255 +
                          STRLEN( l_string ).  "size of doc in bytes
  l_doc_chng-obj_name = sy-repid.
  l_doc_chng-obj_langu = sy-langu.
  l_doc_chng-obj_descr = l_string.
  l_doc_chng-sensitivty = 'P'.          "  Send mail as a confidential
  l_objpack-head_start = 1.
  l_objpack-head_num   = 1.
  l_objpack-body_start = 1.
  l_objpack-body_num   = l_tab_lines.
  l_objpack-doc_type   = l_c_txt.
  APPEND l_objpack TO lt_objpack.
  CLEAR  l_objpack.
* Email Attachment Details
  CLEAR l_tab_lines.
  DESCRIBE TABLE lt_objbin LINES l_tab_lines.
* Creation of the entry for the compressed attachment
  l_objpack-transf_bin = 'X'.
  l_objpack-head_start = 1.
  l_objpack-head_num   = 1.
  l_objpack-body_start = 1.
  l_objpack-doc_type   = 'XLS'.
  l_objpack-obj_name   = l_obj.
  l_objpack-obj_descr  = l_obj.
  l_objpack-body_num   = l_tab_lines.
  l_objpack-doc_size   = l_tab_lines * l_c_255.
  APPEND l_objpack TO lt_objpack.
  CLEAR  l_objpack.
* Send the document
  CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
    EXPORTING
      document_data              = l_doc_chng
      put_in_outbox              = ' '
      commit_work                = 'X'
    TABLES
      packing_list               = lt_objpack
      object_header              = lt_objhead
*      contents_bin               = lt_objbin
      contents_txt               = lt_objtxt
      contents_hex               = lt_contents_hex
      receivers                  = lt_reclist
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      document_type_not_exist    = 3
      operation_no_authorization = 4
      parameter_error            = 5
      x_error                    = 6
      enqueue_error              = 7
      OTHERS                     = 8.
  IF sy-subrc = 0.
    MESSAGE s000(oo) WITH 'Email sent to recipients'(019).
*   To refresh SAP Work Office so that mail can be recieved immediataly.
    SUBMIT rsconn01 WITH mode = 'INT'
                  WITH output = ''
                  AND RETURN.
*   Update the infotype 0019 after sending the email with the status
*   u2018Task in processu2018 from u2018Task in processu2018.
    PERFORM update_0019 TABLES p_emp_details.
  ELSE.
    MESSAGE s000(oo) WITH 'Problem in sending Email.'(e01).
  ENDIF.
ENDFORM.                    " email_forms