Regarding excel sheet as an attachment to mail

hi
am using the follwing code, it works finely upto sending excel as attachment. But the problem came in data of excel sheet.
the data in excel sheet is appearing like this one.
Butxt data is occupying all columns
BUKRS BUTXT
01      New York Insurance Company
The code am developed is....
parameters: p_email   type somlreci1-receiver
                               default '[email protected]'.
types: begin of sol,
       text(35),
       end of sol.
data: begin of it001 occurs 0,
      bukrs type t001-bukrs,
      butxt type t001-butxt,
      end of it001.
data:   imessage type standard table of solisti1 with header line,
        iattach type standard table of sol with header line,
        ipacking_list like sopcklsti1 occurs 0 with header line,
        ireceivers like somlreci1 occurs 0 with header line,
        iattachment like solisti1 occurs 0 with header line.
start-of-selection.
select bukrs butxt into table it001 from t001.
Populate table with details to be entered into .xls file
perform build_xls_data .
Populate message body text
clear imessage.
refresh imessage.
imessage = 'Please find attached excel file'.
append imessage.
Send file by email as .xls spreadsheet
perform send_email_with_xls tables imessage
                                      iattach
                                using p_email
                                      'Example Excel Attachment'
                                      'XLS'
                                      'TestFileName'
                                      'CompanyCodes'.
    if sy-subrc = 0.
     message i000(zsai).
    endif.
     Form BUILD_XLS_DATA
form build_xls_data .
constants: con_cret(2) type C value '0D', "OK for non Unicode
            con_tab(2) type C value '09'.   "OK for non Unicode
*If you have Unicode check active in program attributes then you will
*need to declare constants as follows
class cl_abap_char_utilities definition load.
constants:
    con_tab type c value cl_abap_char_utilities=>HORIZONTAL_TAB,
    con_cret type c value cl_abap_char_utilities=>CR_LF.
concatenate 'BUKRS' 'BUTXT'
         into iattach separated by con_tab.
concatenate con_cret iattach into iattach.
append iattach.
loop at it001.
    concatenate it001-bukrs it001-butxt
           into iattach separated by con_tab.
    concatenate con_cret iattach into iattach.
   iattach = iattach(30).
    append iattach.
endloop.
endform.
     Form SEND_EMAIL_WITH_XLS
Send file by email as .xls spreadsheet
perform send_email_with_xls tables imessage
                                     iattach
                               using p_email
                                     'Example Excel Attachment'
                                     'XLS'
                                     'TestFileName'
                                     'CompanyCodes'.
form send_email_with_xls tables pit_message
                                          pit_attach
                                    using p_email
                                          p_mtitle
                                          p_format
                                          p_filename
                                          p_attdescription.
data: xdocdata like sodocchgi1,
        xcnt type i.
Fill the document data.
xdocdata-doc_size = 1.
Populate the subject/generic message attributes
xdocdata-obj_langu = sy-langu.
xdocdata-obj_name = 'SAPRPT'.
xdocdata-obj_descr = p_mtitle .
Fill the document data and get size of attachment
clear xdocdata.
read table iattach index xcnt.
xdocdata-doc_size =
     ( xcnt - 1 ) * 255 + strlen( iattach ).
xdocdata-obj_langu = sy-langu.
xdocdata-obj_name   = 'SAPRPT'.
xdocdata-obj_descr = p_mtitle.
clear iattachment.
refresh iattachment.
iattachment[] = pit_attach[].
Describe the body of the message
clear ipacking_list.
refresh ipacking_list.
ipacking_list-transf_bin = space.
ipacking_list-head_start = 1.
ipacking_list-head_num = 0.
ipacking_list-body_start = 1.
describe table imessage lines ipacking_list-body_num.
ipacking_list-doc_type = 'RAW'.
append ipacking_list.
Create attachment notification
ipacking_list-transf_bin = 'X'.
ipacking_list-head_start = 1.
ipacking_list-head_num   = 1.
ipacking_list-body_start = 1.
describe table iattachment lines ipacking_list-body_num.
ipacking_list-doc_type   = p_format.
ipacking_list-obj_descr = p_attdescription.
ipacking_list-obj_name   = p_filename.
ipacking_list-doc_size   = ipacking_list-body_num * 255.
append ipacking_list.
Add the recipients email address
clear ireceivers. refresh ireceivers.
ireceivers-receiver = p_email.
ireceivers-rec_type = 'U'.
ireceivers-com_type = 'INT'.
ireceivers-notif_del = 'X'.
ireceivers-notif_ndel = 'X'.
append ireceivers.
call function 'SO_DOCUMENT_SEND_API1'
       exporting
            document_data              = xdocdata
            put_in_outbox              = 'X'
            commit_work                = 'X'
       tables
            packing_list               = ipacking_list
            contents_bin               = iattachment
            contents_txt               = imessage
            receivers                  = ireceivers
       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.
   SUBMIT rsconn01 WITH mode EQ 'INT' AND RETURN.
    COMMIT WORK .
ENDIF.
endform.

Similar Messages

Excel sheet as an attachment to the mail box

Hi,
i need to send an excel sheet as an attachement to the outlook mail box..
is any function module is there which serves my requirement? or if any other way is there pls let me know.
thanks..

Here is some sample code.
report zrich_0001.
parameters: p_email   type somlreci1-receiver
                               default [email protected]'.
data: begin of it001 occurs 0,
      bukrs type t001-bukrs,
      butxt type t001-butxt,
      end of it001.
data:   imessage type standard table of solisti1 with header line,
        iattach type standard table of solisti1 with header line,
        ipacking_list like sopcklsti1 occurs 0 with header line,
        ireceivers like somlreci1 occurs 0 with header line,
        iattachment like solisti1 occurs 0 with header line.
start-of-selection.
select bukrs butxt into table it001 from t001.
*   Populate table with detaisl to be entered into .xls file
perform build_xls_data .
* Populate message body text
clear imessage.   refresh imessage.
imessage = 'Please find attached excel file'.
append imessage.
* Send file by email as .xls speadsheet
perform send_email_with_xls tables imessage
                                      iattach
                                using p_email
                                      'Example Excel Attachment'
                                      'XLS'
                                      'TestFileName'
                                      'CompanyCodes'.
*      Form BUILD_XLS_DATA
form build_xls_data .
constants: con_cret type x value '0D', "OK for non Unicode
             con_tab type x value '09'.   "OK for non Unicode
*If you have Unicode check active in program attributes thnen you will
*need to declare constants as follows
*class cl_abap_char_utilities definition load.
*constants:
*    con_tab type c value cl_abap_char_utilities=>HORIZONTAL_TAB,
*    con_cret type c value cl_abap_char_utilities=>CR_LF.
concatenate 'BUKRS' 'BUTXT'
         into iattach separated by con_tab.
concatenate con_cret iattach into iattach.
append iattach.
loop at it001.
    concatenate it001-bukrs it001-butxt
           into iattach separated by con_tab.
    concatenate con_cret iattach into iattach.
    append iattach.
endloop.
endform.
*      Form SEND_EMAIL_WITH_XLS
form send_email_with_xls tables pit_message
                                          pit_attach
                                    using p_email
                                          p_mtitle
                                          p_format
                                          p_filename
                                          p_attdescription.
data: xdocdata like sodocchgi1,
        xcnt type i.
* Fill the document data.
xdocdata-doc_size = 1.
* Populate the subject/generic message attributes
xdocdata-obj_langu = sy-langu.
xdocdata-obj_name = 'SAPRPT'.
xdocdata-obj_descr = p_mtitle .
* Fill the document data and get size of attachment
clear xdocdata.
read table iattach index xcnt.
xdocdata-doc_size =
     ( xcnt - 1 ) * 255 + strlen( iattach ).
