SEND output of reports to email ids automatically

After execution of a report i want it should be automatically send to emailids of some person.
Can anyone tell me how to do this

hi
good
data: mailrec type table of soos1 with header line.
mailrec-recextnam = [email protected]
mailrec-recesc    = 'U'.
mailrec-sndpri    = '1'.
mailrec-sndart    = 'INT'.
mailrec-mailstatus = 'E'.
append mailrec.
mailrec-recextnam = [email protected]
mailrec-recesc    = 'U'.
mailrec-sndpri    = '1'.
mailrec-sndart    = 'INT'.
mailrec-mailstatus = 'E'.
append mailrec.
Or you can use Distribution List(SO23)
thanks
mrutyun^

Similar Messages

How to send ALV Grid report to Email?

hai all,
How to send ALV Grid report to Email.
please its very urgent.....

Hi,
when u run the Alv, u will button 'Mail Recepiant' in tool bar.When u click it and enter to new screen, go to the Recipient Tab(down) enter ur maild id and click 'Send' button on tool bar.
or.
if u want to send the Alv content to mail id thru prg, go thru the following code.
 TABLES
TABLES: BSID. " Accounting: Secondary Index for Customers.
 TYPE-POOLS
TYPE-POOLS: SLIS.
 INTERNAL TABLES
 Internal table to hold Customer data.
DATA: BEGIN OF TB_BSID OCCURS 0,
 BUKRS LIKE BSID-BUKRS, " Company code
 KUNNR LIKE BSID-KUNNR, " Customer number
 AUGDT LIKE BSID-AUGDT, " Clearing Date
 BLDAT LIKE BSID-BLDAT, " Doc date in document
 SHKZG LIKE BSID-SHKZG, " Debit/credit indicator
 DMBTR LIKE BSID-DMBTR, " Amount in local currency
 ZFBDT LIKE BSID-ZFBDT, " Baseline date for due date calc
 ZBD1T LIKE BSID-ZBD1T, " Cash discount days 1
 ZBD2T LIKE BSID-ZBD2T, " Cash discount days 2
 ZBD3T LIKE BSID-ZBD3T, " Net Payment Terms Period
 REBZG LIKE BSID-REBZG, " No Of the Inv the Tran Belongs to
 REBZT LIKE BSID-REBZT, " Follow-On Document Type
 END OF TB_BSID.
 Internal table to hold Open Items.
DATA: TB_BSID_OPEN LIKE TABLE OF TB_BSID WITH HEADER LINE.
 Internal table to hold Cleared Items.
DATA: TB_BSAD_CLEAR LIKE TABLE OF TB_BSID WITH HEADER LINE.
 Internal table to hold General Data in Customer Master
DATA: BEGIN OF TB_KNA1 OCCURS 0,
 KUNNR LIKE KNA1-KUNNR, " Customer Number
 NAME1 LIKE KNA1-NAME1, " Name Line 1
 TELF1 LIKE KNA1-TELF1, " Telephone Number
 ADRNR LIKE KNA1-ADRNR, " Address
 END OF TB_KNA1.
 Internal table to hold Customer Master (Company Code)
DATA: BEGIN OF TB_KNB1 OCCURS 0,
 KUNNR LIKE KNB1-KUNNR, " Customer Number
 BUKRS LIKE KNB1-BUKRS, " Company code
 ERDAT LIKE KNB1-ERDAT, " Rec Created Date
 ZAMIB LIKE KNB1-ZAMIB, " DMS Managed Indicator
 END OF TB_KNB1.
 Internal table to hold Final Output Data
DATA: BEGIN OF TB_FINAL OCCURS 0,
 KUNNR LIKE KNA1-KUNNR, " Customer Number
 NAME1 LIKE KNA1-NAME1, " Name Line 1
 ADDRESS1(25) TYPE C, " Address line 1
 ADDRESS2(25) TYPE C, " Address line 2
 ADDRESS3(25) TYPE C, " Address line 3
 ADDRESS4(25) TYPE C, " Address line 4
 PHONE LIKE KNA1-TELF1, " Telephone Number
 DAYS_SLOW(3) TYPE C, " Days Slow
 LAST_DATE(8) TYPE C, " Date of Last Invoice
 AVG(4) TYPE C, " Average Days to Pay
 CURRENT(10) TYPE N, " Current
 AVG_1_30(10) TYPE N, " 1-30 past due
 AVG_31_60(10) TYPE N, " 31-60 past due
 AVG_61_90(10) TYPE N, " 61-90 past due
 AVG_90G(10) TYPE N, " 90+ past due
 END OF TB_FINAL.
 ALV Internal tables
DATA : TB_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV, " Field Catalog
 TB_EVENTS TYPE SLIS_T_EVENT, " ALV Events
 TB_COMMENTS TYPE SLIS_T_LISTHEADER. " Comment
 Internal tables for the sending mail data
DATA: TB_OBJPACK TYPE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE,
 TB_OBJHEAD TYPE SOLISTI1 OCCURS 1 WITH HEADER LINE,
 TB_OBJTXT TYPE SOLISTI1 OCCURS 10 WITH HEADER LINE,
 TB_RECLIST TYPE SOMLRECI1 OCCURS 5 WITH HEADER LINE,
 TB_OBJBIN LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
 TB_DOC_CHNG TYPE SODOCCHGI1.
 Internal table to get mail Receivers Address
DATA: TB_ZRECEIVE LIKE YSMTP_ADDRESS OCCURS 0 WITH HEADER LINE.
 STRUCTURES
DATA: X_SADR TYPE SADR, " For Address
 X_FIELDCAT TYPE SLIS_FIELDCAT_ALV, " For Field Catalog
 X_LAYOUT TYPE SLIS_LAYOUT_ALV, " For Layout
 X_EVENTS TYPE SLIS_ALV_EVENT, " For Events
 X_COMMENTS TYPE SLIS_LISTHEADER, " For Comments
 X_ADDR1_SEL LIKE ADDR1_SEL, " For Address
 WA_FAEDE TYPE FAEDE. " For FAEDE struct
 VARIABLES
DATA: G_REPID LIKE SY-REPID, " Prog ID
 G_DAYS_SLOW(3) TYPE N, " Days Slow
 G_OPEN TYPE I, " Counter
 G_AVG(4) TYPE C, " Avg Days
 G_COUNT TYPE I, " Counter
 G_TITLE TYPE SOLISTI1-LINE, " Description
 G_TAB_LINES TYPE SY-TABIX, " Internal data count
 G_REC_COUNT TYPE I, " Total records
 G_CURR_BAL TYPE N, " Account balance
 G_FILE_NAME LIKE EDI_PATH-PTHNAM. " Output File Name
 CONSTANTS
CONSTANTS: C_D TYPE C VALUE 'D', " Account type
 C_X TYPE C VALUE 'X', " Check Value
 C_0(4) TYPE N VALUE '0.00', " Constant for char
 C_1(2) TYPE C VALUE '01', " Posting key const
 C_H TYPE C VALUE 'H', " For Commenet-Type
 C_TXT(3) TYPE N VALUE 'TXT', " File type
 C_RAW(3) TYPE C VALUE 'RAW', " File type
 C_DELIMITER TYPE X VALUE '09', " ASCII CODE LINE
 C_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',
 C_INTERFACE TYPE YWFSALOFFICNOTIF-INTERFACE_ID VALUE 'AP',
 C_FILENAME(20) TYPE N VALUE 'TEXT.TXT'," File name
 C_TITLE(30) TYPE N VALUE 'Z21614_DB_CREDIT_AGENCY',
 C_Z001 TYPE RF035-RASID VALUE 'Z001'." Net 30/60/90/120/150
 SELECTION SCREEN.
Selection Screen for Selection Criteria.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-T01.
SELECT-OPTIONS: S_BUKRS FOR BSID-BUKRS OBLIGATORY, " Company Code
 S_BLDAT FOR BSID-BLDAT," OBLIGATORY, " Doc Date
 S_KUNNR FOR BSID-KUNNR, " Cust No
 S_ZUONR FOR BSID-ZUONR. " Assignment
PARAMETERS: P_GRACE(2) TYPE N OBLIGATORY, " Grace Days
 P_ZAMIB LIKE KNB1-ZAMIB AS CHECKBOX. " DMS Indicator
SELECTION-SCREEN END OF BLOCK B1.
Selection Screen for Output Options.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-T02.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 01.
PARAMETERS: P_REPORT RADIOBUTTON GROUP R1. " Report Only
SELECTION-SCREEN COMMENT 5(25) TEXT-016.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 01.
PARAMETERS: P_DOWN RADIOBUTTON GROUP R1. " Dwnld to Unix
SELECTION-SCREEN COMMENT 5(25) TEXT-017.
SELECTION-SCREEN POSITION 30.
PARAMETERS: P_FILE LIKE FILENAME-FILEINTERN DEFAULT
 'Z21614_DB_CREDIT_AGENCY'. " File Name
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B2.
Selection Screen for E-mail.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-T03.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 01.
PARAMETERS: P_EMAIL AS CHECKBOX. " E-mail
SELECTION-SCREEN COMMENT 5(25) TEXT-018.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B3.
 INITIALIZATION
