How to check email in abap?

Question

Hi experts,
I want to check email (xxx@ company.com,MS exchange server) in my ABAP program. If there are 3 new emails, I need to loop to read the sender/subject/body information.
Can ABAP do this?
Thanks.

Answer 1

Hi Michaeltrans
Please go through the following
*& Report  ZRS_WEBPAGE
*& Author : Renuka
*& Title     : HTML Viewer using Class
REPORT  zrs_webpage.
DATA :  html_control  TYPE REF TO cl_gui_html_viewer,
        web_container TYPE REF TO cl_gui_custom_container.
DATA :  t_events      TYPE TABLE OF  cntl_simple_event.
DATA :  x_events      TYPE           cntl_simple_event.
DATA :  ok_code     TYPE           sy-ucomm.
DATA :   v_code       TYPE           sy-ucomm,
        v_url(2048)  TYPE           c.
*--Event Handler Dfinition For Web page Navigation--
CLASS cl_events_handle DEFINITION.
  PUBLIC SECTION.
    METHODS navigation
            FOR EVENT navigate_complete OF cl_gui_html_viewer
            IMPORTING url.
ENDCLASS.                    "cl_events_handle DEFINITION
DATA: event_receiver TYPE REF TO cl_events_handle.
START-OF-SELECTION.
  SET SCREEN 200.
*&      Module  STATUS_0200  OUTPUT
      text
MODULE status_0200 OUTPUT.
  SET PF-STATUS 'WEBPF'.
  SET TITLEBAR 'WEBTT'.
  IF web_container IS INITIAL.
    CREATE OBJECT web_container
      EXPORTING
   parent                      =
        container_name              = 'HTML'
   style                       =
   lifetime                    = lifetime_default
   repid                       =
   dynnr                       =
   no_autodef_progid_dynnr     =
      EXCEPTIONS
        cntl_error                  = 1
        cntl_system_error           = 2
        create_error                = 3
        lifetime_error              = 4
        lifetime_dynpro_dynpro_link = 5
        OTHERS                      = 6
    CASE sy-subrc.
      WHEN 0.
      WHEN OTHERS.
        RAISE cntl_error.
    ENDCASE.
    CASE sy-subrc.
      WHEN 0.
      WHEN OTHERS.
        RAISE cntl_error.
    ENDCASE.
  ENDIF.
  IF html_control IS INITIAL.
    CREATE OBJECT html_control
      EXPORTING
   shellstyle         =
        parent             = web_container
   lifetime           = lifetime_default
   saphtmlp           =
   uiflag             =
   name               =
   saphttp            =
   query_table_disabled = ''
      EXCEPTIONS
        cntl_error         = 1
        cntl_install_error = 2
        dp_install_error   = 3
        dp_error           = 4
        OTHERS             = 5
    IF sy-subrc <> 0.
      RAISE cntl_error.
    ENDIF.
    x_events-eventid = html_control->m_id_navigate_complete.
    x_events-appl_event = 'X'.
    APPEND x_events TO t_events.
    CALL METHOD html_control->set_registered_events
      EXPORTING
        events                    = t_events
      EXCEPTIONS
        cntl_error                = 1
        cntl_system_error         = 2
        illegal_event_combination = 3
        OTHERS                    = 4.
    IF sy-subrc <> 0.
      MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
                 WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
    ENDIF.
    CREATE OBJECT event_receiver.
    SET HANDLER event_receiver->navigation
        FOR     html_control.
    PERFORM home_page.
  ENDIF.
ENDMODULE.                 " STATUS_0200  OUTPUT
      text
-->  p1        text
<--  p2        text
FORM home_page .
  DATA: doc_url(80).
  CALL METHOD html_control->load_html_document
    EXPORTING
      document_id          = 'HMPG'
   document_textpool    =
   document_url         =
   as_compressed_data   = 'X'
   language             =
    IMPORTING
      assigned_url         = doc_url
CHANGING
   merge_table          =
    EXCEPTIONS
      document_not_found   = 1
      dp_error_general     = 2
      dp_invalid_parameter = 3
      OTHERS               = 4
  doc_url = 'www.applexus.com'.
  IF sy-subrc EQ 0.
    CALL METHOD html_control->show_url
      EXPORTING
        url = doc_url.
  ENDIF.
ENDFORM.                    " HOME_PAGE
*&      Module  USER_COMMAND_0200  INPUT
      text
MODULE user_command_0200 INPUT.
  v_code = ok_code.
  CLEAR ok_code.
  CASE v_code.
    WHEN 'REFRESH'.
      CALL METHOD html_control->do_refresh.
      CALL METHOD html_control->get_current_url
        IMPORTING
          url = v_url.
    WHEN 'BKWD'.
      CALL METHOD html_control->go_back.
      CALL METHOD html_control->get_current_url
        IMPORTING
          url = v_url.
    WHEN 'BACK'.
      IF NOT html_control IS INITIAL.
        CALL METHOD html_control->free.
        FREE html_control.
      ENDIF.
      IF NOT web_container IS INITIAL.
        CALL METHOD web_container->free
          EXCEPTIONS
            OTHERS = 1.
   IF sy-subrc <> 0.
        MESSAGE E002 WITH F_RETURN.
   ENDIF.
        FREE web_container.
      ENDIF.
      LEAVE PROGRAM.
    WHEN 'NEXT'.
      CALL METHOD html_control->go_forward.
      CALL METHOD html_control->get_current_url
        IMPORTING
          url = v_url.
    WHEN 'REFRESH'.
      CALL METHOD html_control->do_refresh.
      CALL METHOD html_control->get_current_url
        IMPORTING
          url = v_url.
    WHEN 'OK'.
      IF NOT v_url IS INITIAL.
        CALL METHOD html_control->show_url
          EXPORTING
            url                  = v_url
          EXCEPTIONS
            cnht_error_parameter = 1
            OTHERS               = 2.
        IF sy-subrc GE 2.
          RAISE cntl_error.
        ENDIF.
      ENDIF.
    WHEN 'CANCEL'.
      IF NOT html_control IS INITIAL.
        CALL METHOD html_control->free.
        FREE html_control.
      ENDIF.
      IF NOT web_container IS INITIAL.
        CALL METHOD web_container->free
          EXCEPTIONS
            OTHERS = 1.
        IF sy-subrc <> 0.
        MESSAGE E002 WITH F_RETURN.
        ENDIF.
        FREE web_container.
      ENDIF.
      LEAVE PROGRAM.
  ENDCASE.
ENDMODULE.                 " USER_COMMAND_0200  INPUT
      CLASS cl_events_handle IMPLEMENTATION
CLASS cl_events_handle IMPLEMENTATION.
  METHOD navigation.
    v_url = url.
  ENDMETHOD.                    "on_navigate_complete
ENDCLASS.                    "cl_events_handle IMPLEMENTATION}
Edited by: renu1ece on Dec 30, 2010 8:00 AM