To send TXT file as an attachment through Email

Hi,

Use the function module SO_NEW_DOCUMENT_ATT_SEND_API1.

We find it convenient to use a custom function module as a wrapper for that.

Here's the code.

FUNCTION Z_EMAILS_ATTACH.

*"----

""Local interface:

*" IMPORTING

*" VALUE(EMAIL_SUBJECT) LIKE SODOCCHGI1-OBJ_DESCR

*" VALUE(ATTACHMENT_SUBJECT) LIKE SOPCKLSTI1-OBJ_DESCR OPTIONAL

*" VALUE(ATTACHMENT_DOC_TYPE) TYPE SO_OBJ_TP OPTIONAL

*" REFERENCE(ATTACHMENT_HEADER) LIKE SOLISTI1 STRUCTURE SOLISTI1

*" TABLES

*" EMAIL_BODY STRUCTURE SOLISTI1

*" EMAIL_ATTACHMENT STRUCTURE SOLISTI1 OPTIONAL

*" RECEIVERS STRUCTURE SOMLRECI1

*" EXCEPTIONS

*" UNKNOWN_COMMUNICATION_TYPE

*" ERROR_SENDING_MAIL

*" EMPTY_ATTACHMENT

*" NO_ATTACHMENT_SUBJECT

*" USER_HAS_NO_EMAIL_ADDRESS

*" NO_RECEIVERS

*"----

• NOTE

• Single-testing when the tables passed to the function have reference

• structure SOLISTI1 meets with a problem.

• Entering non-blank rows into these tables is impossible, it seems.

• This is believed to be because the single testing fails to cope with

• the width of SOLISTI1-LINE [255 char].

• For single testing, use CVDTLINE as the reference structure - it's

• only 132 char. Then remember to change it back to SOLISTI1...

• Based on Z_EMAIL_ATTACH which sends just one mail.

• 08.06.2007 JNM

DATA: document LIKE sodocchgi1.

DATA: packlist LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE.

DATA: contents LIKE solisti1 OCCURS 0 WITH HEADER LINE.

DATA: header LIKE solisti1 OCCURS 0 WITH HEADER LINE.

DATA: RECVLIST LIKE SOMLRECI1 OCCURS 0 WITH HEADER LINE.

DATA: NEXT_ROW LIKE SY-TABIX.

DATA: lines LIKE sy-tabix.

DATA: LAST_LINE_LENGTH TYPE I.

DATA: d_doc_size LIKE packlist-doc_size.

data: email_address type ad_smtpadr.

• A user without an email address cannot email.

CALL FUNCTION 'Z_USER_EMAIL_ADDRESS'

EXPORTING

USER_NAME = SY-UNAME

IMPORTING

EMAIL_ADDRESS = email_address

EXCEPTIONS

UNKNOWN_USER = 1

NO_ADDRESS_KEY = 2

NO_ADDRESS_DATA = 3

NO_EMAIL_ADDRESS = 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

raising USER_HAS_NO_EMAIL_ADDRESS.

ENDIF.

• Receivers?

describe table receivers lines lines.

if lines eq 0.

raise no_receivers.

endif.

• initialization

CLEAR: CONTENTS, DOCUMENT, HEADER, PACKLIST, RECVLIST.

REFRESH: CONTENTS, HEADER, PACKLIST, RECVLIST.

• attachment?

DESCRIBE TABLE EMAIL_ATTACHMENT LINES LINES.

IF LINES EQ 0 AND ATTACHMENT_SUBJECT CN SPACE.

RAISE EMPTY_ATTACHMENT.

ENDIF.

IF LINES NE 0 AND ATTACHMENT_SUBJECT CO SPACE.

RAISE NO_ATTACHMENT_SUBJECT.

ENDIF.

• email body

concatenate 'SAP client:'

sy-host sy-sysid sy-mandt

into contents separated by space.

append contents.

clear contents.

append contents.

APPEND LINES OF EMAIL_BODY TO CONTENTS.

• header - row for body

HEADER = 'BODY HEADER'.

APPEND HEADER.

• packing list - row for body

PACKLIST-TRANSF_BIN = SPACE.

PACKLIST-HEAD_START = 1.

PACKLIST-HEAD_NUM = 1.

PACKLIST-BODY_START = 1.

DESCRIBE TABLE CONTENTS LINES PACKLIST-BODY_NUM.