INITIALIZATION.
G_REPID = SY-REPID.
 AT SELECTION SCREEN. *
AT SELECTION-SCREEN.
Validation of selection screen entries
perform validate_data.
 START-OF-SELECTION
START-OF-SELECTION.
Select Data from Customer Master (Company Code)
PERFORM SELECT_KNB1.
Select Custmer Open Items.
PERFORM SELECT_CUSTOMER_OPEN_ITEMS.
Select Custmer Cleared Items.
PERFORM SELECT_CUSTOMER_CLEARED_ITEMS.
Select General Data in Customer Master
PERFORM SELECT_KNA1.
Populate Final Output Data.
PERFORM POPULATE_TB_FINAL.
 End of selection *
END-OF-SELECTION.
If both display report and send email is checked
IF P_REPORT = C_X AND P_EMAIL = C_X.
 MESSAGE E999 WITH
 'Select One Among Report Only & Send E-mail'(023).
When Radiobutton for Email or if the program is run background
ELSEIF ( P_EMAIL = C_X OR SY-BATCH = C_X ).
To send the mail
 PERFORM SEND_EMAIL.
ELSEIF P_REPORT = C_X .
To display the Final Output data using ALV's
 PERFORM DISPLAY_ALV_REPORT.
ENDIF.
Transfering data to file when downloading to Unix
IF P_DOWN = C_X.
 IF G_REC_COUNT IS INITIAL.
 MESSAGE I999 WITH
 'No Records Found For Selection Criteria'(024).
 EXIT.
 ELSE.
 IF NOT G_FILE_NAME IS INITIAL.
 Trasefering data to file
 PERFORM TRANSFER_DATA_FILE.
 Interface Audit report
 PERFORM WRITE_REPORT.
 ENDIF.
 ENDIF.
ENDIF.
 F O R M S
*& Form VALIDATE_DATA
 Validating selection-screen entries
FORM VALIDATE_DATA.
Local variables
DATA : L_BUKRS LIKE BSEG-BUKRS, " For Company Code
 L_KUNNR LIKE BSEG-KUNNR. " For Customer Number
Validate the Company code.
SELECT SINGLE BUKRS
 INTO L_BUKRS
 FROM T001
 WHERE BUKRS IN S_BUKRS.
IF SY-SUBRC <> 0.
 MESSAGE E999 WITH 'Enter valid Company Code'(025).
ENDIF.
Validate the Customer number
IF NOT S_KUNNR[] IS INITIAL.
 SELECT SINGLE KUNNR
 INTO L_KUNNR
 FROM KNA1
 WHERE KUNNR IN S_KUNNR.
 IF SY-SUBRC <> 0.
 MESSAGE E999 WITH 'Enter valid Customer Number'(026).
 ENDIF.
ENDIF.
ENDFORM. " VALIDATE_DATA
*& Form SELECT_KNB1
 Select Data from Customer Master (Company Code)
FORM SELECT_KNB1 .
CLEAR: TB_KNB1,
 TB_KNB1[].
SELECT KUNNR
 BUKRS
 ERDAT
 ZAMIB
 FROM KNB1
 INTO TABLE TB_KNB1
 WHERE BUKRS IN S_BUKRS
 AND KUNNR IN S_KUNNR.
IF SY-SUBRC = 0.
Sort TB_KNB1 by Customer no & Rec Created Date
 SORT TB_KNB1 BY KUNNR ERDAT DESCENDING.
ENDIF.
ENDFORM. " SELECT_KNB1
*& Form SELECT_CUSTOMER_OPEN_ITEMS
 Select Custmer Open Items.
FORM SELECT_CUSTOMER_OPEN_ITEMS .
CLEAR: TB_BSID,
 TB_BSID[].
SELECT A~BUKRS
 B~KUNNR
 B~AUGDT
 B~BLDAT
 B~SHKZG
 B~DMBTR
 B~ZFBDT
 B~ZBD1T
 B~ZBD2T
 B~ZBD3T
 B~REBZG
 B~REBZT
 INTO TABLE TB_BSID
 FROM BKPF AS A JOIN BSID AS B
 ON ABUKRS = BBUKRS
 AND ABELNR = BBELNR
 AND AGJAHR = BGJAHR
 WHERE A~BUKRS IN S_BUKRS
 AND A~BLDAT IN S_BLDAT
 AND B~KUNNR IN S_KUNNR
 AND B~ZUONR IN S_ZUONR
 AND B~BSCHL = C_1.
IF SY-SUBRC = 0.
DMS Managed Indicator = X.
 IF P_ZAMIB = C_X.
 LOOP AT TB_KNB1 WHERE ZAMIB = SPACE.
 DELETE TB_BSID WHERE BUKRS = TB_KNB1-BUKRS
 AND KUNNR = TB_KNB1-KUNNR.
 ENDLOOP.
 ENDIF.
Transfering Open Items from TB_BSID to TB_BSID_OPEN
 TB_BSID_OPEN[] = TB_BSID[].
ENDIF.
ENDFORM. " SELECT_CUSTOMER_OPEN_ITEMS
*& Form SELECT_CUSTOMER_CLEARED_ITEMS
 Select Custmer Cleared Items.
FORM SELECT_CUSTOMER_CLEARED_ITEMS .
CLEAR: TB_BSAD_CLEAR,
 TB_BSAD_CLEAR[].
SELECT A~BUKRS
 B~KUNNR
 B~AUGDT
 B~BLDAT
 B~SHKZG
 B~DMBTR
 B~ZFBDT
 B~ZBD1T
 B~ZBD2T
 B~ZBD3T
 B~REBZG
 B~REBZT
 INTO TABLE TB_BSAD_CLEAR
 FROM BKPF AS A JOIN BSAD AS B
 ON ABUKRS = BBUKRS
 AND ABELNR = BBELNR
 AND AGJAHR = BGJAHR
 WHERE A~BUKRS IN S_BUKRS
 AND A~BLDAT IN S_BLDAT
 AND B~KUNNR IN S_KUNNR
 AND B~ZUONR IN S_ZUONR
 AND B~BSCHL = C_1.
IF SY-SUBRC = 0.
DMS Managed Indicator = X.
 IF P_ZAMIB = C_X.
 LOOP AT TB_KNB1 WHERE ZAMIB = SPACE.
 DELETE TB_BSID WHERE BUKRS = TB_KNB1-BUKRS
 AND KUNNR = TB_KNB1-KUNNR.
 ENDLOOP.
 ENDIF.
Sort TB_BSID_CLEAR by Customer number
 SORT TB_BSAD_CLEAR BY KUNNR.
ENDIF.
Append lines of TB_BSID_CLEAR to table TB_BSID
APPEND LINES OF TB_BSAD_CLEAR TO TB_BSID.
Sort TB_BSID by Cust num AND Doc date in document
SORT TB_BSID BY KUNNR BLDAT.
ENDFORM. " SELECT_CUSTOMER_CLEARED_ITEMS
*& Form SELECT_KNA1
 Select General Data in Customer Master
FORM SELECT_KNA1.
CLEAR: TB_KNA1,
 TB_KNA1[].
SELECT KUNNR
 NAME1
 TELF1
 ADRNR
 INTO TABLE TB_KNA1
 FROM KNA1
 WHERE KUNNR IN S_KUNNR.
IF SY-SUBRC <> 0.
ENDIF.
ENDFORM. " SELECT_KNA1
*& Form POPULATE_TB_FINAL
 Populate Final Output Data.
FORM POPULATE_TB_FINAL.
Local variable
DATA: L_DAYS_SLOW(3) TYPE N. " Days Slow
CLEAR: TB_FINAL,
 TB_FINAL[].
LOOP AT TB_KNA1.
Move-corresponding TB_KNA1 to TB_FINAL.
 TB_FINAL-KUNNR = TB_KNA1-KUNNR. " Customer Number
 TB_FINAL-NAME1 = TB_KNA1-NAME1. " Name Line 1
 TB_FINAL-PHONE = TB_KNA1-TELF1. " Telephone Number
To get Customer Address.
 PERFORM GET_CUSTOMER_ADDRESS.
To get Date of Last Invoice.
 READ TABLE TB_BSID WITH KEY KUNNR = TB_KNA1-KUNNR.
 IF SY-SUBRC = 0.
 TB_FINAL-LAST_DATE = TB_BSID-BLDAT.
 ENDIF.
To get past due and current details.
 PERFORM GET_PAST_DUE_CURRENT.