xdocdata-obj_langu = sy-langu.
xdocdata-obj_name   = 'SAPRPT'.
xdocdata-obj_descr = p_mtitle.
clear iattachment. refresh iattachment.
iattachment[] = pit_attach[].
* Describe the body of the message
clear ipacking_list. refresh ipacking_list.
ipacking_list-transf_bin = space.
ipacking_list-head_start = 1.
ipacking_list-head_num = 0.
ipacking_list-body_start = 1.
describe table imessage lines ipacking_list-body_num.
ipacking_list-doc_type = 'RAW'.
append ipacking_list.
* Create attachment notification
ipacking_list-transf_bin = 'X'.
ipacking_list-head_start = 1.
ipacking_list-head_num   = 1.
ipacking_list-body_start = 1.
describe table iattachment lines ipacking_list-body_num.
ipacking_list-doc_type   = p_format.
ipacking_list-obj_descr = p_attdescription.
ipacking_list-obj_name   = p_filename.
ipacking_list-doc_size   = ipacking_list-body_num * 255.
append ipacking_list.
* Add the recipients email address
clear ireceivers. refresh ireceivers.
ireceivers-receiver = p_email.
ireceivers-rec_type = 'U'.
ireceivers-com_type = 'INT'.
ireceivers-notif_del = 'X'.
ireceivers-notif_ndel = 'X'.
append ireceivers.
call function 'SO_DOCUMENT_SEND_API1'
       exporting
            document_data              = xdocdata
            put_in_outbox              = 'X'
            commit_work                = 'X'
       tables
            packing_list               = ipacking_list
            contents_bin               = iattachment
            contents_txt               = imessage
            receivers                  = ireceivers
       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.
endform.
Regards,
Rich Heilman

Sending a formatted Excel sheet as an attachment in a mail.

Hi ,
I have been using following code to to send formatted excel sheet as attachment in email.
in the below code I want to change the format of cell from Bold to Underline.
I have replaced Bold with Underline for below code but it is not working can anyone suggest on this.
Department
r_cell = l_document->create_simple_element( name = 'Cell' parent = r_row ).
r_cell->set_attribute_ns( name = 'StyleID' prefix = 'ss' value = 'Header' ).
r_data = l_document->create_simple_element( name = 'Data' value = 'MATNR' parent = r_cell ).
r_data->set_attribute_ns( name = 'Type' prefix = 'ss' value = 'String' ).
r_format->set_attribute_ns( name = 'Bold' prefix = 'ss' value = '1' ).
Creating a ixml Factory
l_ixml = cl_ixml=>create( ).
Creating the DOM Object Model
l_document = l_ixml->create_document( ).
Create Root Node 'Workbook'
l_element_root = l_document->create_simple_element( name = 'Workbook' parent = l_document ). l_element_root->set_attribute( name = 'xmlns' value = 'urn:schemas-microsoft-com:office:spreadsheet' ).   ns_attribute = l_document->create_namespace_decl( name = 'ss' prefix = 'xmlns' uri = 'urn:schemas-microsoft-com:office:spreadsheet' ). l_element_root->set_attribute_node( ns_attribute ).   ns_attribute = l_document->create_namespace_decl( name = 'x' prefix = 'xmlns' uri = 'urn:schemas-microsoft-com:office:excel' ). l_element_root->set_attribute_node( ns_attribute ).
Create node for document properties.
r_element_properties = l_document->create_simple_element( name = 'TEST_REPORT' parent = l_element_root ). l_value = sy-uname. l_document->create_simple_element( name = 'Author' value = l_value parent = r_element_properties ).
Styles
r_styles = l_document->create_simple_element( name = 'Styles' parent = l_element_root ).
Style for Header
r_style = l_document->create_simple_element( name = 'Style'   parent = r_styles ). r_style->set_attribute_ns( name = 'ID' prefix = 'ss' value = 'Header' ).   r_format = l_document->create_simple_element( name = 'Font' parent = r_style ).
Worksheet
r_worksheet = l_document->create_simple_element( name = 'Worksheet' parent = l_element_root ). r_worksheet->set_attribute_ns( name = 'Name' prefix = 'ss' value = 'PO Details' ).
Table
r_table = l_document->create_simple_element( name = 'Table' parent = r_worksheet ). r_table->set_attribute_ns( name = 'FullColumns' prefix = 'x' value = '1' ). r_table->set_attribute_ns( name = 'FullRows'     prefix = 'x' value = '1' ).
Column Formatting
r_column = l_document->create_simple_element( name = 'Column' parent = r_table ). r_column->set_attribute_ns( name = 'Width' prefix = 'ss' value = '70' ).   r_column = l_document->create_simple_element( name = 'Column' parent = r_table ). r_column->set_attribute_ns( name = 'Width' prefix = 'ss' value = '70' ).   r_column = l_document->create_simple_element( name = 'Column' parent = r_table ). r_column->set_attribute_ns( name = 'Width' prefix = 'ss' value = '70' ).   r_column = l_document->create_simple_element( name = 'Column' parent = r_table ). r_column->set_attribute_ns( name = 'Width' prefix = 'ss' value = '70' ).   r_column = l_document->create_simple_element( name = 'Column' parent = r_table ). r_column->set_attribute_ns( name = 'Width' prefix = 'ss' value = '70' ).
Blank Row
r_row = l_document->create_simple_element( name = 'Row' parent = r_table ).
Column Headers Row
r_row = l_document->create_simple_element( name = 'Row' parent = r_table ). r_row->set_attribute_ns( name = 'AutoFitHeight' prefix = 'ss' value = '1' ).
Sr. No.
r_cell = l_document->create_simple_element( name = 'Cell' parent = r_row ). r_cell->set_attribute_ns( name = 'StyleID' prefix = 'ss' value = 'Header' ). r_data = l_document->create_simple_element( name = 'Data' value = 'EBELN' parent = r_cell ). r_data->set_attribute_ns( name = 'Type' prefix = 'ss' value = 'String' ).
User Name
r_cell = l_document->create_simple_element( name = 'Cell' parent = r_row ). r_cell->set_attribute_ns( name = 'StyleID' prefix = 'ss' value = 'Header' ). r_data = l_document->create_simple_element( name = 'Data' value = 'EBELP' parent = r_cell ). r_data->set_attribute_ns( name = 'Type' prefix = 'ss' value = 'String' ).
Full Name
r_cell = l_document->create_simple_element( name = 'Cell' parent = r_row ). r_cell->set_attribute_ns( name = 'StyleID' prefix = 'ss' value = 'Header' ). r_data = l_document->create_simple_element( name = 'Data' value = 'AEDAT' parent = r_cell ). r_data->set_attribute_ns( name = 'Type' prefix = 'ss' value = 'String' ).
Department
r_cell = l_document->create_simple_element( name = 'Cell' parent = r_row ). r_cell->set_attribute_ns( name = 'StyleID' prefix = 'ss' value = 'Header' ). r_data = l_document->create_simple_element( name = 'Data' value = 'MATNR' parent = r_cell ). r_data->set_attribute_ns( name = 'Type' prefix = 'ss' value = 'String' ). r_format->set_attribute_ns( name = 'Bold' prefix = 'ss' value = '1' ).   r_format = l_document->create_simple_element( name = 'Interior' parent = r_style ). r_format->set_attribute_ns( name = 'Color'   prefix = 'ss' value = '#C0C0C0' ). r_format->set_attribute_ns( name = 'Pattern' prefix = 'ss' value = 'Solid' ).   r_format = l_document->create_simple_element( name = 'Alignment' parent = r_style ). r_format->set_attribute_ns( name = 'Vertical' prefix = 'ss' value = 'Center' ). r_format->set_attribute_ns( name = 'WrapText' prefix = 'ss' value = '1' ).
Data Table
LOOP AT it_ekpo INTO wa_ekpo.     r_row = l_document->create_simple_element( name = 'Row' parent = r_table ).
Sr. No.
   r_cell = l_document->create_simple_element( name = 'Cell' parent = r_row ).
   r_cell->set_attribute_ns( name = 'StyleID' prefix = 'ss' value = 'Data' ).
   l_value = sy-tabix.
   CONDENSE l_value NO-GAPS.
   r_data = l_document->create_simple_element( name = 'Data' value = l_value   parent = r_cell ).           " Data
   r_data->set_attribute_ns( name = 'Type' prefix = 'ss' value = 'Number' ).                               " Cell format
