sending internal tables data through email.

Former Member · ‎2007 Dec 20

Hi ABAPers,

I want to send the data in my internal table to some mail-id's how can i do that.

I know that we can download the data in one excel sheet and attach that one to the mails. I want to know is there any other way to send the data. If not please any one can send me the code for this.

Thanks & Regards,

Ramana.

Former Member · ‎2007 Dec 20

Use this code and execute your program in background. When you will execute your program in Background and you will display your internal table it will create a SPOOL. This spool will be used in below code.

&----

*& Form send_mail

&----

*** This subroutine will send the mail to the email recipient
*** specified and the report will be sent as a PDF attachement

----

--> P_EMAIL Email address of the recipient
<-- P_SPONO Spool number of the report

----

FORM send_mail

USING p_spono TYPE sy-spono

p_text TYPE matnr.

*** Internal Table Definition

DATA: lit_packlist TYPE STANDARD TABLE OF sopcklsti1,

lit_contents TYPE STANDARD TABLE OF solisti1,

lit_cont_bin TYPE STANDARD TABLE OF solisti1,

lit_content_out TYPE STANDARD TABLE OF solisti1.

*** Work Areas Definition

DATA: lwa_subject TYPE sodocchgi1

VALUE IS INITIAL,

lwa_packlist TYPE sopcklsti1

VALUE IS INITIAL,

lwa_cont_bin TYPE solisti1

VALUE IS INITIAL.

*** Variables Definition

DATA: lz_tab_lines TYPE i.

*** Constants

CONSTANTS: lkc_pdf TYPE sopcklsti1-doc_type

VALUE 'PDF',

lkc_attachment TYPE sopcklsti1-obj_name

VALUE 'ATTACHMENT',

lkc_raw TYPE sopcklsti1-doc_type

VALUE 'RAW'.

*** Initialiaing Work Areas and Internal tables

CLEAR: lwa_subject,

lit_packlist[],

lit_cont_bin[],

lit_contents[],

lit_content_out[].

CALL FUNCTION 'ABAP4_COMMIT_WORK'.

*** Body for the email

PERFORM fill_msg_body

CHANGING lit_contents[].

*** Subject for the email

PERFORM fill_subject

CHANGING lit_contents[]

lwa_subject

lz_tab_lines.

CLEAR lwa_packlist.

lwa_packlist-head_start = 1.

lwa_packlist-head_num = 0.

lwa_packlist-body_start = 1.

lwa_packlist-body_num = lz_tab_lines.

lwa_packlist-doc_type = lkc_raw.

APPEND lwa_packlist TO lit_packlist.

*** Fetching spool request and converting it to PDF

PERFORM fetch_spool_2pdf

USING p_spono

CHANGING lit_content_out

z_subrc.

*** Message Attachment

lwa_cont_bin = ' | '.

APPEND lwa_cont_bin TO lit_cont_bin.

DESCRIBE TABLE lit_cont_bin LINES lz_tab_lines.

lwa_packlist-transf_bin = 'X'.

lwa_packlist-head_start = lz_tab_lines + 1.

lwa_packlist-head_num = 0.

lwa_packlist-body_start = lz_tab_lines + 1.

APPEND LINES OF lit_content_out[] TO lit_cont_bin[].

DESCRIBE TABLE lit_content_out LINES lz_tab_lines.

lwa_packlist-doc_size = lz_tab_lines * 255.

lwa_packlist-body_num = lz_tab_lines.

lwa_packlist-doc_type = lkc_pdf.

lwa_packlist-obj_name = lkc_attachment.

lwa_packlist-obj_descr = p_text.

APPEND lwa_packlist TO lit_packlist.

CLEAR lwa_packlist.

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

document_data = lwa_subject

put_in_outbox = 'X'

commit_work = 'X'

TABLES

packing_list = lit_packlist

contents_bin = lit_cont_bin

contents_txt = lit_contents

receivers = it_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 NE 0.

WRITE: text-e07.

zn_cancel = 1.

EXIT.

ENDIF. "IF sy-subrc NE 0

*** Execute report rsconn01

PERFORM submit_mail.

ENDFORM. " send_mail

&----

*& Form fill_subject

&----

*** This subroutine will fill the work area with message, type
*** and size.

----

<--pit_contents table for message body *
<--pwa_subject Work area for subject *
<--p_tab_lines No. of lines in content *

----

FORM fill_subject

CHANGING pit_contents TYPE ty_it_solisti1

pwa_subject TYPE sodocchgi1

p_tab_lines TYPE i.

DATA: lwa_contents TYPE solisti1

VALUE IS INITIAL.

DATA: lz_date TYPE string,

lz_subject TYPE string,

lz_time TYPE tims,

lz_am_pm(2) TYPE c,

lz_var1 TYPE string,

lz_var2 TYPE string,

lz_var3 TYPE string.

CONSTANTS: lzc_mail_ali TYPE sodocchgi1-obj_name

VALUE 'MAIL_ALI',

lkc_hyphen TYPE char01 VALUE '-',

lkc_colon TYPE char01 VALUE ':',

lkc_type_time TYPE char01 VALUE 'A',

lkc_am_pm TYPE char03 VALUE 'AM'. .

CALL FUNCTION 'CONVERSION_EXIT_IDATE_OUTPUT'

EXPORTING

input = sy-datum

IMPORTING

output = lz_date.

lz_var1 = lz_date+0(2).

lz_var2 = lz_date+2(3).

lz_var3 = lz_date+5(4).

CLEAR lz_date.

CONCATENATE lz_var1

lkc_hyphen

lz_var2

lkc_hyphen

lz_var3

INTO lz_date.

CALL FUNCTION 'HRVE_CONVERT_TIME'

EXPORTING

type_time = lkc_type_time

input_time = sy-uzeit

input_am_pm = lkc_am_pm

IMPORTING

output_time = lz_time

output_am_pm = lz_am_pm

EXCEPTIONS

parameter_error = 1

OTHERS = 2.

IF sy-subrc NE 0.

MESSAGE e001(zzrefn01)

WITH text-006.

ENDIF. "if sy-subrc ne 0

CLEAR: lz_var1,

lz_var2.

lz_var1 = lz_time+0(2).

lz_var2 = lz_time+2(2).

CLEAR lz_time.

CONCATENATE lz_var1

lkc_colon

lz_var2

INTO lz_time.

CONCATENATE text-m05

lz_date

lz_time

lz_am_pm

INTO lz_subject

SEPARATED BY space.

pwa_subject-obj_name = lzc_mail_ali.

pwa_subject-obj_descr = lz_subject.

DESCRIBE TABLE pit_contents LINES p_tab_lines.

READ TABLE pit_contents

INTO lwa_contents

INDEX p_tab_lines.

IF sy-subrc EQ 0.

pwa_subject-doc_size = ( p_tab_lines - 1 )

255 + STRLEN( lwa_contents ).

ENDIF. "IF sy-subrc EQ 0

ENDFORM. " fill_subject

&----

*& Form fill_msg_body

&----

*** This subroutine is used to fill the body of the email mesg

----

-->P_LIT_CONTENTS Internal table for message body

----

FORM fill_msg_body

CHANGING pit_contents TYPE ty_it_solisti1.

DATA: lwa_contents TYPE solisti1

VALUE IS INITIAL.

lwa_contents = space.