To get Days Slow.
 CLEAR WA_FAEDE .
 LOOP AT TB_BSID_OPEN WHERE KUNNR = TB_KNA1-KUNNR.
 WA_FAEDE-SHKZG = TB_BSID-SHKZG.
 WA_FAEDE-ZFBDT = TB_BSID-ZFBDT.
 WA_FAEDE-ZBD1T = TB_BSID-ZBD1T.
 WA_FAEDE-ZBD2T = TB_BSID-ZBD2T.
 WA_FAEDE-ZBD3T = TB_BSID-ZBD3T.
 WA_FAEDE-REBZG = TB_BSID-REBZG.
 WA_FAEDE-REBZT = TB_BSID-REBZT.
 WA_FAEDE-KOART = C_D.
 To Determine Due Date.
 CALL FUNCTION 'DETERMINE_DUE_DATE'
 EXPORTING
 I_FAEDE = WA_FAEDE
 IMPORTING
 E_FAEDE = WA_FAEDE
 EXCEPTIONS
 ACCOUNT_TYPE_NOT_SUPPORTED = 1
 OTHERS = 2.
 IF SY-SUBRC <> 0.
 CLEAR WA_FAEDE.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
 CLEAR: L_DAYS_SLOW.
 L_DAYS_SLOW = SY-DATUM - WA_FAEDE-NETDT - P_GRACE.
 G_DAYS_SLOW = G_DAYS_SLOW + ABS( L_DAYS_SLOW ).
 G_OPEN = G_OPEN + 1.
 ENDLOOP.
 IF G_OPEN IS INITIAL.
 TB_FINAL-DAYS_SLOW = G_DAYS_SLOW / G_OPEN. " Days Slow
 ENDIF.
To get Average days to Pay.
 PERFORM GET_AVG_DAYS_PAY.
Calculating total records .
 G_REC_COUNT = G_REC_COUNT + 1.
 APPEND TB_FINAL.
 CLEAR TB_FINAL.
ENDLOOP.
Current account balance.
G_CURR_BAL = TB_FINAL-CURRENT + TB_FINAL-AVG_1_30 +
 TB_FINAL-AVG_31_60 +
 TB_FINAL-AVG_61_90 +
 TB_FINAL-AVG_90G .
ENDFORM. " POPULATE_TB_FINAL
*& Form GET_PAST_DUE_CURRENT
 To get past due and current details.
FORM GET_PAST_DUE_CURRENT.
 Local Varaibles.
DATA: L_RF035_SFAE1 TYPE RF035-SFAE1,
 L_RF035_SFAE2 TYPE RF035-SFAE2,
 L_RF035_SFAE3 TYPE RF035-SFAE3,
 L_RF035_SFAE4 TYPE RF035-SFAE4,
 L_RF035_SFAE5 TYPE RF035-SFAE5,
 L_RF035_SFAE6 TYPE RF035-SFAE6,
 L_RF035_SFAEL TYPE RF035-SFAEL,
 L_RF035_SNFA1 TYPE RF035-SNFA1,
 L_RF035_SNFA2 TYPE RF035-SNFA2,
 L_RF035_SNFA3 TYPE RF035-SNFA3,
 L_RF035_SNFA4 TYPE RF035-SNFA4,
 L_RF035_SNFA5 TYPE RF035-SNFA5,
 L_RF035_SNFA6 TYPE RF035-SNFA6,
 L_RF035_SNFAE TYPE RF035-SNFAE.
LOOP AT TB_KNB1 WHERE KUNNR = TB_KNA1-KUNNR.
 CALL FUNCTION 'CUSTOMER_DUE_DATE_ANALYSIS'
 EXPORTING
 BUKRS = TB_KNB1-BUKRS
 KKBER = ' '
 KUNNR = TB_KNB1-KUNNR
 RASID = C_Z001
 IMPORTING
 SFAE1 = L_RF035_SFAE1
 SFAE2 = L_RF035_SFAE2
 SFAE3 = L_RF035_SFAE3
 SFAE4 = L_RF035_SFAE4
 SFAE5 = L_RF035_SFAE5
 SFAE6 = L_RF035_SFAE6
 SFAEL = L_RF035_SFAEL
 SNFA1 = L_RF035_SNFA1
 SNFA2 = L_RF035_SNFA2
 SNFA3 = L_RF035_SNFA3
 SNFA4 = L_RF035_SNFA4
 SNFA5 = L_RF035_SNFA5
 SNFA6 = L_RF035_SNFA6
 SNFAE = L_RF035_SNFAE
 EXCEPTIONS
 INVALID_RASTER = 1
 NO_OPEN_ITEMS = 2
 OTHERS = 3
 IF SY-SUBRC = 0.
 TB_FINAL-AVG_1_30 = TB_FINAL-AVG_1_30 + L_RF035_SFAE1.
 TB_FINAL-AVG_31_60 = TB_FINAL-AVG_31_60 + L_RF035_SFAE2.
 TB_FINAL-AVG_61_90 = TB_FINAL-AVG_61_90 + L_RF035_SFAE3.
 TB_FINAL-AVG_90G = TB_FINAL-AVG_90G + L_RF035_SFAE4
 + L_RF035_SFAE5
 + L_RF035_SFAE6.
 TB_FINAL-CURRENT = TB_FINAL-CURRENT + L_RF035_SNFAE.
 ELSE.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
 ENDIF.
ENDLOOP.
ENDFORM. " GET_PAST_DUE_CURRENT
*& Form GET_CUSTOMER_ADDRESS
 To get Customer Address.
FORM GET_CUSTOMER_ADDRESS.
X_ADDR1_SEL-ADDRNUMBER = TB_KNA1-ADRNR.
CALL FUNCTION 'ADDR_GET'
 EXPORTING
 ADDRESS_SELECTION = X_ADDR1_SEL
 IMPORTING
 SADR = X_SADR
 EXCEPTIONS
 PARAMETER_ERROR = 1
 ADDRESS_NOT_EXIST = 2
 VERSION_NOT_EXIST = 3
 INTERNAL_ERROR = 4
 OTHERS = 5.
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ADDRESS LINE 1.
TB_FINAL-ADDRESS1 = X_SADR-STRAS.
ADDRESS LINE 2.
CONCATENATE X_SADR-PFACH 'CODE' X_SADR-PSTL2 INTO TB_FINAL-ADDRESS2
 SEPARATED BY SPACE.
ADDRESS LINE 3.
CONCATENATE X_SADR-ORT01 X_SADR-ORT02 ',' X_SADR-REGIO X_SADR-PSTLZ
 INTO TB_FINAL-ADDRESS3 SEPARATED BY SPACE.
ADDRESS LINE 4.
TB_FINAL-ADDRESS4 = X_SADR-LAND1.
ENDFORM. " GET_CUSTOMER_ADDRESS
*& Form GET_AVG_DAYS_PAY
 To get Average days to Pay.
FORM GET_AVG_DAYS_PAY.
*Local variable
DATA: L_DAYS TYPE N . " Number of Days
LOOP AT TB_BSAD_CLEAR WHERE KUNNR = TB_KNA1-KUNNR.
 L_DAYS = TB_BSAD_CLEAR-AUGDT - TB_BSAD_CLEAR-BLDAT.
 G_AVG = G_AVG + L_DAYS.
 G_COUNT = G_COUNT + 1.
ENDLOOP.
IF NOT G_COUNT IS INITIAL.
 TB_FINAL-AVG = G_AVG / G_COUNT. " Average days to Pay.
ENDIF.
ENDFORM. " GET_AVG_DAYS_PAY
*& Form DISPLAY_ALV_REPORT
 text
FORM DISPLAY_ALV_REPORT.
For Populating Field Catalog.
PERFORM RPT_BUILD_FIELDCATLOG.
For Modifying Field Catalog.
PERFORM RPT_MODIFY_FIELDCATLOG.
For TOP_OF_PAGE Event.
PERFORM RPT_GET_EVENTS.
For Displaying Output in Grid Format.
PERFORM RPT_GRID_DISPLAY.
ENDFORM. " DISPLAY_ALV_REPORT
*& Form RPT_BUILD_FIELDCATLOG
 text
FORM RPT_BUILD_FIELDCATLOG.
To build the Field Catlog.
DATA : L_TABNAME TYPE SLIS_TABNAME. " Table Name
L_TABNAME = 'TB_FINAL'.
REFRESH : TB_FIELDCAT.
CLEAR : TB_FIELDCAT.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
 EXPORTING
 I_PROGRAM_NAME = G_REPID
 I_INTERNAL_TABNAME = L_TABNAME
 I_INCLNAME = G_REPID
 CHANGING
 CT_FIELDCAT = TB_FIELDCAT
 EXCEPTIONS
 INCONSISTENT_INTERFACE = 1
 PROGRAM_ERROR = 2
 OTHERS = 3.
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " RPT_BUILD_FIELDCATLOG
*& Form RPT_MODIFY_FIELDCATLOG
 text
FORM RPT_MODIFY_FIELDCATLOG.
Getting the Header Text for the Coloumns
DATA : L_TABIX LIKE SY-TABIX, " Index
 L_DDICTXT TYPE C VALUE 'L'. " Flag