EBELN
    r_cell = l_document->create_simple_element( name = 'Cell' parent = r_row ).    r_cell->set_attribute_ns( name = 'StyleID' prefix = 'ss' value = 'Data' ).    l_value = wa_ekpo-ebeln.    r_data = l_document->create_simple_element( name = 'Data' value = l_value   parent = r_cell ).           " Data    r_data->set_attribute_ns( name = 'Type' prefix = 'ss' value = 'String' ).                               " Cell format
EBELP
    r_cell = l_document->create_simple_element( name = 'Cell' parent = r_row ).    r_cell->set_attribute_ns( name = 'StyleID' prefix = 'ss' value = 'Data' ).    l_value = wa_ekpo-ebelp.    r_data = l_document->create_simple_element( name = 'Data' value = l_value   parent = r_cell ).           " Data    r_data->set_attribute_ns( name = 'Type' prefix = 'ss' value = 'String' ).                               " Cell format
AEDAT
    r_cell = l_document->create_simple_element( name = 'Cell' parent = r_row ).    r_cell->set_attribute_ns( name = 'StyleID' prefix = 'ss' value = 'Data' ).    l_value = wa_ekpo-aedat.    r_data = l_document->create_simple_element( name = 'Data' value = l_value   parent = r_cell ).           " Data    r_data->set_attribute_ns( name = 'Type' prefix = 'ss' value = 'String' ).                               " Cell format
MATNR
    r_cell = l_document->create_simple_element( name = 'Cell' parent = r_row ).    r_cell->set_attribute_ns( name = 'StyleID' prefix = 'ss' value = 'Data' ).    l_value = wa_ekpo-matnr.    r_data = l_document->create_simple_element( name = 'Data' value = l_value   parent = r_cell ).          " Data    r_data->set_attribute_ns( name = 'Type' prefix = 'ss' value = 'String' ).                              " Cell format   ENDLOOP.
Creating a Stream Factory
l_streamfactory = l_ixml->create_stream_factory( ).
Connect Internal XML Table to Stream Factory
l_ostream = l_streamfactory->create_ostream_itable( table = l_xml_table ).
Rendering the Document
l_renderer = l_ixml->create_renderer( ostream = l_ostream document = l_document ). l_rc = l_renderer->render( ).
Saving the XML Document
l_xml_size = l_ostream->get_num_written_raw( ).
Before sending the mail,
LOOP AT l_xml_table INTO wa_xml.
    CLEAR objbin.
    objbin-line = wa_xml-data.
    APPEND objbin to BINARY_CONTENT.
ENDLOOP.
Here, objbin is of type SOLIX and BINARY_CONTENT is of type SOLIX_TAB.
Now, call the method,
CALL METHOD DOCUMENT->ADD_ATTACHMENT
        EXPORTING I_ATTACHMENT_TYPE = 'XLS'
                   I_ATTACHMENT_SUBJECT = 'My attachment'
                   I_ATT_CONTENT_HEX    = BINARY_CONTENT   .

Try this..
r_format->set_attribute_ns( name = 'Underline' prefix = 'ss' value = 'Single' ).

How to convert an excel sheet as pdf and sent mail?

Hi,
I have to open an excel file from report and display a value in a cell, based on that value in excel, macros will automatically trigger and the remaining data will fill in excel sheet.
This sheet i need to convert as pdf and sent as attachment to mail.
Regards,
Shree

Hi,
I know how to do with word documents using OLE. But i dont know how to work with Excel sheets.
I have worked on word documents like displaying data in word document from SAP and saving it into local system.
But here my requirement is i need to pass pernr to a cell in an Excel sheet, based on pernr in excel some macros will trigger and fill the details. After that, the filled sheet i need to convert as pdf and sent as mail.
Regards,
Shree.

How to convert sapscript to excel & send it as attachment in mail?

Hi,
I have a requirement to send the customer statement in excel format with all open items to the customer email address. I am creating the customer statement via sapscript . Then I need to convert that into excel. I tried using CONVERT_OTF. But alignment is not coming properly. I have logo also in the script. That also I want in the excel . When I send the mail, the data is not showing correctly
Has anyone worked in similar scenario? Please tell me what are the ways for doing this?
Thanks in advance,
Jissa.

HI,
For sending script output through email
Please check this code it may help u.
FORM send_mail USING p_y16m_rcp_par STRUCTURE y16m_rcp_par.
Have a subject for the mail
g_s_document_data-obj_name = text-t02.
g_s_document_data-obj_descr = text-t03.
Fill receiver information
g_s_receivers-rec_type = p_y16m_rcp_par-rec_type.
g_s_receivers-rec_id = p_y16m_rcp_par-rec_id.
g_s_receivers-express = 'X'.
APPEND g_s_receivers TO g_t_receivers.
Call function to send mail
CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'
EXPORTING
document_data = g_s_document_data
document_type = 'RAW'
PUT_IN_OUTBOX = ' '
IMPORTING
SENT_TO_ALL =
NEW_OBJECT_ID =
TABLES
OBJECT_HEADER =
object_content = g_t_object_content
CONTENTS_HEX =
OBJECT_PARA =
OBJECT_PARB =
receivers = g_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
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. " SEND_MAIL
Regards,
Pavan.

Regarding Excel Sheet

Thanks for the immediate response for my queries. The answers are very useful.
As per our requirement, I need to display excel sheet with values on the front panel itself so that customer can view the values there itself.
How can i do this in LabView?
Thanks in Advance
Regards
Malleswari

Are you trying to save the data in excel and display that excel sheet?
If yes, you can do that using Report generation toolkit.

Need to send email with excel sheet as attachment: URGENT

Hi all....i have a requirement where i should extract data from SAP. These datas has to be sent to a mail id entered in the selection screen in excel sheet as an attachment.Can you suggest me any function module that meets the requirement...
For kind information...there is only one selection field for entering the mail id.
Thanks in advance
Nanda

Hi all....i have a requirement where i should extract data from SAP. These datas has to be sent to a mail id entered in the selection screen in excel sheet as an attachment.Can you suggest me any function module that meets the requirement...
For kind information...there is only one selection field for entering the mail id.
Thanks in advance
Nanda

Excel file as attachment in mail

Hi Friends,
I have a requirement of sending th Excel sheet through email attachment.
I am getting the records into the internal table,but after sending the Email and receiving it the first line in the excel sheet is a blank line.
Can you please provide me a solution with source code.

