REPORT Z_SEND_EMAIL_WA.
data : wa_doc_data like SODOCCHGI1,

v_lin like Sy-tabix,
v_obj_id like SOFOLENTI1-OBJECT_ID.
data : wa_reciever like SOMLRECI1,
t_reciever like standard table of wa_reciever.
data : wa_pk_list like SOPCKLSTI1,
t_pk_list like standard table of wa_pk_list.
data : wa_con_txt like SOLISTI1,
t_TEMP like standard table of wa_con_txt,
t_con_txt like standard table of wa_con_txt.


wa_con_txt = 'hello'.
append wa_con_txt to t_con_txt.
append wa_con_txt to t_con_txt.

describe table t_con_txt lines v_lin.
read table t_con_txt index v_lin into wa_con_txt.
wa_doc_data-doc_size = ( v_lin - 1 ) * 255 + strlen( wa_con_txt ).

wa_doc_data-OBJ_NAME = 'ATC'.
wa_doc_data-OBJ_DESCR = 'to send an attachment'.
wa_doc_data-OBJ_LANGU = 'E'.

wa_reciever-RECEIVER = 'mail@gmail.com'.
wa_reciever-REC_TYPE = 'B'.
wa_reciever-com_type = 'INT'.
append wa_reciever to t_reciever.

clear wa_pk_list-transf_bin.
wa_pk_list-head_start = 1.
wa_pk_list-head_num = 0.
wa_pk_list-BODY_START = 1.
wa_pk_list-body_num = v_lin.
wa_pk_list-doc_type = 'RAW'.
append wa_pk_list to t_pk_list.

*to upload a pdf file

CALL FUNCTION 'GUI_UPLOAD'
  EXPORTING
    FILENAME = 'C:\Documents and Settings'
    FILETYPE = 'BIN'
  TABLES
    DATA_TAB = T_TEMP.

DESCRIBE TABLE T_TEMP LINES V_LIN.

WA_PK_LIST-TRANSF_BIN = 'X'.
WA_PK_LIST-HEAD_NUM = 0.
WA_PK_LIST-BODY_START = 1.
WA_PK_LIST-BODY_NUM = V_LIN.
WA_PK_LIST-DOC_TYPE = 'PDF'.
WA_PK_LIST-OBJ_NAME = 'ATTACHMENT'.
WA_PK_LIST-OBJ_DESCR = 'Reproduction object 138'.
WA_PK_LIST-DOC_SIZE = V_LIN * 255.

APPEND WA_PK_LIST TO T_PK_LIST.

CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
EXPORTING
DOCUMENT_DATA = wa_doc_data
IMPORTING
NEW_OBJECT_ID = v_obj_id
TABLES
PACKING_LIST = t_pk_list
CONTENTS_BIN = T_TEMP
CONTENTS_TXT = t_con_txt
RECEIVERS = t_reciever