Getting the Header Text for the Coloumns
LOOP AT TB_FIELDCAT INTO X_FIELDCAT.
 CLEAR L_TABIX.
 L_TABIX = SY-TABIX.
 CASE X_FIELDCAT-FIELDNAME.
 WHEN 'KUNNR'. " Customer Number
 X_FIELDCAT-SELTEXT_L = 'Customer Number'(001).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'NAME1'. " Name Line 1
 X_FIELDCAT-SELTEXT_L = 'Name'(002).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'ADDRESS1'. " Address line 1
 X_FIELDCAT-SELTEXT_L = 'Address 1'(003).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'ADDRESS2'. " Address line 2
 X_FIELDCAT-SELTEXT_L = 'Address 2'(004).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'ADDRESS3'. " Address line 3
 X_FIELDCAT-SELTEXT_L = 'Address 3'(005).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'ADDRESS4'. " Address line 4
 X_FIELDCAT-SELTEXT_L = 'Address 4'(006).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'PHONE'. " Telephone Number
 X_FIELDCAT-SELTEXT_L = 'Telephone Number'(007).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'DAYS_SLOW'. " Days Slow
 X_FIELDCAT-SELTEXT_L = 'Days Slow'(008).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'LAST_DATE'. " Date of Last Invoice
 X_FIELDCAT-SELTEXT_L = 'Date of Last Invoice'(009).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'AVG'. " Average Days to Pay
 X_FIELDCAT-SELTEXT_L = 'Average Days to Pay'(010).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'CURRENT'. " Current
 X_FIELDCAT-SELTEXT_L = 'Aging Category 1'(011).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'AVG_1_30'. " 1-30 past due
 X_FIELDCAT-SELTEXT_L = 'Aging Category 2'(012).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'AVG_31_60'. " 31-60 past due
 X_FIELDCAT-SELTEXT_L = 'Aging Category 3'(013).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'AVG_61_90'. " 61-90 past due
 X_FIELDCAT-SELTEXT_L = 'Aging Category 4'(014).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 WHEN 'AVG_90G'. " 90+ past due
 X_FIELDCAT-SELTEXT_L = 'Aging Category 5'(015).
 X_FIELDCAT-DDICTXT = L_DDICTXT.
 ENDCASE.
 MODIFY TB_FIELDCAT FROM X_FIELDCAT INDEX L_TABIX.
ENDLOOP.
ENDFORM. " RPT_MODIFY_FIELDCATLOG
*& Form RPT_GET_EVENTS
 text
FORM RPT_GET_EVENTS.
DATA : L_TABIX TYPE SY-TABIX. " Index
CLEAR : TB_EVENTS,
 TB_EVENTS[].
To get the events from this function module
for ALV display
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = TB_EVENTS
 EXCEPTIONS
 LIST_TYPE_WRONG = 1
 OTHERS = 2.
IF SY-SUBRC <> 0.
 MESSAGE I999 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Modifing Top of Page event
READ TABLE TB_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
 INTO X_EVENTS.
IF SY-SUBRC = 0.
 CLEAR L_TABIX.
 L_TABIX = SY-TABIX.
 X_EVENTS-FORM = C_TOP_OF_PAGE.
 MODIFY TB_EVENTS FROM X_EVENTS INDEX L_TABIX.
 CLEAR X_EVENTS.
ENDIF.
ENDFORM. " RPT_GET_EVENTS
*& Form TOP_OF_PAGE
 Top Of Page for the ALV format
FORM TOP_OF_PAGE.
REFRESH TB_COMMENTS.
For heading
CLEAR X_COMMENTS.
X_COMMENTS-TYP = C_H.
X_COMMENTS-INFO = 'D&B Credit Agency Interface'(019).
APPEND X_COMMENTS TO TB_COMMENTS.
This module outputs formatted simple header information at TOP-OF-PAGE
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = TB_COMMENTS.
ENDFORM. " TOP_OF_PAGE
*& Form RPT_GRID_DISPLAY
 text
FORM RPT_GRID_DISPLAY.
Layout Settings
CLEAR X_LAYOUT.
X_LAYOUT-ZEBRA = 'X'.
X_LAYOUT-COLWIDTH_OPTIMIZE = C_X.
X_LAYOUT-NO_COLHEAD = SPACE.
To Display the Output in ALV Format
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = G_REPID
 IS_LAYOUT = X_LAYOUT
 IT_FIELDCAT = TB_FIELDCAT
 IT_EVENTS = TB_EVENTS
 TABLES
 T_OUTTAB = TB_FINAL
 EXCEPTIONS
 PROGRAM_ERROR = 1
 OTHERS = 2.
IF SY-SUBRC <> 0.
 MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM. " RPT_GRID_DISPLAY
*& Form SEND_EMAIL
 text
--> p1 text
<-- p2 text
FORM SEND_EMAIL.
Prepare the mail
PERFORM SEND_MAIL USING C_INTERFACE.
Sending the mail to Receivers
PERFORM SENDING_MAIL.
ENDFORM. " SEND_EMAIL
*& Form SEND_MAIL
 Sending the Mail
FORM SEND_MAIL USING P_C_INTERFACE TYPE YWFSALOFFICNOTIF-INTERFACE_ID.
Populating Report name
G_TITLE = C_TITLE.
PERFORM POPULATE_EMAIL_REF_DATA USING G_TITLE.
IF NOT G_REC_COUNT IS INITIAL.
To populate the data to table tb_objbin
 PERFORM POPULATE_DATA_OBJBIN.
To get the attached file for the mail
 CLEAR G_TAB_LINES.
 DESCRIBE TABLE TB_OBJBIN LINES G_TAB_LINES.
 TB_OBJHEAD = C_FILENAME.
 APPEND TB_OBJHEAD.
 CLEAR TB_OBJHEAD.
Creation of the entry for the mail
 TB_OBJPACK-TRANSF_BIN = C_X.
 TB_OBJPACK-HEAD_START = C_1.
 TB_OBJPACK-HEAD_NUM = C_1.
 TB_OBJPACK-BODY_START = C_1.
 TB_OBJPACK-BODY_NUM = G_TAB_LINES.
 TB_OBJPACK-DOC_TYPE = C_TXT.
 TB_OBJPACK-OBJ_NAME = G_REPID.
 TB_OBJPACK-OBJ_DESCR = 'Interface Audit Report'(020).
 TB_OBJPACK-DOC_SIZE = G_TAB_LINES * 255.
 APPEND TB_OBJPACK.
ENDIF.
ENDFORM. " SEND_MAIL
*& Form SENDING_MAIL
FORM SENDING_MAIL.
Function Module to send mail along with attached file
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
 EXPORTING
 DOCUMENT_DATA = TB_DOC_CHNG
 TABLES
 PACKING_LIST = TB_OBJPACK
 OBJECT_HEADER = TB_OBJHEAD
 CONTENTS_BIN = TB_OBJBIN
 CONTENTS_TXT = TB_OBJTXT
 RECEIVERS = TB_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.
CASE SY-SUBRC.
 WHEN 0.
 MESSAGE S999 WITH 'Mail has been sucessfully sent'(029).
 WHEN 1.
 MESSAGE S999 WITH 'Too Many Parameters'(030).
 WHEN 2.
 MESSAGE S999 WITH 'Doc Could Not Be Sent'(031).
 WHEN 4.
 MESSAGE S999 WITH 'No Authority To Send'(032).
 WHEN 99.
 MESSAGE S999 WITH 'Error While Sending'(033).
ENDCASE.
ENDFORM. " SENDING_MAIL
*& Form POPULATE_EMAIL_REF_DATA
 Poplulating the body of the mail
FORM POPULATE_EMAIL_REF_DATA USING TEXT TYPE SOLISTI1-LINE.
Setting up Mail Subject
TB_DOC_CHNG-OBJ_DESCR = 'Interface Audit Report'(020).
Populating body of the mail
TB_OBJTXT-LINE = 'Interface Audit Report'(020).
APPEND TB_OBJTXT.
CLEAR: TB_OBJTXT.
DESCRIBE TABLE TB_OBJTXT LINES G_TAB_LINES.
READ TABLE TB_OBJTXT INDEX G_TAB_LINES.
*To determine the document size
TB_DOC_CHNG-DOC_SIZE = ( G_TAB_LINES - 1 ) * 255 + STRLEN( TB_OBJTXT ).
Creation of the entry for the Mail Contents
CLEAR TB_OBJPACK-TRANSF_BIN.
TB_OBJPACK-HEAD_START = C_1.
TB_OBJPACK-HEAD_NUM = C_0.
TB_OBJPACK-BODY_START = C_1.
TB_OBJPACK-BODY_NUM = G_TAB_LINES.
TB_OBJPACK-DOC_TYPE = C_RAW.
APPEND TB_OBJPACK.
ENDFORM. " POPULATE_EMAIL_REF_DATA
*& Form POPULATE_DATA_OBJBIN
 Populating table for file attachment

To send output of report to the mails ids as an excel attachment

Hi all,
I have a requirement that I have created a report using classes. Now I have to send output of my report to the particular mailids as an excel attachment.
Can anybody help me?
Regards,
Azra.

