Send mail to external mail address

Question

Hello Guys,,
I have required to send a mail through abap code. This program is need to schedule.
Can some one send  me some sample code to send mail..
I have search with existing forum , but have'nt got any proper answer.
Thanks
Swati....

Answer 1

Hi i am sending 2 programs
<b>First program......</b>
REPORT  YH647_PRJ_TEST1 line-count 1000.
data:
  fs_abaplist like abaplist.
*DATA W_RULE(2) TYPE X VALUE '2009'.
data:
t_list like standard table
          of abaplist.
DATA:
  T_DATA(1000) OCCURS 0,
  fs_data(1000).
DATA:
   doc_chng like sodocchgi1,
   objpack like sopcklsti1 occurs 0 with header line,
   objhead like solisti1 occurs 0 with header line,
   objbin like solisti1 occurs 0 with header line,
   objtxt like solisti1 occurs 0 with header line,
   reclist like somlreci1 occurs 0 with header line,
   eml_tab like w3html occurs 0 with header line,
   eml_lines like sy-tabix,
   l_t_lines like tline occurs 0 with header line,
   tab_lines like sy-tabix.
submit YH647_PRJ_TEST2 and return.
  import t_list from memory id 'MAN'.
loop at t_list into fs_abaplist.
    condense fs_abaplist.
   TRANSLATE fs_abaplist using w_rule.
    write : / fs_abaplist.
  endloop.
T_DATA[] = T_LIST[].
CALL FUNCTION 'GUI_DOWNLOAD'
   EXPORTING
   BIN_FILESIZE                    =
     FILENAME                        = 'D:\test\PRJ1.XLS'
     FILETYPE                        = 'ASC'
   APPEND                          = ' '
    WRITE_FIELD_SEPARATOR           = ''
   HEADER                          = '00'
   TRUNC_TRAILING_BLANKS           = ' '
   WRITE_LF                        = 'X'
   COL_SELECT                      = ' '
   COL_SELECT_MASK                 = ' '
   DAT_MODE                        = ' '
   CONFIRM_OVERWRITE               = ' '
   NO_AUTH_CHECK                   = ' '
   CODEPAGE                        = ' '
   IGNORE_CERR                     = ABAP_TRUE
   REPLACEMENT                     = '#'
   WRITE_BOM                       = ' '
   TRUNC_TRAILING_BLANKS_EOL       = 'X'
   WK1_N_FORMAT                    = ' '
   WK1_N_SIZE                      = ' '
   WK1_T_FORMAT                    = ' '
   WK1_T_SIZE                      = ' '
IMPORTING
   FILELENGTH                      =
   TABLES
     DATA_TAB                        = T_DATA
   FIELDNAMES                      =
  EXCEPTIONS
    FILE_WRITE_ERROR                = 1
    NO_BATCH                        = 2
    GUI_REFUSE_FILETRANSFER         = 3
    INVALID_TYPE                    = 4
    NO_AUTHORITY                    = 5
    UNKNOWN_ERROR                   = 6
    HEADER_NOT_ALLOWED              = 7
    SEPARATOR_NOT_ALLOWED           = 8
    FILESIZE_NOT_ALLOWED            = 9
    HEADER_TOO_LONG                 = 10
    DP_ERROR_CREATE                 = 11
    DP_ERROR_SEND                   = 12
    DP_ERROR_WRITE                  = 13
    UNKNOWN_DP_ERROR                = 14
    ACCESS_DENIED                   = 15
    DP_OUT_OF_MEMORY                = 16
    DISK_FULL                       = 17
    DP_TIMEOUT                      = 18
    FILE_NOT_FOUND                  = 19
    DATAPROVIDER_EXCEPTION          = 20
    CONTROL_FLUSH_ERROR             = 21
    OTHERS                          = 22
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
OBJBIN[] =  T_DATA.
  DOC_CHNG-OBJ_NAME = 'OFFER'.
  DOC_CHNG-OBJ_DESCR = 'Test Program List Output'.
  APPEND OBJTXT.
  OBJTXT = 'is enclosed as an attachment.'.
  APPEND OBJTXT.
  DESCRIBE TABLE OBJTXT LINES TAB_LINES.
  READ TABLE OBJTXT INDEX TAB_LINES.
  DOC_CHNG-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ).