Hi Pooja,
check thios code...hope it helps
*& Report ZWBSAP_EMAIL *
*Send an email via SAP Workplace
*Select files from SAP server
*Note:
Uses custom table zlookup to pick up a group of email addresses to send to
if more than one is needed.
Please note some hard coding.
REPORT zsap_email MESSAGE-ID z001.
TABLES: rlgrap, btcxpm, zlookup.
DATA:
v_zcode(3) TYPE c,
svrname LIKE zlookup-zdesc,
wa_error(80) TYPE c,
global_filemask_all(80).
DATA: t_soud LIKE soud.
DATA: p_infolder LIKE sofdk.
DATA: p_outfolder LIKE sofdk.
DATA: object_hd_display LIKE sood2.
DATA: object_id LIKE soodk.
DATA: document LIKE sood4.
DATA: header_data LIKE sood2.
DATA: link_folder_id LIKE soodk.
DATA: folder_selections LIKE sofds.
DATA: folder_list LIKE soxli OCCURS 0 WITH HEADER LINE.
DATA: receivers LIKE soos1 OCCURS 0 WITH HEADER LINE.
DATA: objcont LIKE soli OCCURS 0 WITH HEADER LINE.
DATA: objhead LIKE soli OCCURS 0 WITH HEADER LINE.
DATA: object_content LIKE solisti1 OCCURS 0 WITH HEADER LINE.
DATA: object_hd_change LIKE sood1.
DATA: BEGIN OF files OCCURS 0,
line(200) TYPE c,
END OF files.
DATA: listobject LIKE abaplist OCCURS 1 WITH HEADER LINE.
*Email to addresses
SELECTION-SCREEN: BEGIN OF BLOCK bl1 WITH FRAME TITLE text-bl1.
PARAMETERS: p_mailto(240) TYPE c.
SELECTION-SCREEN SKIP 1.
SELECTION-SCREEN COMMENT 10(2) text-001.
*Use zlookup-ztype as group to define multiple email to addresses
SELECT-OPTIONS: s_mailto FOR zlookup-ztype.
SELECTION-SCREEN: END OF BLOCK bl1.
*Subject
SELECTION-SCREEN: BEGIN OF BLOCK bl2 WITH FRAME TITLE text-bl2.
PARAMETERS: p_subj LIKE document-objdes.
SELECTION-SCREEN: END OF BLOCK bl2.
*Body
SELECTION-SCREEN: BEGIN OF BLOCK bl3 WITH FRAME TITLE text-bl3.
PARAMETERS: p_body1 LIKE solisti1-line LOWER CASE.
PARAMETERS: p_body2 LIKE solisti1-line LOWER CASE.
PARAMETERS: p_body3 LIKE solisti1-line LOWER CASE.
PARAMETERS: p_body4 LIKE solisti1-line LOWER CASE.
PARAMETERS: p_body5 LIKE solisti1-line LOWER CASE.
PARAMETERS: p_body6 LIKE solisti1-line LOWER CASE.
SELECTION-SCREEN: END OF BLOCK bl3.
*Attachments
SELECTION-SCREEN: BEGIN OF BLOCK bl4 WITH FRAME TITLE text-bl4.
PARAMETERS: p_fname1 LIKE files-line.
PARAMETERS: p_fname2 LIKE files-line.
PARAMETERS: p_fname3 LIKE files-line.
PARAMETERS: p_fname4 LIKE files-line.
PARAMETERS: p_fname5 LIKE files-line.
PARAMETERS: p_fname6 LIKE files-line.
SELECTION-SCREEN: END OF BLOCK bl4.
AT SELECTION-SCREEN.
PERFORM chk_selection.
IF NOT wa_error IS INITIAL.
MESSAGE e001 WITH wa_error.
ENDIF.
START-OF-SELECTION.
END-OF-SELECTION.
PERFORM send_email.
FORM chk_selection *
FORM chk_selection.
CLEAR wa_error.
*Loop only once ???
*If more checkings to be done.
*Think about it and if not clear.
*Let it sink in for a couple of minutes.
*Still doesn't make sence? Go home and sleep on it.
DO 1 TIMES.
*Check Email to
IF p_mailto IS INITIAL
AND s_mailto IS INITIAL.
wa_error = 'Invalid or no EMAIL TO selection'.
EXIT.
ENDIF.
ENDDO.
ENDFORM.
*& Form send_email
text
--> p1 text
<-- p2 text
FORM send_email.
PERFORM get_folder_info.
PERFORM fill_body.
PERFORM ins_new_object.
PERFORM crt_attachments.
PERFORM fill_receivers_info.
PERFORM snd_email.
ENDFORM. " send_email
FORM Get_folder_info *
FORM get_folder_info.
CLEAR t_soud.
*Small so should be quick.
SELECT * FROM soud
INTO t_soud
WHERE sapnam = sy-uname.
p_infolder-foltp = 'FOL'.
p_infolder-folyr = t_soud-inbyr. "inbox
p_infolder-folno = t_soud-inbno.
p_outfolder-foltp = 'FOL'.
p_outfolder-folyr = t_soud-outyr. "outbox
p_outfolder-folno = t_soud-outno.
ENDSELECT.
ENDFORM.
FORM fill_body *
FORM fill_body.
object_content-line = p_body1.
APPEND object_content.
object_content-line = p_body2.
APPEND object_content.
object_content-line = p_body3.
APPEND object_content.
object_content-line = p_body4.
APPEND object_content.
object_content-line = p_body5.
APPEND object_content.
object_content-line = p_body6.
APPEND object_content.
ENDFORM.
FORM ins_new_object *
FORM ins_new_object.
object_hd_change-objnam = 'Notes'.
object_hd_change-objdes = p_subj.
CALL FUNCTION 'SO_OBJECT_INSERT'
EXPORTING
folder_id = p_outfolder
object_hd_change = object_hd_change
object_type = 'RAW'
owner = sy-uname
IMPORTING
object_hd_display = object_hd_display
object_id = object_id
TABLES
objcont = object_content
objhead = objhead
EXCEPTIONS
active_user_not_exist = 1
communication_failure = 2
component_not_available = 3
dl_name_exist = 4
folder_not_exist = 5
folder_no_authorization = 6
object_type_not_exist = 7
operation_no_authorization = 8
owner_not_exist = 9
parameter_error = 10
substitute_not_active = 11
substitute_not_defined = 12
system_failure = 13
x_error = 14
OTHERS = 15.
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.
FORM crt_attachments *
--> P_SUBJ *
FORM crt_attachments.
document-foltp = p_outfolder-foltp.
document-folyr = p_outfolder-folyr.
document-folno = p_outfolder-folno.
document-objtp = object_id-objtp.
document-objyr = object_id-objyr.
document-objno = object_id-objno.
document-objnam = 'Notes'.
document-objdes = p_subj.
document-okcode = 'CHNG'.
document-file_ext = 'TXT'.
link_folder_id = object_id.
header_data-objla = 'EN'.
header_data-objnam = document-objnam.
header_data-objdes = document-objdes.
header_data-objpri = '5'.
header_data-objsns = 'O'.
header_data-file_ext = 'TXT'.
REFRESH files.
CLEAR files.
IF NOT p_fname1 IS INITIAL.
files-line = p_fname1.
APPEND files.
ENDIF.
IF NOT p_fname2 IS INITIAL.
files-line = p_fname2.
APPEND files.
ENDIF.
IF NOT p_fname3 IS INITIAL.
files-line = p_fname3.
APPEND files.
ENDIF.
IF NOT p_fname4 IS INITIAL.
files-line = p_fname4.
APPEND files.
ENDIF.
IF NOT p_fname5 IS INITIAL.
files-line = p_fname5.
APPEND files.
ENDIF.
IF NOT p_fname6 IS INITIAL.
files-line = p_fname6.
APPEND files.
ENDIF.
IF NOT files[] IS INITIAL.
CALL FUNCTION 'SO_DOCUMENT_REPOSITORY_MANAGER'
EXPORTING
method = 'ATTCREATEFROMPC'
TABLES
files = files
CHANGING
document = document
header_data = header_data.
IF sy-subrc = 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDIF.
ENDFORM.
FORM fill_receivers_info *
FORM fill_receivers_info.
DATA: BEGIN OF reclist OCCURS 0,
rec LIKE receivers-recextnam,
END OF reclist.
*Build reclist
REFRESH reclist.
IF NOT p_mailto IS INITIAL.
reclist-rec = p_mailto.
APPEND reclist.
ENDIF.
IF NOT s_mailto IS INITIAL.
SELECT zdesc
INTO reclist-rec
FROM zlookup
WHERE ztype IN s_mailto.
APPEND reclist.
ENDSELECT.
ENDIF.
REFRESH receivers.
LOOP AT reclist.
folder_selections-folnam = 'INBOX'.
CALL FUNCTION 'SO_FOLDER_LIST_READ'
EXPORTING
folder_selections = folder_selections
owner = sy-uname
region = 'P'
TABLES
folder_list = folder_list
EXCEPTIONS
component_not_available = 1
operation_no_authorization = 2
owner_not_exist = 3
parameter_error = 4
x_error = 5
OTHERS = 6.
IF sy-subrc = 0.
CLEAR receivers.
receivers-rcdat = sy-datum.
receivers-rctim = sy-uzeit.
receivers-recnam = reclist-rec.
receivers-recno = folder_list-parno.
receivers-rectp = folder_list-partp.
receivers-recyr = folder_list-paryr.
receivers-sndtp = folder_list-partp.
receivers-sndyr = folder_list-paryr.
receivers-sndno = folder_list-parno.
receivers-sndnam = sy-uname.
receivers-sndpri = '1'.
receivers-msgid = 'SO'.
receivers-msgno = '619'.
receivers-deliver = 'X'.
receivers-not_deli = 'X'.
receivers-read = 'X'.
receivers-mailstatus = 'E'.
*receivers-ADR_NAME
receivers-resend = ' '.
receivers-sortfield = ' '. "'USER WF_BATCH INDIGO BATCH'.
receivers-sortclass = '5'.
APPEND receivers.
ELSE.
CLEAR receivers.
receivers-sel = 'X'.
receivers-recesc = 'U'.
receivers-recnam = 'U-'.
receivers-recextnam = reclist-rec.
receivers-deliver = 'X'.
receivers-not_deli = 'X'.
receivers-read = 'X'.
receivers-mailstatus = 'E'.
receivers-adr_name = reclist-rec.
receivers-sortfield = reclist-rec.
receivers-sortclass = '5'.
APPEND receivers.
ENDIF.
ENDLOOP.
ENDFORM.
FORM snd_email *
FORM snd_email.
CALL FUNCTION 'SO_OBJECT_SEND'
EXPORTING
folder_id = p_outfolder
object_id = object_id
outbox_flag = 'X'
owner = sy-uname
check_send_authority = 'X'
originator_type = 'J'
link_folder_id = link_folder_id
TABLES
objcont = object_content
receivers = receivers
EXCEPTIONS
active_user_not_exist = 1
communication_failure = 2
component_not_available = 3
folder_not_exist = 4
folder_no_authorization = 5
forwarder_not_exist = 6
note_not_exist = 7
object_not_exist = 8
object_not_sent = 9
object_no_authorization = 10
object_type_not_exist = 11
operation_no_authorization = 12
owner_not_exist = 13
parameter_error = 14
substitute_not_active = 15
substitute_not_defined = 16
system_failure = 17
too_much_receivers = 18
user_not_exist = 19
originator_not_exist = 20
x_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.
ENDFORM.
Thanks
Nayan