Hi,
Refer Below links.
Re: Formatting Excel Attachment output in SO_DOCUMENT_SEND_API1
Information Broadcasting with Excel Report as attachment
Zip the excel and send as mail attachment
Regards
Md.MaahboobKhan

Need to send my ALV report via Email.

hi
I have this ALV report. I know I can go up to the toolbar and email the report manually to the user. But I am looking for a code to do that automatically. meaning When I run the report in the selection screen i will provide the email address and the report after its ran it should also email that (when its done manually it sends the attachment as an PDF, which i have no problem with) report as PDF.
Please help me with the code i need to use..
I tried with the following but the program crashes
CALL FUNCTION 'RFC_MAIL' DESTINATION 'LOCAL_EXEC'
EXPORTING USER = '[email protected]'
TABLES MAIL = REC.

You can output the report to a spool and then convert the spool to PDF using standard FM CONVERT_ABAPSPOOLJOB_2_PDF. Then use FM SO_DOCUMENT_SEND_API1 to attach the pdf data in an outgoing email.
Here is the sample codes:
*& Report ZEMAILPDF *
*& Converts spool request into PDF document and emails it to *
*& recipicant. *
*& Execution *
*& This program can be run in background or online and a spool request *
*& will still be created *
REPORT zemailpdf.
PARAMETER: p_email1 LIKE somlreci1-receiver
 DEFAULT '[email protected]',
 p_sender LIKE somlreci1-receiver
 DEFAULT ''[email protected]'',
 p_delspl AS CHECKBOX,
 p_online no-display.
*DATA DECLARATION
DATA: gd_recsize TYPE i.
* Spool IDs
TYPES: BEGIN OF t_tbtcp.
 INCLUDE STRUCTURE tbtcp.
TYPES: END OF t_tbtcp.
DATA: it_tbtcp TYPE STANDARD TABLE OF t_tbtcp INITIAL SIZE 0,
 wa_tbtcp TYPE t_tbtcp.
* Job Runtime Parameters
DATA: gd_eventid LIKE tbtcm-eventid,
 gd_eventparm LIKE tbtcm-eventparm,
 gd_external_program_active LIKE tbtcm-xpgactive,
 gd_jobcount LIKE tbtcm-jobcount,
 gd_jobname LIKE tbtcm-jobname,
 gd_stepcount LIKE tbtcm-stepcount,
 gd_error TYPE sy-subrc,
 gd_reciever TYPE sy-subrc.
DATA: w_recsize TYPE i,
 w_spool_nr like sy-spono.
* %_print LIKE pri_params.
DATA: gd_subject LIKE sodocchgi1-obj_descr,
 it_mess_bod LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 it_mess_att LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 gd_sender_type LIKE soextreci1-adr_typ,
 gd_attachment_desc TYPE so_obj_nam,
 gd_attachment_name TYPE so_obj_des.
* Spool to PDF conversions
DATA: gd_spool_nr LIKE tsp01-rqident,
 gd_destination LIKE rlgrap-filename,
 gd_bytecount LIKE tst01-dsize,
 gd_buffer TYPE string.
* Binary store for PDF
DATA: BEGIN OF it_pdf_output OCCURS 0.
 INCLUDE STRUCTURE tline.
DATA: END OF it_pdf_output.
CONSTANTS: c_dev LIKE sy-sysid VALUE 'DEV',
 c_no(1) TYPE c VALUE ' ',
 c_device(4) TYPE c VALUE 'LOCL'.
*START-OF-SELECTION.
START-OF-SELECTION.
* Write statement to represent report output. Spool request is created
* if write statement is executed in background. This could also be an
* ALV grid which would be converted to PDF without any extra effort
WRITE 'Hello World'.
new-page.
commit work.
new-page print off.
If p_online = 'X'.
* Processing performed when program calls itself when run online
 gd_spool_nr = sy-spono.
 EXPORT gd_spool_nr TO MEMORY ID 'SPOOLTOPDF'.
 EXIT.
endif.
IF sy-batch EQ 'X'.
 PERFORM get_job_details.
 PERFORM obtain_spool_id.
ELSE.
 gd_spool_nr = sy-spono.
* If executed online, it submits a program to perform the write statements
* instructing it to create a spool request, this could be another program
* which just performs the write statements and then exports sy-spono
* to memory. But in this example it calls itself passing X to parameter
* p_online, which takes it down an alternative procesing path.
 submit ZSPOOLTOPDF2
 with p_online = 'X'
 to sap-spool
 spool parameters %_print
* archive parameters %_print
 without spool dynpro
 and return.
ENDIF.
* Get spool id from program called above
IMPORT gd_spool_nr FROM MEMORY ID 'SPOOLTOPDF'.
PERFORM convert_spool_to_pdf.
PERFORM process_email.
if p_delspl EQ 'X'.
 PERFORM delete_spool.
endif.
IF sy-sysid = c_dev.
 wait up to 5 seconds.
 SUBMIT rsconn01 WITH mode = 'INT'
 WITH output = 'X'
 AND RETURN.
ENDIF.
* FORM obtain_spool_id *
FORM obtain_spool_id.
CHECK NOT ( gd_jobname IS INITIAL ).
CHECK NOT ( gd_jobcount IS INITIAL ).
SELECT * FROM tbtcp
 INTO TABLE it_tbtcp
 WHERE jobname = gd_jobname
 AND jobcount = gd_jobcount
 AND stepcount = gd_stepcount
 AND listident <> '0000000000'
 ORDER BY jobname
 jobcount
 stepcount.
READ TABLE it_tbtcp INTO wa_tbtcp INDEX 1.
IF sy-subrc = 0.
 message s004(zdd) with gd_spool_nr.
 gd_spool_nr = wa_tbtcp-listident.
 MESSAGE s004(zdd) WITH gd_spool_nr.
ELSE.
 MESSAGE s005(zdd).
ENDIF.
ENDFORM.
* FORM get_job_details *
FORM get_job_details.
* Get current job details
CALL FUNCTION 'GET_JOB_RUNTIME_INFO'
 IMPORTING
 eventid = gd_eventid
 eventparm = gd_eventparm
 external_program_active = gd_external_program_active
 jobcount = gd_jobcount
 jobname = gd_jobname
 stepcount = gd_stepcount
 EXCEPTIONS
 no_runtime_info = 1
 OTHERS = 2.
ENDFORM.
* FORM convert_spool_to_pdf *
FORM convert_spool_to_pdf.
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
 EXPORTING
 src_spoolid = gd_spool_nr
 no_dialog = c_no
 dst_device = c_device
 IMPORTING
 pdf_bytecount = gd_bytecount
 TABLES
 pdf = it_pdf_output
 EXCEPTIONS
 err_no_abap_spooljob = 1
 err_no_spooljob = 2
 err_no_permission = 3
 err_conv_not_possible = 4
 err_bad_destdevice = 5
 user_cancelled = 6
 err_spoolerror = 7
 err_temseerror = 8
 err_btcjob_open_failed = 9
 err_btcjob_submit_failed = 10
 err_btcjob_close_failed = 11
 OTHERS = 12.
CHECK sy-subrc = 0.
* Transfer the 132-long strings to 255-long strings
LOOP AT it_pdf_output.
 TRANSLATE it_pdf_output USING ' ~'.
 CONCATENATE gd_buffer it_pdf_output INTO gd_buffer.
ENDLOOP.
TRANSLATE gd_buffer USING '~ '.
DO.
 it_mess_att = gd_buffer.
 APPEND it_mess_att.
 SHIFT gd_buffer LEFT BY 255 PLACES.
 IF gd_buffer IS INITIAL.
 EXIT.
 ENDIF.
ENDDO.
ENDFORM.
* FORM process_email *
FORM process_email.
DESCRIBE TABLE it_mess_att LINES gd_recsize.
CHECK gd_recsize > 0.
PERFORM send_email USING p_email1.
* perform send_email using p_email2.
ENDFORM.
* FORM send_email *
* --> p_email *
FORM send_email USING p_email.
CHECK NOT ( p_email IS INITIAL ).
REFRESH it_mess_bod.
* Default subject matter
gd_subject = 'Subject'.
gd_attachment_desc = 'Attachname'.
* CONCATENATE 'attach_name' ' ' INTO gd_attachment_name.
it_mess_bod = 'Message Body text, line 1'.
APPEND it_mess_bod.
it_mess_bod = 'Message Body text, line 2...'.
APPEND it_mess_bod.
* If no sender specified - default blank
IF p_sender EQ space.
 gd_sender_type = space.
ELSE.
 gd_sender_type = 'INT'.
ENDIF.
* Send file by email as .xls speadsheet
PERFORM send_file_as_email_attachment
 tables it_mess_bod
 it_mess_att
 using p_email
 'Example .xls documnet attachment'
 'PDF'
 gd_attachment_name
 gd_attachment_desc
 p_sender
 gd_sender_type
 changing gd_error
 gd_reciever.
