cancel
Showing results for 
Search instead for 
Did you mean: 

Sending ABAP report as mail attachment

Former Member
0 Kudos

Hii all,

I am trying to send an ABAP report as email attachment. I am using the Menu option "List>Send>" to send the ABAP report as email attachment. But when I am trying to input receipient email address and press "send" pushbutton, an error message is prompted saying that the user doesnt exists. And when I look for F4 help on receipients address field, I am getting a pop-up asking me for search criteria for Internal user, distribution list,external addresses,business partner.. Can anyone tell me how can I configure these addresses and where? And are there anyother methods to send an ABAP report as email attachment? Urgent reply plsss...

Thanks in advance,

Latheef

Accepted Solutions (0)

Answers (6)

Answers (6)

former_member188685
Active Contributor
0 Kudos
Former Member
0 Kudos

Hallo Latheef,

i do it on this way.

Hope i can help you.

Regards,

Dieter

**********************************

REPORT ZGRO_EMAIL_ABAP.

  • --- Parameter für SO_NEW_DOCUMENT_ATT_SEND_API1

DATA: OBJ_PACK LIKE SOPCKLSTI1 OCCURS 0 WITH HEADER LINE,

OBJ_HEAD LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,

OBJ_BIN LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,

OBJ_TXT LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,

REC_LIST LIKE SOMLRECI1 OCCURS 0 WITH HEADER LINE,

DOC_DATA LIKE SODOCCHGI1.

*

DATA: BEGIN OF ITAB OCCURS 0,

TEXT(72),

END OF ITAB.

*

DATA: TAB_LINES LIKE SY-TABIX. " Anzahl Tabellenelemente

*

READ REPORT 'ZGRO_EMAIL_ABAP' INTO ITAB. "Select Report

*

DESCRIBE TABLE ITAB LINES TAB_LINES.

*

  • email füllen

  • Betreff-Zeile

DOC_DATA-OBJ_NAME = 'ZGRO_EMAIL_ABAP'.

DOC_DATA-OBJ_DESCR = 'Send Abap via email'.

  • Empfängerliste

  • email-User (U)

CLEAR REC_LIST.

CLEAR REC_LIST.

REC_LIST-RECEIVER = 'mustermann@mustermann.de'. "email address

REC_LIST-REC_TYPE = 'U'.

APPEND REC_LIST.

*

  • PACKING_LIST: 1. Zeile gilt immer für email-Inhalt

CLEAR OBJ_PACK.

OBJ_PACK-BODY_START = 01.

OBJ_PACK-BODY_NUM = 02.

OBJ_PACK-DOC_TYPE = 'RAW'.

APPEND OBJ_PACK.

*

  • PACKING_LIST: 2. und Folgezeilen gelten immer für Anlagen

  • Wird OBJ_PACK-TRANSF_BIN Feld gesetzt, wird aus OBJ_BIN genommen,

  • sonst OBJ_TXT

CLEAR OBJ_PACK.

OBJ_PACK-TRANSF_BIN = 'X'.

OBJ_PACK-BODY_START = 01.

OBJ_PACK-BODY_NUM = TAB_LINES.

OBJ_PACK-DOC_TYPE = 'RAW'.

OBJ_PACK-OBJ_NAME = 'Anhang'.

OBJ_PACK-OBJ_DESCR = 'Abap-Report'.

APPEND OBJ_PACK.

*

*emailinhalt

OBJ_TXT-LINE = 'Abap Report'.

APPEND OBJ_TXT.

*Anlageninhalt

LOOP AT ITAB.

OBJ_BIN-LINE = ITAB-TEXT.

APPEND OBJ_BIN.

ENDLOOP.

  • --- Versenden des Dokuments

*

  • --- Versenden des Dokuments

  • ab 470 ist COMMIT_WORK zu setzen

  • und SO_DOCUMENT_SEND_API1 lt. 190669

CALL FUNCTION 'SO_DOCUMENT_SEND_API1'

EXPORTING

DOCUMENT_DATA = DOC_DATA

PUT_IN_OUTBOX = 'X'

COMMIT_WORK = 'X'

TABLES

PACKING_LIST = OBJ_PACK

CONTENTS_TXT = OBJ_TXT

CONTENTS_BIN = OBJ_BIN

RECEIVERS = REC_LIST

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.

WRITE: / SY-SUBRC.

ENDIF.

Former Member
0 Kudos

Hai Lateef

Check with the following Code

REPORT Z_SENDITAB_EMAIL_SREE_13424 .

tables : mara.

DATA IT_MAIL(200) TYPE C OCCURS 0 WITH HEADER LINE.

  • message body:

IT_MAIL = '1st line.'. APPEND IT_MAIL.

IT_MAIL = '2nd line.'. APPEND IT_MAIL.

IT_MAIL = '3rd line.'. APPEND IT_MAIL.

IT_MAIL = '4th line.'. APPEND IT_MAIL.

  • to view the following function (cannot be viewed in se37):

  • go to sm59, select 'TCP/IP connections',

  • select and open 'SERVER_EXEC' or 'LOCAL_EXEC',

  • look on the pull down menu SYSTEM INFORMATION->FUNCTION LIST

data : begin of itab occurs 0,

matnr like mara-matnr,

mtart like mara-mtart,

mbrsh like mara-mbrsh,

meins like mara-meins,

end of itab.

select

matnr

mtart

mbrsh

meins

from mara

into table itab.

if sy-subrc = 0.

CALL FUNCTION 'RFC_MAIL' DESTINATION 'LOCAL_EXEC'

EXPORTING USER = 'YahoomailId@yahoo.com'

  • TABLES MAIL = IT_MAIL.

TABLES MAIL = ITAB.

endif.

CASE SY-SUBRC.

WHEN 0. WRITE 'E-mail sent successfully.'.

WHEN OTHERS. WRITE 'Error sending E-mail!'.

ENDCASE.

************************************************************************

Thanks & regards

Sreenivasulu P

athavanraja
Active Contributor
0 Kudos
former_member184569
Active Contributor
0 Kudos
Former Member
0 Kudos

Hi,

Refer this thread:

Will give u an idea

Regards,

Gayathri