Sending mail to email id

Question

dear all,
i want to send mail..
in that program i am using submit call one program and output of that i hv to send to email as pdf attachment.....
in regular execution its fine working but when i m running in background it will not work properly. as well as i m  running in background then also it not create any spool of that.
pls check my code.
SUBMIT YPPDAILYUPDATE
with pstngdt in temp
with entdate eq ' '
with posdate eq 'X'
with rdata eq 'X'
with logic eq ' '
with high eq 'X'
with trend eq ' '
AND RETURN
i hv taking the help for sending mail of
http://www.sapdevelopment.co.uk/reporting/rep_spooltopdf.htm
i want output of this calling program will be make spool & send as a .pdf attachment
for that wht i hv to do.....
pls help....!!
its a great for me..
regards,
Arpit.

Answer 1

Arpit,
    I am enclosing the sample code to trigger an email, The logic for this is in comments, check this I am shure yuor problem will be solved.
*& Report  ZGBL_SLA_PER
REPORT zgbl_sla_per NO STANDARD PAGE HEADING LINE-COUNT 26(3) MESSAGE-ID
zmsg2.
DECLARATION OF DB TABLES
TABLES: zncrfid, zrule_id.
DECLARATION OF INTERNAL TABLES
DATA: BEGIN OF ncrf OCCURS 0,
        zncrf_id(15) TYPE c,
        zncrf_l4_name(60) TYPE c,
        z9gl_sla_flag(1) TYPE c,
        zowners(30) TYPE c,
        zowners_value(30) TYPE c,
        zdate_changed(8) TYPE n,
        ztime_changed(6) TYPE n,
      END OF ncrf.
*DATA: NCRF LIKE ZNCRFID OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF it_ruleid OCCURS 0,
        zrule_id(10) TYPE c,
        zowners(30) TYPE c,
        zowners_value(30) TYPE c,
      END OF it_ruleid.
*data: wa like ncrf occurs 0 with header line.
DATA: BEGIN OF itab OCCURS 0,
                zncrf_id(15) TYPE c,
                zncrf_l4_name(60) TYPE c,
                z9gl_sla_flag(1) TYPE c,
                zowners(30) TYPE c,
                zowners_value(30) TYPE c,
                zdate_changed(8) TYPE n,
                ztime_changed(6) TYPE n,
END OF itab.
data: file(10) type c,
         dates type date.
EMAIL DECLARATION
*CONSTANTS: c_subject LIKE sodocchgi1-obj_descr VALUE 'Subject',
*c_tab TYPE c VALUE cl_abap_char_utilities=>horizontal_tab.
*DATA: g_time TYPE char8,
*g_email(40) TYPE c,
*g_sent_all(1) TYPE c,
*g_doc_data LIKE sodocchgi1,
*g_error TYPE sy-subrc.
*DATA: i_message LIKE solisti1 OCCURS 0 WITH HEADER LINE,
*i_packing_list LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
*i_receivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE.
*DATA: BEGIN OF mailid OCCURS 0,
       zemail_id TYPE zrule_id-zemail_id,
     END OF mailid.
*data: mailid like zrule_id occurs 0 with header line.
UPLOADING FLAT FILE TO INTERNAL TABLE NCRF
CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
   filename                      = 'C:\VAMSY\file.txt'
   filetype                      = 'ASC'
   has_field_separator           = 'X'
  HEADER_LENGTH                 = 0
  READ_BY_LINE                  = 'X'
  DAT_MODE                      = ' '
  CODEPAGE                      = ' '
  IGNORE_CERR                   = ABAP_TRUE
  REPLACEMENT                   = '#'
  CHECK_BOM                     = ' '
IMPORTING
  FILELENGTH                    =
  HEADER                        =
  TABLES
    data_tab                      = ncrf[]
EXCEPTIONS
  FILE_OPEN_ERROR               = 1
  FILE_READ_ERROR               = 2
  NO_BATCH                      = 3
  GUI_REFUSE_FILETRANSFER       = 4
  INVALID_TYPE                  = 5
  NO_AUTHORITY                  = 6
  UNKNOWN_ERROR                 = 7
  BAD_DATA_FORMAT               = 8
  HEADER_NOT_ALLOWED            = 9
  SEPARATOR_NOT_ALLOWED         = 10
  HEADER_TOO_LONG               = 11
  UNKNOWN_DP_ERROR              = 12
  ACCESS_DENIED                 = 13
  DP_OUT_OF_MEMORY              = 14
  DISK_FULL                     = 15
  DP_TIMEOUT                    = 16
  OTHERS                        = 17
IF sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ELSE.
  IF sy-subrc EQ 0.