ENDFORM.
* FORM delete_spool *
FORM delete_spool.
DATA: ld_spool_nr TYPE tsp01_sp0r-rqid_char.
ld_spool_nr = gd_spool_nr.
CHECK p_delspl <> c_no.
CALL FUNCTION 'RSPO_R_RDELETE_SPOOLREQ'
 EXPORTING
 spoolid = ld_spool_nr.
ENDFORM.
*& Form SEND_FILE_AS_EMAIL_ATTACHMENT
* Send email
FORM send_file_as_email_attachment tables it_message
 it_attach
 using p_email
 p_mtitle
 p_format
 p_filename
 p_attdescription
 p_sender_address
 p_sender_addres_type
 changing p_error
 p_reciever.
DATA: ld_error TYPE sy-subrc,
 ld_reciever TYPE sy-subrc,
 ld_mtitle LIKE sodocchgi1-obj_descr,
 ld_email LIKE somlreci1-receiver,
 ld_format TYPE so_obj_tp ,
 ld_attdescription TYPE so_obj_nam ,
 ld_attfilename TYPE so_obj_des ,
 ld_sender_address LIKE soextreci1-receiver,
 ld_sender_address_type LIKE soextreci1-adr_typ,
 ld_receiver LIKE sy-subrc.
data: t_packing_list like sopcklsti1 occurs 0 with header line,
 t_contents like solisti1 occurs 0 with header line,
 t_receivers like somlreci1 occurs 0 with header line,
 t_attachment like solisti1 occurs 0 with header line,
 t_object_header like solisti1 occurs 0 with header line,
 w_cnt type i,
 w_sent_all(1) type c,
 w_doc_data like sodocchgi1.
ld_email = p_email.
ld_mtitle = p_mtitle.
ld_format = p_format.
ld_attdescription = p_attdescription.
ld_attfilename = p_filename.
ld_sender_address = p_sender_address.
ld_sender_address_type = p_sender_addres_type.
* Fill the document data.
w_doc_data-doc_size = 1.
* Populate the subject/generic message attributes
w_doc_data-obj_langu = sy-langu.
w_doc_data-obj_name = 'SAPRPT'.
w_doc_data-obj_descr = ld_mtitle .
w_doc_data-sensitivty = 'F'.
* Fill the document data and get size of attachment
CLEAR w_doc_data.
READ TABLE it_attach INDEX w_cnt.
w_doc_data-doc_size =
 ( w_cnt - 1 ) * 255 + STRLEN( it_attach ).
w_doc_data-obj_langu = sy-langu.
w_doc_data-obj_name = 'SAPRPT'.
w_doc_data-obj_descr = ld_mtitle.
w_doc_data-sensitivty = 'F'.
CLEAR t_attachment.
REFRESH t_attachment.
t_attachment[] = it_attach[].
* Describe the body of the message
CLEAR t_packing_list.
REFRESH t_packing_list.
t_packing_list-transf_bin = space.
t_packing_list-head_start = 1.
t_packing_list-head_num = 0.
t_packing_list-body_start = 1.
DESCRIBE TABLE it_message LINES t_packing_list-body_num.
t_packing_list-doc_type = 'RAW'.
APPEND t_packing_list.
* Create attachment notification
t_packing_list-transf_bin = 'X'.
t_packing_list-head_start = 1.
t_packing_list-head_num = 1.
t_packing_list-body_start = 1.
DESCRIBE TABLE t_attachment LINES t_packing_list-body_num.
t_packing_list-doc_type = ld_format.
t_packing_list-obj_descr = ld_attdescription.
t_packing_list-obj_name = ld_attfilename.
t_packing_list-doc_size = t_packing_list-body_num * 255.
APPEND t_packing_list.
* Add the recipients email address
CLEAR t_receivers.
REFRESH t_receivers.
t_receivers-receiver = ld_email.
t_receivers-rec_type = 'U'.
t_receivers-com_type = 'INT'.
t_receivers-notif_del = 'X'.
t_receivers-notif_ndel = 'X'.
APPEND t_receivers.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
 EXPORTING
 document_data = w_doc_data
 put_in_outbox = 'X'
 sender_address = ld_sender_address
 sender_address_type = ld_sender_address_type
 commit_work = 'X'
 IMPORTING
 sent_to_all = w_sent_all
 TABLES
 packing_list = t_packing_list
 contents_bin = t_attachment
 contents_txt = it_message
 receivers = t_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.
* Populate zerror return code
ld_error = sy-subrc.
* Populate zreceiver return code
LOOP AT t_receivers.
 ld_receiver = t_receivers-retrn_code.
ENDLOOP.
ENDFORM.
**** Points are always welcome ****

Send Output as attachment to email address

Hi friends,
My requirement is to send the Output as attachment to a specific email address.
I have created a new output type and using transmission medium as External Send.
If I use SH/BP/SP it is picking the mail address and working fine.
Now my requirement is to send to fixed standard email address irrelevant of document.
Can anyone help me to explain how can I achieve this by setting in Parner functions of that output type?
I dont want to add any parner function in partner determination.
Thanks in advance.
Rgds,
AK

Hi there,
Define a new customized Z table & maintain the required mail ids in the table.
in the O/p processing prog, call the Z table & send the mail to the mail ids mentioned in it.
For formality, assign the O/p to an partner function in your condition records.
Regards,
Sivanand

Send Payment advice to multiple email ids

Hi,
We have requirement that payment advice need to be send to multiple vendor email ids.
I have implemented SAP note Note 1033893, which says after applying the note the email can be sent to multiple email ids by seperating the email ids by space in field c_finaa-intad in BTE 2040.
But when i am trying to send the email to multiple ids is not going , when i tried to send with one email id . its working fine.
i am using RFFOAVIS_FPAYM to send the payment list.
Please help if you know any solution..
Thanks,
Geeta

Hi,
Create the distribution list and maintain the email ids in that.
T.code : SO23 - to create a distribution list.
And fuctional consultant that whether they can assign this distriution list in SRO to get the all email ids or u may have to write code in user exit.
Thanks.
Balu

Send invoice document to multiple email ids

Hi Experts,
I wnat to email the invoice generated through tcode VF03 to multiple email ids.
As per standard, only one email id is active . So please suggest some solution.
Thanks in advance

Hi,
Create the distribution list and maintain the email ids in that.
T.code : SO23 - to create a distribution list.
And fuctional consultant that whether they can assign this distriution list in SRO to get the all email ids or u may have to write code in user exit.
Thanks.
Balu

Schedule program in background & send output list as group email

Hello all,
I have a requirement where I have to schedule a job in background. If there happen to be an output, this output needs to be sent to the email id's stored in a Z Table.
Please let me know how to proceed.
Regards,
Salil

Hi ,
yes you can do that..
see the belwo steps...
if sy-batch = 'X'.         "this means report is running in Background
NEW-PAGE PRINT ON NO DIALOG PARAMETERS wa_pri_params.     "creating spool request
WRITE : / text-s32.
ULINE.
LOOP AT t_ouputdata INTO wa_ouputdata.
    WRITE : / wa_ouputdata.
ENDLOOP.
WRITE : / text-s33.
NEW-PAGE PRINT OFF.                                        "closing spool request
* To fetch the spool number from TSP01 table
SELECT rqident
         FROM tsp01
         INTO w_rqident
         UP TO 1 ROWS
         WHERE rq2name = wa_pri_params-plist.
ENDSELECT.
* Function Module to Convert Spool to PDF file
CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
    EXPORTING
      src_spoolid     = w_rqident
      no_dialog       = 'X'
      dst_device      = 'LP01'
      pdf_destination = 'X'
    TABLES
      pdf             = t_pdf.
"Call function and send the t_pdf data which contains output to email...
"SO_NEW_DOCUMENT_SEND_API1 - Sending express mail ( SAP office )
"RS_SEND_MAIL_FOR_SPOOLLIST - Send message from ABAP/4 program to SAPoffice.
"SO_NEW_DOCUMENT_ATT_SEND_API1 - SAPoffice: Send new document with attachments via RFC
ELSE.
"call alv or normal display if you run report foreground..
endif.
Regards,
Prabhudas

How to add body text when sending output as PDF in email?

Hello,
We are using standard SAP to send SD output as PDF in an email (in output type we choose medium 5, email address is taken from customer master. In transaction SCOT is indicated that SAPscript/smartforms are converted to PDF. When the output is generated, we run rsconn01 to trigger the actual sending of the email).
Via form TEXT_SYMBOL_REPLACE we can modify the subject of the email that is send to include e.g. the order number. HOWEVER, in the body of the email that is send, we now only have the PDF, but we also would like to add a standard text in the body of the email. Does anyone know how to do this?
Thanks,
Alex