Creating the entry for the compressed document
  CLEAR OBJPACK-TRANSF_BIN.
  OBJPACK-HEAD_START = 1.
  OBJPACK-HEAD_NUM   = 0.
  OBJPACK-BODY_START = 1.
  OBJPACK-BODY_NUM   = TAB_LINES.
  OBJPACK-DOC_TYPE   = 'RAW'.
  APPEND OBJPACK.
Creating the document attachment
(Assume the data in OBJBIN are given in BMP format)
   DESCRIBE TABLE OBJBIN LINES TAB_LINES.
   OBJHEAD = 'OUTPUT.XLS'. APPEND OBJHEAD.
Creating the entry for the compressed attachment
   OBJPACK-TRANSF_BIN = 'X'.
   OBJPACK-HEAD_START = 1.
   OBJPACK-HEAD_NUM   = 1.
   OBJPACK-BODY_START = 1.
   OBJPACK-BODY_NUM   = TAB_LINES.
   OBJPACK-DOC_TYPE   = 'RAW'.
   OBJPACK-OBJ_NAME   = 'ATTACHMENT'.
   OBJPACK-OBJ_DESCR = 'Test program output'.
   OBJPACK-DOC_SIZE   = TAB_LINES * 255.
   APPEND OBJPACK..
***Recepients List
   reclist-receiver = 'SAPDEV17'.
   reclist-rec_type = 'B'.
   APPEND reclist.
    reclist-receiver = '[email protected]'.
    reclist-rec_type = 'U'.
    APPEND reclist.
Sending the document
  call function 'SO_DOCUMENT_SEND_API1'
       EXPORTING
            document_data              = doc_chng
            put_in_outbox              = 'X'
            commit_work                = 'X'
       TABLES
            packing_list               = objpack
            object_header              = objhead
            contents_bin               = objbin
            contents_txt               = objtxt
            receivers                  = reclist
       EXCEPTIONS
            too_many_receivers         = 1
            document_not_sent          = 2
            operation_no_authorization = 4
            others                     = 99.
  case sy-subrc.
    when 0.
      write: / 'Result of the send process:'.
      loop at reclist.
        write: / reclist-receiver(48), ':'.
        if reclist-retrn_code = 0.
          write 'sent successfully'.
        else.
          write 'not sent'.
        endif.
      endloop.
    when 1.
      write: /
      'no authorization to send to the specified number of recipients!'
      raise too_many_recievers.
    when 2.
      write: / 'document could not be sent to any of the recipients!'.
      raise document_not_sent.
    when 4.
      write: / 'no authorization to send !'.
      raise operation_no_authorization.
    when others.
      write: / 'error occurred during sending !'.
      raise others.
  endcase.
<b>Second program......</b>
REPORT  YH647_PRJ_TEST2.
TABLES:
  SFLIGHT.
data:
t_list like standard table
          of abaplist.
*DATA:
T_DATA(1000) OCCURS 0,
fs_data(1000).
  DATA: BEGIN OF FS_DATA  OCCURS 0,
          MANDT TYPE SFLIGHT-MANDT,
          CARRID TYPE SFLIGHT-CARRID,
          CONNID TYPE SFLIGHT-CONNID,
          FLDATE TYPE SFLIGHT-FLDATE,
          PRICE(15)  TYPE C,
          CURRENCY TYPE SFLIGHT-CURRENCY,
          PLANETYPE TYPE SFLIGHT-PLANETYPE,
          SEATSMAX(10) TYPE C,
          SEATSOCC(10) TYPE C,
          PAYMENTSUM(17) TYPE C,
          SEATSMAX_B(10) TYPE C,
          SEATSOCC_B(10) TYPE C,
          SEATSMAX_F(10) TYPE C,
          SEATSOCC_F(10) TYPE C,
        END OF FS_DATA.
DATA:
  T_DATA LIKE TABLE OF FS_DATA.
data:
  T_SFLIGHT like table of sFLIGHT.
select * into
       SFLIGHT
  up to 200 rows
   from sflight.
MOVE-CORRESPONDING SFLIGHT TO FS_DATA.
APPEND FS_DATA TO T_DATA.
ENDSELECT.
t_list[] = t_DATA[].
*move t_data to t_list.
export t_list to memory id 'MAN'.
execute the first program......
Reward points if useful......
Suresh......