Checking internal table ncrf is empty then
*delete records from TABLE ZNCRF_ID ******************************
    IF ncrf[] IS INITIAL.
      MESSAGE i003(ZMSG2).
    ELSE.
      DELETE FROM zncrfid.
    ENDIF.
*****Values are read from rule table and checking owner and owner_value
*from zrule_id table and inserted into ZNCRFID **************
    SELECT * FROM zrule_id INTO CORRESPONDING FIELDS OF TABLE it_ruleid
    WHERE zrule_id IN ('OWNER1', 'OWNER2').
               append IT_RULEID.
    LOOP AT ncrf WHERE z9gl_sla_flag EQ 'Y'.
      READ TABLE it_ruleid WITH KEY zowners = ncrf-zowners
      zowners_value = ncrf-zowners_value.
      IF ncrf-zowners = it_ruleid-zowners AND ncrf-zowners_value =
      it_ruleid-zowners_value AND ncrf-z9gl_sla_flag ='Y'.
        itab-zncrf_id = ncrf-zncrf_id.
        itab-zncrf_l4_name = ncrf-zncrf_l4_name.
        itab-z9gl_sla_flag = ncrf-z9gl_sla_flag.
        itab-zdate_changed = sy-datum.
        itab-ztime_changed = sy-uzeit.
        itab-zowners = it_ruleid-zowners.
        itab-zowners_value = it_ruleid-zowners_value.
        APPEND itab.
      ENDIF.
    ENDLOOP.
modify database table zncrfid FROM  ITAB
    LOOP AT itab.
      WRITE:/ itab-zncrf_id, itab-zncrf_l4_name, itab-z9gl_sla_flag,
      itab-zowners, itab-zowners_value, itab-zdate_changed,
      itab-ztime_changed.
      zncrfid-zncrf_id = itab-zncrf_id.
      zncrfid-zncrf_l4_name = itab-zncrf_l4_name.
      zncrfid-z9gl_sla_flag = itab-z9gl_sla_flag.
      zncrfid-zowners = itab-zowners.
      zncrfid-zowners_value = itab-zowners_value.
      zncrfid-zdate_changed = itab-zdate_changed.
      zncrfid-ztime_changed = itab-ztime_changed.
      INSERT INTO zncrfid VALUES zncrfid.
    ENDLOOP.
  ENDIF.
ENDIF.
*CALL FUNCTION 'DATE_TO_DAY'
        EXPORTING
            DATE = sy-datum
        IMPORTING
            WEEKDAY = file.
**CHECKING FOR THE FIRST MONDAY OF THE MONTH.
     dates = sy-datum.
     shift dates by 6 places left.
     if file CO 'monday' and dates < 7 and dates >= 1.
     else.
         message e004(zmsg2).
     endif.
EMAIL SEND TO OWNERS LIST
**Fill the mail body in i_message.
get email id's from database into internal table et_mailid
Fill the document data.
*g_doc_data-doc_size = 1.
Populate the subject/generic message attributes
*g_doc_data-obj_langu = sy-langu.
*g_doc_data-obj_name = 'SAPRPT'.
*g_doc_data-obj_descr = c_subject .
*g_doc_data-sensitivty = 'F'.
Describe the body of the message
Information about structure of data tables
*CLEAR i_packing_list.
*REFRESH i_packing_list.
*i_packing_list-transf_bin = space.
*i_packing_list-head_start = 1.
*i_packing_list-head_num = 0.
*i_packing_list-body_start = 1.
*DESCRIBE TABLE i_message LINES i_packing_list-body_num.
*i_packing_list-doc_type = 'RAW'.
*APPEND i_packing_list.
Add the recipients email address
*LOOP AT mailid.
*CLEAR i_receivers.
*i_receivers-receiver = mailid-zemail_id.
*i_receivers-rec_type = 'U'.
*i_receivers-com_type = 'INT'.
*i_receivers-notif_del = 'X'.
*i_receivers-notif_ndel = 'X'.
*APPEND i_receivers.
*ENDLOOP.
Call the FM to post the message to SAPMAIL
*CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
*EXPORTING
*document_data = g_doc_data
*put_in_outbox = 'X'
*commit_work = 'X'
*IMPORTING
*sent_to_all = g_sent_all
*TABLES
*packing_list = i_packing_list
*contents_txt = i_message
*receivers = i_receivers
*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.
Store function module return code
*g_error = sy-subrc.
Get i_receivers return code
*LOOP AT i_receivers.
*ENDLOOP.
**Instructs mail send program for SAPCONNECT to send email(rsconn01)
*WAIT UP TO 2 SECONDS.
*IF g_error EQ 0.
*SUBMIT zgbl_sla_per WITH mode = 'INT'
*WITH output = 'X'
*AND RETURN.
REWARD IF FOUND USEFULL,
Cheers,
Ram.