Hi,
Please refer to the following program and see if it helps you.
REPORT ZSAMPL_001 .
INCLUDE ZINCLUDE_01.
DATA
DATA : itab LIKE tline OCCURS 0 WITH HEADER LINE.
DATA : file_name TYPE string.
data : path like PCFILE-PATH.
data : extension(5) type c.
data : name(100) type c.
SELECTION SCREEN
PARAMETERS : receiver TYPE somlreci1-receiver lower case.
PARAMETERS : p_file LIKE rlgrap-filename
OBLIGATORY.
AT SELECTION SCREEN
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_file.
CLEAR p_file.
CALL FUNCTION 'F4_FILENAME'
IMPORTING
file_name = p_file.
START-OF-SELECTION
START-OF-SELECTION.
PERFORM ml_customize USING 'Tst' 'Testing'.
PERFORM ml_addrecp USING receiver 'U'.
PERFORM upl.
PERFORM doconv TABLES itab objbin.
PERFORM ml_prepare USING 'X' extension name.
PERFORM ml_dosend.
SUBMIT rsconn01
WITH mode EQ 'INT'
AND RETURN.
FORM
FORM upl.
file_name = p_file.
CALL FUNCTION 'GUI_UPLOAD'
EXPORTING
filename = file_name
filetype = 'BIN'
TABLES
data_tab = itab
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.
path = file_name.
CALL FUNCTION 'PC_SPLIT_COMPLETE_FILENAME'
EXPORTING
complete_filename = path
CHECK_DOS_FORMAT =
IMPORTING
DRIVE =
EXTENSION = extension
NAME = name
NAME_WITH_EXT =
PATH =
EXCEPTIONS
INVALID_DRIVE = 1
INVALID_EXTENSION = 2
INVALID_NAME = 3
INVALID_PATH = 4
OTHERS = 5
ENDFORM. "upl
***INCLUDE ZINCLUDE_01 .
10.08.2005 Amit M - Created
Include For Mail (First Req F16)
Modification Log
Data
tables crmrfcpar.
DATA: docdata LIKE sodocchgi1,
objpack LIKE sopcklsti1 OCCURS 1 WITH HEADER LINE,
objhead LIKE solisti1 OCCURS 1 WITH HEADER LINE,
objtxt LIKE solisti1 OCCURS 10 WITH HEADER LINE,
objbin LIKE solisti1 OCCURS 10 WITH HEADER LINE,
objhex LIKE solix OCCURS 10 WITH HEADER LINE,
reclist LIKE somlreci1 OCCURS 1 WITH HEADER LINE.
DATA: tab_lines TYPE i,
doc_size TYPE i,
att_type LIKE soodk-objtp.
DATA: listobject LIKE abaplist OCCURS 1 WITH HEADER LINE.
data v_rfcdest LIKE crmrfcpar-rfcdest.
FORM
FORM ml_customize USING objname objdesc.
Clear Variables
CLEAR docdata.
REFRESH objpack.
CLEAR objpack.
REFRESH objhead.
REFRESH objtxt.
CLEAR objtxt.
REFRESH objbin.
CLEAR objbin.
REFRESH objhex.
CLEAR objhex.
REFRESH reclist.
CLEAR reclist.
REFRESH listobject.
CLEAR listobject.
CLEAR tab_lines.
CLEAR doc_size.
CLEAR att_type.
Set Variables
docdata-obj_name = objname.
docdata-obj_descr = objdesc.
ENDFORM. "ml_customize
FORM
FORM ml_addrecp USING preceiver prec_type.
CLEAR reclist.
reclist-receiver = preceiver.
reclist-rec_type = prec_type.
APPEND reclist.
ENDFORM. "ml_customize
FORM
FORM ml_addtxt USING ptxt.
CLEAR objtxt.
objtxt = ptxt.
APPEND objtxt.
ENDFORM. "ml_customize
FORM
FORM ml_prepare USING bypassmemory whatatt_type whatname.
IF bypassmemory = ''.
Fetch List From Memory
CALL FUNCTION 'LIST_FROM_MEMORY'
TABLES
listobject = listobject
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
MESSAGE ID '61' TYPE 'E' NUMBER '731'
WITH 'LIST_FROM_MEMORY'.
ENDIF.
CALL FUNCTION 'TABLE_COMPRESS'
IMPORTING
COMPRESSED_SIZE =
TABLES
in = listobject
out = objbin
EXCEPTIONS
OTHERS = 1
IF sy-subrc <> 0.
MESSAGE ID '61' TYPE 'E' NUMBER '731'
WITH 'TABLE_COMPRESS'.
ENDIF.
ENDIF.
Header Data
Already Done Thru FM
Main Text
Already Done Thru FM
Packing Info For Text Data
DESCRIBE TABLE objtxt LINES tab_lines.
READ TABLE objtxt INDEX tab_lines.
docdata-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ).
CLEAR objpack-transf_bin.
objpack-head_start = 1.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = 'TXT'.
APPEND objpack.
Packing Info Attachment
att_type = whatatt_type..
DESCRIBE TABLE objbin LINES tab_lines.
READ TABLE objbin INDEX tab_lines.
objpack-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objbin ).
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = att_type.
objpack-obj_name = 'ATTACHMENT'.
objpack-obj_descr = whatname.
APPEND objpack.
Receiver List
Already done thru fm
ENDFORM. "ml_prepare
FORM
FORM ml_dosend.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
document_data = docdata
put_in_outbox = 'X'
commit_work = 'X' "used from rel. 6.10
IMPORTING
SENT_TO_ALL =
NEW_OBJECT_ID =
TABLES
packing_list = objpack
object_header = objhead
contents_bin = objbin
contents_txt = objtxt
CONTENTS_HEX = objhex
OBJECT_PARA =
object_parb =
receivers = 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 ID 'SO' TYPE 'S' NUMBER '023'
WITH docdata-obj_name.
ENDIF.
ENDFORM. "ml_customize
FORM
FORM ml_spooltopdf USING whatspoolid.
DATA : pdf LIKE tline OCCURS 0 WITH HEADER LINE.
Call Function
CALL FUNCTION 'CONVERT_OTFSPOOLJOB_2_PDF'
EXPORTING
src_spoolid = whatspoolid
TABLES
pdf = pdf
EXCEPTIONS
err_no_otf_spooljob = 1
OTHERS = 12.
Convert
PERFORM doconv TABLES pdf objbin.
ENDFORM. "ml_spooltopdf
FORM
FORM doconv TABLES
mypdf STRUCTURE tline
outbin STRUCTURE solisti1.
Data
DATA : pos TYPE i.
DATA : len TYPE i.
Loop And Put Data
LOOP AT mypdf.
pos = 255 - len.
IF pos > 134. "length of pdf_table
pos = 134.
ENDIF.
outbin+len = mypdf(pos).
len = len + pos.
IF len = 255. "length of out (contents_bin)
APPEND outbin.
CLEAR: outbin, len.
IF pos < 134.
outbin = mypdf+pos.
len = 134 - pos.
ENDIF.
ENDIF.
ENDLOOP.
IF len > 0.
APPEND outbin.
ENDIF.
ENDFORM. "doconv
FORM
FORM ml_saveforbp USING jobname jobcount.
Data
*data : yhead like yhrt_bp_head.
*DATA : ydocdata LIKE yhrt_bp_docdata,
*yobjtxt LIKE yhrt_bp_objtxt OCCURS 0 WITH HEADER LINE,
*yreclist LIKE yhrt_bp_reclist OCCURS 0 WITH HEADER LINE.
*DATA : seqnr TYPE i.
Head
*yhead-jobname = jobname.
*yhead-jobcount = jobcount..
*MODIFY yhrt_bp_head FROM yhead.
Doc Data
*ydocdata-jobname = jobname.
*ydocdata-jobcount = jobcount.
*MOVE-CORRESPONDING docdata TO ydocdata.
*MODIFY yhrt_bp_docdata FROM ydocdata.
Objtxt
*seqnr = 0.
*LOOP AT objtxt.
*seqnr = seqnr + 1.
*yobjtxt-jobname = jobname.
*yobjtxt-jobcount = jobcount.
*yobjtxt-seqnr = seqnr.
*MOVE-CORRESPONDING objtxt TO yobjtxt.
*MODIFY yhrt_bp_objtxt FROM yobjtxt.
*ENDLOOP.
RecList
*seqnr = 0.
*LOOP AT reclist.
*seqnr = seqnr + 1.
*yreclist-jobname = jobname.
*yreclist-jobcount = jobcount.
*yreclist-seqnr = seqnr.
*MOVE-CORRESPONDING reclist TO yreclist.
*MODIFY yhrt_bp_reclist FROM yreclist.
*ENDLOOP.
ENDFORM. "ml_saveforbp
FORM
FORM ml_fetchfrombp USING jobname jobcount.
*CLEAR docdata.
*REFRESH objtxt.
*REFRESH reclist.
*SELECT SINGLE * FROM yhrt_bp_docdata
*INTO corresponding fields of docdata
*WHERE jobname = jobname
*AND jobcount = jobcount.
*SELECT * FROM yhrt_bp_objtxt
*INTO corresponding fields of TABLE objtxt
*WHERE jobname = jobname
*AND jobcount = jobcount
*ORDER BY seqnr.
*SELECT * FROM yhrt_bp_reclist
*INTO corresponding fields of TABLE reclist
*WHERE jobname = jobname
*AND jobcount = jobcount
*ORDER BY seqnr.
ENDFORM. "ml_fetchfrombp
Hope this helps.
Please reward some points if it helps.
Regards,
Amit Mishra