Excel-sheet attachment having encoding issues

Hi Everyone,
I have an abap report that upon execution, needs to send pricing alerts to the customer through email. The details of the pricing order are there in the excel sheet that is attached to the email sent to the customer. The excel sheet that is received at the other end, shows the error message "The file is corrupt and cannot be opened", if the excel file is generated from systems using SolarisX86 OS. I suppose this is related to the encoding format of the excel sheet getting generated. Please assist me as to how can I solve this problem. Thanks for your help.

Can you provide any coding?
Maybe this is helpful to you:
http://wiki.sdn.sap.com/wiki/display/ABAP/Excelfiles-CSVformat

To Mak the headings Bold in Excel sheet.

Hi All,
     I am sending a mail to SAP inbox with an excel Sheet as an attachment.
     I am creating the Excel sheet Dynamically from the internal table,
     Now the Problem is the Headings i am putting in each colum are mixed with the data of the colums,
     So I have to make the headings<b> BOLD</b> or atleast I have to Differentiate them with the rest of the Data,
     Please Help me out in this,
Thanx,   Girish.

Hi Girish,
             Check out the example.gs_font is marked in bold
Code Part B.1 Data declarations
REPORT zole_tutor_example_ms_word .
*--Include for OLE-enabling definitions
INCLUDE ole2incl .
*--Global variables
*--Variables to hold OLE object and entity handles
DATA gs_word TYPE ole2_object . "OLE object handle
DATA gs_documents TYPE ole2_object . "Documents
DATA gs_actdoc TYPE ole2_object . "Active document
DATA gs_application TYPE ole2_object . "Application
DATA gs_options TYPE ole2_object . "Application options
DATA gs_actwin TYPE ole2_object . "Active window
DATA gs_actpan TYPE ole2_object . "Active pane
DATA gs_view TYPE ole2_object . "View
DATA gs_selection TYPE ole2_object . "Selection
<b>DATA gs_font TYPE ole2_object . "Font</b>
DATA gs_parformat TYPE ole2_object . "Paragraph format
DATA gs_tables TYPE ole2_object . "Tables
DATA gs_range TYPE ole2_object . "Range handle for various ranges
DATA gs_table TYPE ole2_object . "One table
DATA gs_table_border TYPE ole2_object . "Table border
DATA gs_cell TYPE ole2_object . "One cell of a table
DATA gs_paragraph TYPE ole2_object . "Paragraph
DATA gv_pos(5) TYPE n . "Position information for table
Step 2   Creating the OLE object and get main entities to handle variables.
START-OF-SELECTION .
*--Creating OLE object handle variable
CREATE OBJECT gs_word 'WORD.APPLICATION' .
IF sy-subrc NE 0 .
MESSAGE s000(su) WITH 'Error while creating OLE object!'.
LEAVE PROGRAM .
ENDIF .
*--Setting object's visibility property
SET PROPERTY OF gs_word 'Visible' = '1' .
*--Opening a new document
GET PROPERTY OF gs_word 'Documents' = gs_documents .
CALL METHOD OF gs_documents 'Add' .
*--Getting active document handle
GET PROPERTY OF gs_word 'ActiveDocument' = gs_actdoc .
*--Getting applications handle
GET PROPERTY OF gs_actdoc 'Application' = gs_application .
Code Part B.2 Creating the OLE object
Step 3   Setting the measurement unit to CM.
Code Part B.3 Setting measurement unit
*--Setting the measurement unit
GET PROPERTY OF gs_application 'Options' = gs_options .
SET PROPERTY OF gs_options 'MeasurementUnit' = '1' . "CM
Step 4   Some header text.
Code Part B.4 Setting header content
*--Getting handle for the selection which is here the character at the
*--cursor position
GET PROPERTY OF gs_application 'Selection' = gs_selection .
GET PROPERTY OF gs_selection 'Font' = gs_font .
GET PROPERTY OF gs_selection 'ParagraphFormat' = gs_parformat .
*--Setting font attributes
SET PROPERTY OF gs_font 'Name' = 'Arial' .
SET PROPERTY OF gs_font 'Size' = '10' .
SET PROPERTY OF gs_font 'Bold' = '0' . "Not bold
SET PROPERTY OF gs_font 'Italic' = '1' . "Italic
SET PROPERTY OF gs_font 'Underline' = '0' . "Not underlined
*--Setting paragraph format attribute
SET PROPERTY OF gs_parformat 'Alignment' = '2' . "Right-justified
CALL METHOD OF gs_selection 'TypeText'
EXPORTING
#1 = 'This is an OLE example!'.
*--Setting the view to the main document again
SET PROPERTY OF gs_view 'SeekView' = '0' . "Main document view
Step 5   Writing the title.
Code Part B.5 Writing the title
*--Reseting font attributes for the title
SET PROPERTY OF gs_font 'Name' = 'Times New Roman' .
SET PROPERTY OF gs_font 'Size' = '16' .
SET PROPERTY OF gs_font 'Bold' = '1' . "Bold
SET PROPERTY OF gs_font 'Italic' = '0' . "Not Italic
SET PROPERTY OF gs_font 'Underline' = '0' . "Not underlined
*--Setting paragraph format attribute
SET PROPERTY OF gs_parformat 'Alignment' = '1' . "Centered
CALL METHOD OF gs_selection 'TypeText'
EXPORTING
#1 = text-000.
*--Advancing cursor to the new line
CALL METHOD OF gs_selection 'TypeParagraph' .
Step 6   Writing some text.
Code Part B.6 Writing some text
*--Reseting font attributes for ordinary text
SET PROPERTY OF gs_font 'Name' = 'Times New Roman' .
SET PROPERTY OF gs_font 'Size' = '12' .
SET PROPERTY OF gs_font 'Bold' = '0' . "Not bold
SET PROPERTY OF gs_font 'Italic' = '0' . "Not Italic
SET PROPERTY OF gs_font 'Underline' = '0' . "Not underlined
Please reward if useful.