NEXT_ROW = 1 + PACKLIST-BODY_NUM.

*packlist-doc_type = 'EXT'.

PACKLIST-DOC_TYPE = 'RAW'.

APPEND PACKLIST.

IF ATTACHMENT_SUBJECT CN SPACE. " if there's an attachment

• attachment into contents

APPEND LINES OF EMAIL_ATTACHMENT TO CONTENTS.

DESCRIBE TABLE EMAIL_ATTACHMENT LINES LINES.

READ TABLE EMAIL_ATTACHMENT INDEX LINES.

LAST_LINE_LENGTH = STRLEN( EMAIL_ATTACHMENT ).

• header - attachment

if attachment_header is initial.

HEADER = 'ATTACH'.

else.

header = attachment_header.

endif.

APPEND HEADER.

• packing list - row for attachment

CLEAR PACKLIST.

case attachment_doc_type.

• when 'XLS'.

• PACKLIST-TRANSF_BIN = 'X'.

when others.

PACKLIST-TRANSF_BIN = SPACE.

endcase.

PACKLIST-HEAD_START = 2.

PACKLIST-HEAD_NUM = 1.

PACKLIST-BODY_START = NEXT_ROW.

if not attachment_doc_type is initial.

packlist-doc_type = attachment_doc_type.

else.

PACKLIST-DOC_TYPE = 'RAW'.

endif.

• packlist-doc_type = 'EXT'.

PACKLIST-OBJ_DESCR = ATTACHMENT_SUBJECT.

PACKLIST-OBJ_NAME = 'ATTACHMENT'.

PACKLIST-BODY_NUM = LINES.

D_DOC_SIZE = LAST_LINE_LENGTH + ( 255 * ( LINES - 1 ) ).

PACKLIST-DOC_SIZE = D_DOC_SIZE.

APPEND PACKLIST.

ENDIF. "attachment

• document

document-obj_name = 'EMAIL'.

DOCUMENT-OBJ_DESCR = EMAIL_SUBJECT.

document-obj_langu = sy-langu.

document-obj_expdat = sy-datum.

document-sensitivty = 'F'.

document-obj_prio = 9.

document-no_change = 'X'.

document-priority = 9.

document-expiry_dat = sy-datum.

ADD 1 TO: DOCUMENT-OBJ_EXPDAT, DOCUMENT-EXPIRY_DAT.

DESCRIBE TABLE contents LINES lines.

D_DOC_SIZE = LAST_LINE_LENGTH + ( 255 * ( LINES - 1 ) ).

document-doc_size = d_doc_size.

• call the mail function

CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

EXPORTING

document_data = document

• put_in_outbox = 'X'

commit_work = 'X'

TABLES

object_header = header

packing_list = packlist

contents_txt = contents

receivers = 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.

RAISE ERROR_SENDING_MAIL.

ENDIF.

ENDFUNCTION.

Also remember that the SAP user sending the email must have an email address in the user details, so that SAP has something to put in the "From" field when creating the email.

That's why we use this:

FUNCTION Z_USER_EMAIL_ADDRESS.

*"----

""Local interface:

*" IMPORTING

*" REFERENCE(USER_NAME) TYPE SYUNAME DEFAULT SY-UNAME

*" EXPORTING

*" REFERENCE(EMAIL_ADDRESS) TYPE AD_SMTPADR

*" EXCEPTIONS

*" UNKNOWN_USER

*" NO_ADDRESS_KEY

*" NO_ADDRESS_DATA

*" NO_EMAIL_ADDRESS

*"----

tables:

adr6,

usr21,

usr02.

• SAP logon data

select single *

from usr02

where bname = user_name.

if sy-subrc ne 0.

message i017(ZREP) with

'SAP user' user_name 'is unknown'

raising unknown_user.

endif.

• SAP user address key

select single *

from usr21

where bname = user_name.

if sy-subrc ne 0.

message i017(ZREP) with

'No address data assigned to SAP user' user_name

raising no_address_key.

endif.

• SAP user address

select single *

from adr6

where addrnumber = usr21-addrnumber and

persnumber = usr21-persnumber.

if sy-subrc ne 0.

message i017(ZREP) with

'No address data found for SAP user' user_name

raising no_address_data.

endif.

email_address = adr6-smtp_addr.

if email_address is initial.

message i017(ZREP) with

'No address data found for SAP user' user_name

raising no_email_address.

endif.

ENDFUNCTION.

John