Sending output of Reports to FTP in 10g R2 Application Server

Hi All,
Hope every one would have seen these lines in reportsserver.conf file in $ORACLE_HOME/reports/conf file.
*" <destination destype="ftp" class="oracle.reports.plugin.destination.ftp.DesFTP">*
**
*</destination> "*
Is the above lines really meant for spooling the reports output and FTP the same to another PC.
I have a requirement of spooling the reports output to clients PC. We are running reports server in Linux, as the reports directly gets saved into the server folder. We want the file to ported to a windows PC automatically. Though we have accomplished this by configuring SAMBA, it requires a additional configuration on the server side.
Seeing the above lines in reports server conf file i thought many in forum would have given a try and wanted to know the feedback on the same whether my requirement can be met with this, if ORACLE by itself gives that feature to us. Please share your thoughts and appreciate participation on this good topic.
Thanks

Hello,
Yes, these lines are related to the ftp destination :
http://download-uk.oracle.com/docs/cd/B14099_17/bi.1012/b14048/pbr_dest.htm#i1005607
Of course, a ftp server must run on the machine where you want to "send" the reports output...
Regards

Vbscript for sending output of question by emails

Hi,
I need a script that will have several questions , and i want to take the answers and send it by email(using outlook software) in the body and not with file attached .
I got a script to the questions and answers , and i have the script of sending an email with outlook , i just dont know how to link the output to the body.
here are the example i own (suggestions and adjustments will be welcomed):
script for the mail :
   Set objOutlook = CreateObject("Outlook.Application")
   Set objMail = objOutlook.CreateItem(0)
   objMail.Display   'To display message
   objMail.Recipients.Add ("*****@****.**.**")
   objMail.Subject = "Mail Subject"
   objMail.Body = "This is Email Body"
   objMail.Send
   Set objMail = Nothing
   Set objOutlook = Nothing
script 1 for q/a :
Const ForReading = 1, ForWriting = 2, ForAppending = 8, CreateIfNeeded = true
set fso = CreateObject("Scripting.FileSystemObject")
set file = fso.OpenTextFile("output.txt", ForAppending, CreateIfNeeded)
dim fname
fname = inputbox("Hi! What's your name?")
dim fname2
fname2 = inputbox("And what is your job ?")
file.write fname
file.write fname2
file.close
script2 for q/a :
' Input Box with a Title
a=InputBox("question1","Enter Value")
msgbox a
' Input Box with a Title
a=InputBox("question2","Enter Value")
msgbox a
' Input Box with a Title
a=InputBox("question3","Enter Value")
msgbox a
' Input Box with a Title
a=InputBox("question4","Enter Value")
msgbox a
' Input Box with a Title
a=InputBox("question?","Enter Value")
msgbox a

Here you go:
'Input Box with a Title
sText = InputBox("question1","Enter Value") & vbCrLf
'Input Box with a Title
sText = sText & InputBox("question2","Enter Value") & vbCrLf
etc.
Now put your E-Mail code here, including this line:
objMail.Body = sText

How to send BI Publisher reports as email attachments from Apex

Hi there,
Before I start working on this new endeavor, I would like to check if it is even possible...
Here we have Apex 4.0.2 and Oracle BI Publisher Enterprise 10.1.3. We use the Apex integration with BI Publisher to generate PDF reports.
Now there is a requirement that those reports should be optionally sent by email as attachments (ideally from Apex itself or from a database procedure in the Apex application schema.)
I am not sure how to do it, as such reports are generated by calls to URLs like this:
http://server/apex/f?p=123:0:3370070991917144:PRINT_REPORT=reportname:NO::PARAM1:123 => opens a PDF in the browser window
Is it possible to be done? If so, how?
Thanks
Luis

hello,
there is no native support for directly faxing a report. you could e.g. use a fax-software that has a printer-driver that supports this.
regards,
the oracle reports team

SEND COST CENTER REPORTS VIA EMAIL

http://www.fileuploadx.de/228589
If I use the sending option in this screen I only can send one report. But I want to send all reports.
Is there a way to select all reports ?
Markus

We haven't changed the mail server either. I took a look at the log, and even though I haven't logged into financial reporting at all since I tried to resend again this morning, it seems to keep on logging the following:
03-25 14:02:53 INFO CleanConMgrThread     Total number of Alive ADM connections are 0
03-25 14:07:53 INFO CleanConMgrThread     Total number of Alive ADM connections are 0
03-25 14:12:53 INFO CleanConMgrThread     Total number of Alive ADM connections are 0
03-25 14:17:53 INFO CleanConMgrThread     Total number of Alive ADM connections are 0
03-25 14:22:53 INFO CleanConMgrThread     Total number of Alive ADM connections are 0
03-25 14:27:53 INFO CleanConMgrThread     Total number of Alive ADM connections are 0
03-25 14:32:53 INFO CleanConMgrThread     Total number of Alive ADM connections are 0
03-25 14:37:53 INFO CleanConMgrThread     Total number of Alive ADM connections are 0
03-25 14:42:53 INFO CleanConMgrThread     Total number of Alive ADM connections are 0
03-25 14:47:53 INFO CleanConMgrThread     Total number of Alive ADM connections are 0
This seems very strange and didn't happen after batches successfully emailed

How to read email IDs from DB and send mails

Hi,
i m trying to read a set of e-mail IDs from the DB and sending mails to all those email ids.
i am getting "null pointer exception". kindly suggest how can i able to send mails to mails to those users
registered in the db.
I am reading the e-mail from the db like this :
Connection con = DriverManager.getConnection("jdbc:oracle:thin:@10.2.0.100:1521:eprocure", "uid",
"pwd");
I am using oracle9iAS.
Error i m getting :
java.lang.NullPointerException7/16/04 2:25 PM:
 at javax.mail.internet.InternetAddress.parse(InternetAddress.java:534)
 at javax.mail.internet.InternetAddress.<init>(InternetAddress.java:61)
 at com.ep.util.MailUtility.sendMail(MailUtility.java:163)
 at login.SendMsg._jspService(_SendMsg.java:121)
 at com.orionserver.http.OrionHttpJspPage.service(OrionHttpJspPage.java:56)
 at oracle.jsp.runtimev2.JspPageTable.compileAndServe(JspPageTable.java:508)
 at oracle.jsp.runtimev2.JspPageTable.service(JspPageTable.java:255)
 at oracle.jsp.runtimev2.JspServlet.internalService(JspServlet.java:407)
 at oracle.jsp.runtimev2.JspServlet.service(JspServlet.java:330)
 at javax.servlet.http.HttpServlet.service(HttpServlet.java:336)
 at com.evermind.server.http.ServletRequestDispatcher.invoke(ServletRequestDispatcher.java:684)
 at com.evermind.server.http.ServletRequestDispatcher.forwardInternal(ServletRequestDispatcher.java:269)7/
 at com.evermind.server.http.HttpRequestHandler.processRequest(HttpRequestHandler.java:735)
 at com.evermind.server.http.AJPRequestHandler.run(AJPRequestHandler.java:151)
 at com.evermind.util.ThreadPoolThread.run(ThreadPoolThread.java:64)
pls advise.
keep smiling....
Debasis

Based on your stack trace I would say you have a line of code like... = new InternetAddress(something)...and that something is null.
PC²

Sending an email to multiple email ids with edit option

Hi,
I have a reqyuiremnet where i have to send packing list to multiple email ids maintained in the customer master. I know how to send email to multiple mail ids maintained in customer master.
(1) Now client wants that user should get the pop screen with all the email ids maintained in the customer master and there should be a check box avaialble to user where in user can select the email ids so that user can select which email ids to get the packing list. For example out of 5 they only want to sent email to only 2.
(2) Another requirement is that user should be given the option to edit the mail text body. For example normaly we have defalut lines written at the end of every mail which we send to customer.
Please let me know id anything standard is availale to meet above 2 requirements. Also please tell me if there is no standard things are available in SAP than how to map this requiremnet
cheers

For second option nothing can be done in SAP Standard. Only thing you can do is if the Text is same in every print enter the Text in T-Code SO10 & ABAPer will pick it from there.
Another option for Default (fixed) text to be printed everytime in Print-out, hard code it in ABAP program, but SO10 option is better, so that Text can be changed in Future if Required.
Now you have to decide. If the Text is to be Edited by Users ocassionaly, then go for SO10 option. But if the Users are required to edit the Text everytime they take print-outs, then you will have to write code in Print program which will give a screen to End-users asking for Text to be printed on Packing List.
Kindly discuss the above options with you ABAPer & you will get some headway...
Hope this helps,
Thanks,
Jignesh Mehta
Edited by: Jignesh Mehta on Sep 22, 2011 12:44 PM

SEND output of reports to email ids automatically

Similar Messages

Maybe you are looking for