Error while sending excel sheet as attachment to Mail Receiver

Hi everyone,
I am facing the below error when I am trying to send data to Mail receiver adapter. The attachment is excel sheet.
Delivery of the message to the application using connection Mail_http://sap.com/xi/XI/System failed, due to: com.sap.aii.af.ra.ms.api.RecoverableException: Object not found in lookup of MessageTransformBean.: com.sap.engine.services.jndi.persistent.exceptions.NameNotFoundException: Object not found in lookup of MessageTransformBean..
I don't understand where the problem is. This has been running since long time and last month we have changed our web dispatcher details. I hope everything is fine. But not sure the root cause for this issue.
Please help me in resolving this.
Thank you.
Regards
Bhanu T.

Check if this helps: MessageTransformBean module
Confirm that you have configured the MessagetransformationBean properly.
Are you trying to convert some payload into Excel and send it as an attachment in the Mail CC? If yes, then I hope that you have included the correct Content_type value.
Check this for more info on Content_type: /people/community.user/blog/2006/09/08/email-report-as-attachment-excelword
Regards,
Abhishek.

ALV Report to be send as a mail as an Excel sheet attachment

Hi,
         I have designed a Report that has the mailing functionality by attaching the ALV report output in the Excel sheet.
1. I am using SUBMITT PROGRAM....EXPORTING MEMORY ID.
          Here I am retrieving the required ALV report.
2. I am passing of ALV Report output to internal table, say XLS_TAB using FM LIST_TO_ASCI.
I can see the data in the internal table. But the problem is when the report output has many columns (i.e) greater than 255 Char, the columns get truncated(data is missed).
So, how to prevent the missing of the columns. I don't want split each record into new line. Because, when it is passed to Excel, each record should be in a single line without missing any column.
               If you say the FM can be valid upto 255 Char, what can be the alternative solution?
Immediate response is appreciated.
Thanks for your help.
Sravan.

Hi deepan
DESCRIBE TABLE objtxt LINES tab_lines.
READ TABLE objtxt INDEX tab_lines.
docdata-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ) . <---- make it 1024 instead of 255
CLEAR objpack-transf_bin.
objpack-head_start = 1.
objpack-head_num = 0.
objpack-body_start = 1.
objpack-body_num = gv_tab_lines.
objpack-doc_type = RAW
APPEND objpack
then looping contents of the final table to OBJBIN1.
DESCRIBE TABLE objbin1 LINES tab_lines.
objpack-doc_size = tab_lines * 255 .    <-------- make it has 1024 instead of 255
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num = 1.
objpack-body_start = 1.
objpack-body_num = tab_lines.
objpack-doc_type = .XLS
APPEND objpack.
Regards
vijay

Excel sheet attached mail when opened shows a error message

hi all,
    i have created a report for sending the output to the sap inbox as excel attachment . my problem is ;it always shows an error message when ever the attachment is opened.
    I have used the function 'SO_NEW_DOCUMENT_ATT_SEND_API1' and in the table parameters,   TABLES
                               packing_list   =
passing the .XLS format and excel sheet name.
   please provide me a solution to stop the display of this error message having the contents 'this file is not in a recognizable format'.
thanks and regards\
Thomas
Coding :
FORM sub_output_timeadm USING lv_usrid TYPE gty_timhours-usrid.
DATA : lv_emp1(10) TYPE c,
        lv_ename(40) TYPE c,
          lv_hour(10) ,
          lv_lgart(15),
          lv_scc(10),
          lv_rcc(10),
          lv_order(15),
          lv_ordtext(40),
          lv_act(10).
DATA : lwa_content TYPE solisti1.
DATA : lit_objpack LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE,"#EC *
         lit_objbin LIKE solisti1   OCCURS 0 WITH HEADER LINE,
         lit_objtxt LIKE solisti1   OCCURS 2 WITH HEADER LINE,
         lit_reclist LIKE somlreci1 OCCURS 2 WITH HEADER LINE,
         lwa_docdat LIKE sodocchgi1 OCCURS 1 WITH HEADER LINE,
         lv_tab_lines LIKE sy-tabix.
DATA : lv_file LIKE rlgrap-filename,
         lv_line LIKE solisti1-line,
         lv_vt TYPE c VALUE cl_abap_char_utilities=>horizontal_tab.
DATA : lwa_receivers   TYPE somlreci1 .
*Object text details
PERFORM sub_objtxt_data TABLES lit_objtxt
                                 lit_objpack
                          USING lv_tab_lines.
*Document data details
PERFORM sub_document_data TABLES lwa_docdat
                                   lit_objtxt
                            USING lv_file
                                   lv_tab_lines.
PERFORM sub_topofpage TABLES lit_objbin
                        USING lv_line
                               lv_vt.
PERFORM sub_fill_columnhead TABLES lit_objbin.
LOOP AT git_content INTO lwa_content.
    lv_emp1 = lwa_content+2(10).
    CONDENSE lv_emp1.
    lv_ename = lwa_content+15(40).
    SHIFT lv_ename LEFT.
*    CONDENSE lv_ename.
    IF lv_ename+0(7) = text-024.
      WRITE lv_ename TO lv_ename RIGHT-JUSTIFIED.
    ELSE.
      CONDENSE lv_ename.
    ENDIF.
    lv_hour = lwa_content+58(10).
    CONDENSE lv_hour.
    lv_lgart = lwa_content+70(15).
    CONDENSE lv_lgart.
    lv_scc = lwa_content+90(10).
    CONDENSE lv_scc.
    lv_rcc = lwa_content+103(10).
    CONDENSE lv_rcc.
    lv_order = lwa_content+115(15).
    CONDENSE lv_order.
    lv_ordtext = lwa_content+132(40).
    CONDENSE lv_ordtext.
    lv_act = lwa_content+174(10).
    CONDENSE lv_act.
    CONCATENATE lv_emp1
                lv_ename
                lv_hour
                lv_lgart
                lv_scc
                lv_rcc
                lv_order
                lv_ordtext
                lv_act INTO lv_line SEPARATED BY lv_vt.
    CONCATENATE gc_add lv_line lv_vt INTO lv_line.
    APPEND lv_line TO lit_objbin.
    CLEAR :lv_emp1,
               lv_ename,
               lv_hour,
               lv_lgart,
               lv_scc,
               lv_rcc,
               lv_order,
               lv_ordtext,
               lv_act ,lv_line,lwa_content.
ENDLOOP.
DESCRIBE TABLE lit_objbin LINES lv_tab_lines.
lv_tab_lines = lv_tab_lines + 1.
* Object pack details
PERFORM sub_objpack_data TABLES lit_objbin
                                  lit_objpack
                           USING lv_tab_lines
                                  lv_file.
*Receiver list details
PERFORM sub_reclist_timeadm TABLES lit_reclist
                              USING lv_usrid.
READ TABLE lit_reclist INDEX 1.
IF sy-subrc = 0.
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
      EXPORTING
        document_data              = lwa_docdat
        put_in_outbox              = gc_x
        commit_work                = gc_x
      TABLES
        packing_list               = lit_objpack
        contents_bin               = lit_objbin
        contents_txt               = lit_objtxt
        receivers                  = lit_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 i014.
*    WHEN 1.
*      MESSAGE i016.
*    WHEN 2.
*      MESSAGE i016.
*    WHEN 4.
*      MESSAGE i015.
*    WHEN OTHERS.
*      MESSAGE i017.
    ENDCASE.
