How to send dms document as email attachment

[former_member15448]

Dear all,

My requirement is taking DMS document and attach it to email.

Currently I'm getting a blank document with my code. Would appreciate your help on this.

Here is the code I am using:

Data: GO_DOCUMENT TYPE REF TO CL_DOCUMENT_BCS.

CALL FUNCTION 'SDOK_PHIO_LOAD_CONTENT'
EXPORTING
OBJECT_ID = WA_DMS_OBJECT
CLIENT = SY-MANDT
* AS_IS_MODE =
* RAW_MODE =
* TEXT_AS_STREAM =
TABLES
* FILE_ACCESS_INFO =
* FILE_CONTENT_ASCII =
FILE_CONTENT_BINARY = IT_FILE_CONTENT_BINARY
EXCEPTIONS
NOT_EXISTING = 1
NOT_AUTHORIZED = 2
NO_CONTENT = 3
BAD_STORAGE_TYPE = 4
OTHERS = 5.
IF SY-SUBRC <> 0.
* Implement suitable error handling here
ENDIF.

REFRESH:LT_BINARY_CONTENT.
LOOP AT IT_FILE_CONTENT_BINARY INTO DATA(LS_PHIO).
LS_LINE-LINE = LS_PHIO-LINE+0(255).
APPEND LS_LINE TO LT_BINARY_CONTENT.
LS_LINE-LINE = LS_PHIO-LINE+256(255).
APPEND LS_LINE TO LT_BINARY_CONTENT.
LS_LINE-LINE = LS_PHIO-LINE+512(255).
APPEND LS_LINE TO LT_BINARY_CONTENT.
LS_LINE-LINE = LS_PHIO-LINE+768(254).
APPEND LS_LINE TO LT_BINARY_CONTENT.
ENDLOOP.

CALL METHOD GO_DOCUMENT->ADD_ATTACHMENT
EXPORTING
I_ATTACHMENT_TYPE = 'BIN'
* I_ATTACHMENT_SIZE = LV_BIN_FILESIZE
I_ATTACHMENT_SUBJECT = LO_ATTACH_SUB
I_ATT_CONTENT_HEX = LT_BINARY_CONTENT.