ENDIF.
REFRESH git_content.
CLEAR gwa_content.
FORM sub_objtxt_data TABLES xt_objtxt STRUCTURE solisti1
                            xt_objpack STRUCTURE sopcklsti1
                     USING xv_tab_lines .
DATA : lv_zdat(10) TYPE c,
         lv_zdat2(10) TYPE c.
CONSTANTS: lc_hiphen(1) TYPE c VALUE '-'.
* write sy-datum to lv_zdat mm/dd/yyyy.
* concatenate text-022 lv_zdat into xt_objtxt separated by space.
* APPEND xt_objtxt.clear xt_objtxt.
WRITE pnpbegda TO lv_zdat MM/DD/YYYY.
WRITE pnpendda TO lv_zdat2 MM/DD/YYYY.
CONCATENATE text-080
              lv_zdat
              lc_hiphen
              lv_zdat2   INTO xt_objtxt SEPARATED BY space.
APPEND xt_objtxt.CLEAR xt_objtxt.
xt_objtxt = text-067.
APPEND xt_objtxt.CLEAR xt_objtxt.
CLEAR: lv_zdat,
         lv_zdat2.
DESCRIBE TABLE xt_objtxt LINES xv_tab_lines.
READ TABLE xt_objtxt INDEX xv_tab_lines.
CLEAR xt_objpack-transf_bin.
xt_objpack-head_start = 1.
xt_objpack-head_num   = 0.
xt_objpack-body_start = 1.
xt_objpack-body_num   = xv_tab_lines.
xt_objpack-doc_type   = gc_raw.
APPEND xt_objpack.
CLEAR xt_objpack.
ENDFORM.                    " sub_objtxt_data
*&      Form sub_document_data
*To fix the size of the document
*      -->XT_DOCDAT
*      -->XT_OBJTXT
*      -->XV_LV_FILE
*      -->XV_TAB_LINES
FORM sub_document_data TABLES xt_docdat STRUCTURE sodocchgi1
                              xt_objtxt STRUCTURE solisti1
                       USING xv_lv_file
                              xv_tab_lines.                 "#EC *
DATA : lv_subject     TYPE string,
         lv_open        TYPE c VALUE '(',
         lv_close       TYPE c VALUE ')',
         lv_slash       TYPE c VALUE '/'.
xt_docdat-obj_name = xv_lv_file.
CONCATENATE lv_open sy-sysid
              lv_slash sy-mandt lv_close INTO lv_subject.
xt_docdat-obj_descr = lv_subject.
xt_docdat-doc_size
      = ( xv_tab_lines - 1 ) * 255 + STRLEN( xt_objtxt ).
ENDFORM.                    " sub_document_data
*&      Form sub_topofpage
*       text
*      -->P_LIT_OBJBIN text
FORM sub_topofpage TABLES xt_objbin STRUCTURE solisti1
                   USING xv_lv_line
                          xv_vt.
DATA: lwa_line TYPE slis_listheader.
LOOP AT git_header INTO lwa_line.
    CONCATENATE lwa_line-key lwa_line-info
                INTO xv_lv_line SEPARATED BY xv_vt.
    CONCATENATE gc_add xv_lv_line xv_vt
                xv_vt     "TAB space
                xv_vt
                xv_vt
                xv_vt
                xv_vt
                xv_vt
*                xv_vt
*                xv_vt
*                xv_vt
*                xv_vt
*                xv_vt
*                xv_vt
*                xv_vt
                INTO xv_lv_line.
    APPEND xv_lv_line TO xt_objbin.
ENDLOOP.
ENDFORM.                    " sub_topofpage
*&      Form sub_fill_columnhead
*       text
* --> p1        text
* <-- p2        text
FORM sub_fill_columnhead TABLES xt_objbin STRUCTURE solisti1.
DATA: lv_line LIKE solisti1-line,
         lv_vt TYPE c VALUE cl_abap_char_utilities=>horizontal_tab,
         lv_zdat(10).
DATA : lv_line1(40),
         lv_line2(10),
         lv_line3(10),
         lv_line4(3),
         lv_line5(40).
lv_line1 = text-008.
WRITE sy-datum TO lv_zdat MM/DD/YYYY.
lv_line2 = lv_zdat.
CONCATENATE lv_vt
              lv_line1
              lv_vt
              lv_vt
              lv_line2
              lv_vt
              lv_vt
              lv_vt
              lv_vt
*              lv_vt
         INTO lv_line.
CONCATENATE gc_add lv_line lv_vt INTO lv_line.
APPEND lv_line TO xt_objbin.
CLEAR : lv_line, lv_line1, lv_line2, lv_zdat.
lv_line1 = text-009.
lv_line2 = text-010.
WRITE pnpbegda TO lv_zdat MM/DD/YYYY.
lv_line3 = lv_zdat.
CLEAR lv_zdat.
lv_line4 = ' - '.
WRITE pnpendda TO lv_zdat MM/DD/YYYY.
lv_line5 = lv_zdat.
CONCATENATE lv_vt
              lv_line1
              lv_vt
              lv_vt
              lv_line2
              lv_vt
              lv_line3
              lv_line4
              lv_line5
              lv_vt
              lv_vt
              lv_vt
              lv_vt
         INTO lv_line.
CONCATENATE gc_add lv_line lv_vt INTO lv_line.
APPEND lv_line TO xt_objbin.
CLEAR : lv_line, lv_line1,
          lv_line2,lv_line3,
          lv_line4, lv_line5, lv_zdat.
CONCATENATE lv_vt
              lv_vt
              lv_vt
              lv_vt
              lv_vt
              lv_vt
              lv_vt
              lv_vt
              lv_vt
         INTO lv_line.
CONCATENATE gc_add lv_line lv_vt INTO lv_line.
APPEND lv_line TO xt_objbin.
CLEAR lv_line.
CONCATENATE text-013
              text-014
              text-015
              text-016
              text-017
              text-018
              text-019
              text-026
              text-020
         INTO lv_line
    SEPARATED BY lv_vt.
CONCATENATE gc_add lv_line
              lv_vt         "TAB space
              INTO lv_line.
APPEND lv_line TO xt_objbin.
ENDFORM.                    " sub_fill_columnhead
*&      Form sub_objpack_data
*To fix the actual document size
*      -->XT_OBJBIN
*      -->XT_OBJPACK
*      -->XV_TAB_LINES
*      -->XV_LV_FILE
FORM sub_objpack_data TABLES xt_objbin STRUCTURE solisti1
                               xt_objpack STRUCTURE sopcklsti1
                        USING xv_tab_lines
                               xv_lv_file.                  "#EC *
DATA : lwa_objpack TYPE sopcklsti1.
lwa_objpack-transf_bin = gc_x.
lwa_objpack-head_start = 1.
lwa_objpack-head_num   = 0.
lwa_objpack-body_start = 1.
lwa_objpack-body_num   = xv_tab_lines.
lwa_objpack-doc_type   = gc_xls.
lwa_objpack-obj_name   = xv_lv_file.
lwa_objpack-obj_descr = gc_descr.
lwa_objpack-doc_size
            = ( xv_tab_lines - 1 ) * 255 + STRLEN( xt_objbin ).
APPEND lwa_objpack TO xt_objpack.
CLEAR lwa_objpack.
ENDFORM.                    " sub_objpack_data
*&      Form sub_reclist_timeadm
*       text
*      -->P_LIT_RECLIST text
*      -->P_LV_USRID text
FORM sub_reclist_timeadm TABLES xt_reclist STRUCTURE somlreci1
                          USING lp_usrid TYPE gty_timhours-usrid."#EC *
*local constant
CONSTANTS :      lc_b TYPE   c VALUE 'B'.
*local workarea.
DATA : lwa_receivers   TYPE somlreci1 ,
         lwa_usrid       TYPE gty_usrid ,
         lwa_docdata     TYPE sodocchgi1.
REFRESH : git_receivers.":, LIT_DOCDATA .
CLEAR : lwa_receivers,lwa_docdata.
IF p_timadm EQ 'X'.
    MOVE: lp_usrid TO lwa_receivers-receiver,
          text-002   TO lwa_receivers-express,
          lc_b       TO lwa_receivers-rec_type.
    APPEND lwa_receivers TO xt_reclist.
ELSEIF p_manger EQ 'X'.
    READ TABLE git_usrid INTO lwa_usrid WITH KEY pernr = gwa_emphours-magpernr
                                                usrty = '0001' BINARY SEARCH.
    IF sy-subrc EQ 0.
      MOVE: lwa_usrid-usrid TO lwa_receivers-receiver,
              text-002       TO lwa_receivers-express,
              lc_b       TO lwa_receivers-rec_type.
      APPEND lwa_receivers TO xt_reclist.
    ENDIF.
    CLEAR : lwa_usrid .
ENDIF.

Hi Tona,
              Please go through the code and cross check....
          REPORT zcyborg_5 NO STANDARD PAGE HEADING.
TABLES : eket.
DATA : p_date TYPE d.
DATA : w_lines TYPE sy-tabix.
TYPES : BEGIN OF types_eket,
            ebeln TYPE eket-ebeln,
            ebelp TYPE eket-ebelp,
            eindt TYPE eket-eindt,
        END OF types_eket.
DATA : t_eket TYPE STANDARD TABLE OF types_eket.
Declaration for ALV display *********************
DATA : w_grid TYPE REF TO cl_gui_alv_grid,
       w_custom_container TYPE REF TO cl_gui_custom_container.
RANGES : r_eindt FOR eket-eindt.
FIELD-SYMBOLS: <fs_eket> TYPE types_eket.
INITIALIZATION.
CALL FUNCTION 'CALCULATE_DATE'
       EXPORTING
            days        = '60-'
            months      = '0'
            start_date = sy-datum
       IMPORTING
            result_date = p_date.
r_eindt-low     = p_date.
r_eindt-high    = sy-datum.
r_eindt-sign    = 'I'.
r_eindt-option = 'BT'.
APPEND r_eindt.
START-OF-SELECTION.
PERFORM get_data.
PERFORM disp_data.
PERFORM email_data.
perform disp_alv.
*&      Form get_data
      text
--> p1        text
<-- p2        text
FORM get_data.
SELECT ebeln
         ebelp
         eindt
         FROM eket
         INTO TABLE t_eket
         WHERE eindt IN r_eindt.
ENDFORM.                    " get_data
*&      Form disp_data
      text
--> p1        text
<-- p2        text
FORM disp_data.
DESCRIBE TABLE t_eket LINES w_lines.
WRITE :/5 'No of rows : ', w_lines.
WRITE :/5 'EBELN', 30 'EBELP', 50 'EINDT'.
SORT t_eket DESCENDING BY eindt.
LOOP AT t_eket ASSIGNING <fs_eket>.
    AT NEW ebeln.
      ULINE.
    ENDAT.
    WRITE : /5 <fs_eket>-ebeln, 30 <fs_eket>-ebelp, 50 <fs_eket>-eindt.
ENDLOOP.
ENDFORM.                    " disp_data
call function 'SEND_TABLE_TO_EXCEL'
   exporting
     structure_name       = 'EKET'
   tables
     exceltab             = t_eket
FORM email_data.
*Structures and internal table used to send data vai mail
DATA : objpack     LIKE sopcklsti1 OCCURS 2 WITH HEADER LINE,
         objhead     LIKE solisti1   OCCURS 1 WITH HEADER LINE,
         objbin      LIKE solisti1   OCCURS 0 WITH HEADER LINE,
         objtxt      LIKE solisti1   OCCURS 10 WITH HEADER LINE,
         reclist     LIKE somlreci1 OCCURS 5 WITH HEADER LINE,
         tab_lines LIKE sy-tabix,
         doc_chng LIKE sodocchgi1.
DATA : it_attach TYPE STANDARD TABLE OF solisti1,
         w_attach   TYPE solisti1.
CONSTANTS : c_car TYPE x VALUE '0D',
              c_tab TYPE x VALUE '09'.
CONCATENATE 'EBELN'
               c_tab
              'EBELP'
               c_tab
              'EINDT'
              c_car INTO w_attach.
APPEND w_attach TO it_attach.
LOOP AT t_eket INTO <fs_eket>.
     CONCATENATE <fs_eket>-ebeln
                 c_tab
                 <fs_eket>-ebelp
                 c_tab
                 <fs_eket>-eindt
                 c_car INTO w_attach.
     APPEND w_attach TO it_attach.
ENDLOOP.
MOVE it_attach[] TO objbin[].
*assign a name to the email document
doc_chng-obj_name = 'Output'.
doc_chng-obj_descr = 'Old Scheduling lines'."gives the subject line
objtxt-line = 'Regards'.
APPEND objtxt.
objtxt-line = 'Shivaji'.
APPEND objtxt.
*determine the size of the body of the email
DESCRIBE TABLE objtxt LINES tab_lines.
READ TABLE objtxt INDEX tab_lines.
doc_chng-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ).
*fill the fields of the packing list for the body of the email
*doc needs no header
objpack-head_start = 1.
objpack-head_num   = 0.
*but it has a body
objpack-body_start = 1.
objpack-body_num   = tab_lines.
objpack-doc_type   = 'RAW'.
APPEND objpack.
*************fill the fields for packing list ***
     for attachment        ********
DESCRIBE TABLE objbin LINES tab_lines.
*************if it has no header ****************
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num   = 1.
*************if it has a body ********
objpack-body_start = 1.
objpack-body_num   = tab_lines.
objpack-doc_type   = 'XLS'.
objpack-obj_name   = 'Attachement'.
objpack-obj_descr = 'file'.
objpack-doc_size   = tab_lines * 255.
APPEND objpack.
************fill the mail recipient list*******
reclist-receiver = sy-uname.
**rec_type 'B' indicates sap user ,rec_type 'U' indicates internet user
reclist-rec_type = 'B'.
reclist-express = 'X'.
APPEND reclist.
Function Module to send the data as an excel attachement ****
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data                    = doc_chng
      put_in_outbox                    = 'X'
IMPORTING
SENT_TO_ALL                      =
NEW_OBJECT_ID                    =
    TABLES
      packing_list                     = objpack
OBJECT_HEADER                    =
      contents_bin                     = objbin
      contents_txt                     = objtxt
CONTENTS_HEX                     =
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 sy-msgid TYPE sy-msgty NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM.

How to send mail attachment excel sheet correctly

Hi,
I am working one program and there the out put should be sent in mail attachment in excel sheet. I have used one Function module SO_DOCUMENT_SEND_API1. I am able to send the output data mail attachment excel sheet. But one problem I am facing that last two lines in excel sheet are shifting one tab right. It should come from from first column itself.
How to correct this program any one can answer it with some code if possible.
Waiting for quick response.
Best Regards,
BDP

Hi,
I am working one program and there the out put should be sent in mail attachment in excel sheet. I have used one Function module SO_DOCUMENT_SEND_API1. I am able to send the output data mail attachment excel sheet. But one problem I am facing that last two lines in excel sheet are shifting one tab right. It should come from from first column itself.
How to correct this program any one can answer it with some code if possible.
Waiting for quick response.
Best Regards,
BDP

Sending a excel sheet as attachment in mail

Hi,
I have requirement where I need to send excel sheet as attachment in mail. I could do it by using FM SO_NEW_DOCUMENT_ATT_SEND_API1. But, I am not able to format the excel sheet before sending.
I need to make heading bold, fix column width and wrap text in some cells, and send the mail.
Pls help me with your suggestions.
Thanks,
Siva.

this link will show you how to do formatting in Excel using the OLE method, then use that EXCEL to send the MAIL using your program \
[OLE-format excel |http://www.sap-img.com/abap/download-to-excel-with-format-border-color-cell-etc.htm]
Hope That Helps
Anirban M.

Regarding excel sheet as an attachment to mail

Similar Messages

Maybe you are looking for