Skip to Content
author's profile photo Former Member
Former Member

SENDING TEXT FILE AS AN ATTACHMENT

Hi,

I want to send an email as a TEXT file attachment.

Thanks

Vikranth Khimavath

Add a comment
10|10000 characters needed characters exceeded

Assigned Tags

Related questions

4 Answers

  • author's profile photo Former Member
    Former Member
    Posted on Jan 24, 2007 at 08:21 AM

    hi,

    Use the FM SO_NEW_DOCUMENT_ATT_SEND_API1 to send mail with an attachment. Here is the sample code.

    FUNCTION Z_SEND_MAIL.

    *"----


    ""Local interface:

    *" IMPORTING

    *" VALUE(MESSAGE) TYPE STRING OPTIONAL

    *" VALUE(RECEIVER_MAIL) TYPE STRING OPTIONAL

    *" VALUE(TO) TYPE STRING OPTIONAL

    *"----


    • data for send function

    DATA doc_data TYPE sodocchgi1.

    DATA object_id TYPE soodk.

    DATA objcont TYPE TABLE OF soli INITIAL SIZE 10.

    DATA wa_objcont LIKE LINE OF objcont.

    DATA receiver TYPE TABLE OF somlreci1 INITIAL SIZE 1.

    DATA wa_receiver LIKE LINE OF receiver.

    move message

    TO doc_data-obj_descr .

    • This is the subject for your mail.

    • WRITE 'Sub:test Mail' TO doc_data-obj_descr.

    • This is the body of your mail.

    concatenate ' Hi ' to into wa_objcont-line separated by space.

    append wa_objcont to objcont.

    wa_objcont-line = message.

    append wa_objcont to objcont.

    • Specify receipent id.

    MOVE: RECEIVER_MAIL TO wa_receiver-receiver,

    • 'X' TO wa_receiver-express,

    'U' TO wa_receiver-rec_type.

    APPEND wa_receiver TO receiver.

    • Finally call the function module.

    CALL FUNCTION 'SO_NEW_DOCUMENT_SEND_API1'

    EXPORTING

    document_data = doc_data

    put_in_outbox = 'X' "Save Document in Outbox

    COMMIT_WORK = 'X'

    IMPORTING

    new_object_id = object_id

    TABLES

    object_content = objcont

    receivers = receiver

    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.

    SUBMIT rsconn01 USING SELECTION-SET 'SAP&CONNECTINT' AND RETURN.

    ENDFUNCTION.

    REPORT RSCONN01 MESSAGE-ID XS NO STANDARD PAGE HEADING.

    INCLUDE <SYMBOL>. " 11.11.96

    TYPE-POOLS: SX.

    TYPE-POOLS: KKBLO.

    PARAMETERS: MODE(3) TYPE C DEFAULT '*',

    OUTPUT TYPE C DEFAULT ' '. "B20K072036 new parameter

    selection-screen skip.

    parameters maxjobs type sx_maxjobs default 1.

    parameters rfcgroup type bdfields-rfcgr.

    selection-screen skip.

    parameters maxpsize type sx_maxpsize default 1000.

    parameters minpsize type sx_minpsize default 20.

    parameters maxsel type sx_maxqrows default 20000.

    parameters timepo type sx_timepo default 2.

    parameters timeout type sx_arfctimeout default 100.

    parameters commit type sx_commit default 1.

    data address_types type sx_addrtab.

    data job_params type sxjobs.

    data jobdata type sxjobdata.

    --- initialization -


    initialization.

    • get default parameters

    call function 'SX_JOBDATA_GET'

    changing

    jobdata = jobdata.

    • give defaults to parameters

    maxjobs = jobdata-maxjobs.

    maxpsize = jobdata-maxpsize.

    minpsize = jobdata-minpsize.

    maxsel = jobdata-maxsel.

    timepo = jobdata-timepo.

    timeout = jobdata-arfc_timeout.

    commit = jobdata-commit_after.

    --- start-of-selection -


    start-of-selection.

    perform addr_type_to_table using mode

    changing address_types.

    job_params-maxjobs = maxjobs.

    job_params-rfcgroup = rfcgroup.

    job_params-maxpsize = maxpsize.

    job_params-minpsize = minpsize.

    job_params-maxsel = maxsel.

    job_params-timepo = timepo.

    job_params-arfc_timeout = timeout.

    job_params-commit_after = commit.

    call function 'SX_OBJECTS_SEND'

    exporting

    address_types = address_types

    output = output

    job_params = job_params

    exceptions

    others = 1.

    .

    if sy-subrc <> 0.

    message id sy-msgid type sy-msgty number sy-msgno

    with sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.

    endif.

    exit.

    ----


    TABLES: SXADDRTYPE.

    DATA: selection type SX_ADDRTAB,

    NR_SO_OBJECTS TYPE I,

    OBJ_CAT TYPE SX_OBJ_CAT OCCURS 20 WITH HEADER LINE.

    if sy-batch = 'X'.

    message I078 with 'RSCONN01' SY-HOST SY-MANDT.

    endif.

    *fill selection table

    refresh selection.

    if mode = '*'.

    clear mode.

    endif.

    IF NOT ( MODE IS INITIAL ).

    SELECT SINGLE * FROM SXADDRTYPE WHERE ADDR_TYPE EQ MODE.

    IF SY-SUBRC NE 0.

    IF OUTPUT EQ 'X'.

    WRITE: MODE, TEXT-001, TEXT-002.

    ENDIF.

    EXIT.

    ENDIF.

    IF SXADDRTYPE-METHOD NE 'SAPCONNECT'.

    IF OUTPUT EQ 'X'.

    WRITE: MODE, TEXT-003, TEXT-004, TEXT-005.

    ENDIF.

    EXIT.

    ENDIF.

    append sxaddrtype-addr_type to selection.

    ELSE.

    select * from sxaddrtype

    where method = 'SAPCONNECT'

    and extern = sx_true.

    case sxaddrtype-addr_type.

    when 'INT' or 'FAX' or 'PAG' or

    'PRT' or 'RML' or 'X40'.

    append sxaddrtype-addr_type to selection.

    endcase.

    endselect.

    ENDIF.

    CALL FUNCTION 'SX_OBJECTS_SEND'

    EXPORTING

    ADDRESS_TYPES = SELECTION

    IMPORTING

    NR_SO_OBJECTS = NR_SO_OBJECTS

    TABLES

    OBJ_CAT = OBJ_CAT

    EXCEPTIONS

    INTERNAL_ERROR = 1

    OTHERS = 2.

    IF SY-SUBRC NE 0.

    • IF OUTPUT EQ 'X'.

    • Always write out this error message:

    WRITE: TEXT-006, SY-SUBRC.

    • ENDIF.

    EXIT.

    ENDIF.

    IF NR_SO_OBJECTS = 0.

    IF OUTPUT EQ 'X'.

    WRITE: TEXT-007.

    ENDIF.

    EXIT.

    ENDIF.

    IF OUTPUT EQ 'X'.

    PERFORM DISPLAY_OBJECT_CATALOGUE.

    ENDIF.

    AT SELECTION-SCREEN ON VALUE-REQUEST FOR MODE.

    PERFORM F_SHOW_ADDR_TYPES CHANGING MODE.

    AT SELECTION-SCREEN ON HELP-REQUEST FOR OUTPUT.

    PERFORM F_HELP_OUTPUT.

    &----


    *& Form addr_type_to_table

    &----


    • text

    ----


    form addr_type_to_table using address_type type sx_addrtyp

    changing address_types type sx_addrtab.

    data adrtp_wa type sxaddrtype.

    data adrtp type sx_addrtyp.

    if address_type <> '*'.

    adrtp = address_type.

    endif.

    if not adrtp is initial.

    select single * from sxaddrtype into adrtp_wa

    where addr_type = adrtp.

    if sy-subrc <> 0.

    message i009 with adrtp.

    exit.

    endif.

    if adrtp_wa-method ne 'SAPCONNECT'.

    message i027 with adrtp.

    exit.

    endif.

    append adrtp_wa-addr_type to address_types.

    else.

    select * from sxaddrtype into adrtp_wa

    where method = 'SAPCONNECT'

    and extern = sx_true.

    case adrtp_wa-addr_type.

    when 'INT' or 'FAX' or 'PAG' or

    'PRT' or 'RML' or 'X40'.

    append adrtp_wa-addr_type to address_types.

    endcase.

    endselect.

    endif.

    endform. " addr_type_to_table

    &----


    *& Form DISPLAY_OBJECT_CATALOGUE

    &----


    • Anzeige der Liste der zum Versenden selektierten Objekte

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM DISPLAY_OBJECT_CATALOGUE.

    DATA: FIELD_LST TYPE KKBLO_T_FIELDCAT.

    DATA: FIELD_CAT TYPE KKBLO_FIELDCAT.

    DATA: IS_LAYOUT TYPE KKBLO_LAYOUT.

    IS_LAYOUT-NO_ZEBRA = 'X'.

    FIELD_CAT-REF_TABNAME = 'SXOBJCAT'.

    FIELD_CAT-NO_SUM = 'X'.

    FIELD_CAT-JUST = 'L'.

    FIELD_CAT-OUTPUTLEN = 3.

    FIELD_CAT-REPTEXT = 'Trc'.

    FIELD_CAT-FIELDNAME = 'DISPL_TRC'.

    FIELD_CAT-HOTSPOT = 'X'.

    FIELD_CAT-SYMBOL = 'X'.

    APPEND FIELD_CAT TO FIELD_LST.

    FIELD_CAT-SYMBOL = ' '.

    FIELD_CAT-OUTPUTLEN = 0.

    FIELD_CAT-HOTSPOT = ' '.

    FIELD_CAT-REPTEXT = ' '.

    CLEAR: FIELD_CAT-NO_ZERO, FIELD_CAT-KEY .

    FIELD_CAT-FIELDNAME = 'ID'. APPEND FIELD_CAT TO FIELD_LST.

    FIELD_CAT-FIELDNAME = 'TITLE'. APPEND FIELD_CAT TO FIELD_LST.

    FIELD_CAT-FIELDNAME = 'TYPE'. APPEND FIELD_CAT TO FIELD_LST.

    FIELD_CAT-FIELDNAME = 'NR_RECIP'. APPEND FIELD_CAT TO FIELD_LST.

    LOOP AT FIELD_LST INTO FIELD_CAT.

    FIELD_CAT-COL_POS = SY-TABIX.

    MODIFY FIELD_LST FROM FIELD_CAT.

    ENDLOOP.

    LOOP AT OBJ_CAT.

    OBJ_CAT-DISPL_TRC = SYM_PENCIL.

    MODIFY OBJ_CAT.

    ENDLOOP.

    CALL FUNCTION 'K_KKB_LIST_DISPLAY'

    EXPORTING

    I_CALLBACK_PROGRAM = 'RSCONN01'

    I_CALLBACK_USER_COMMAND = 'CB_OL_UCOMM'

    I_CALLBACK_TOP_OF_PAGE = 'CB_OL_TOP'

    I_CALLBACK_PF_STATUS_SET = 'CB_OL_PFSTATUS'

    I_TABNAME = 'OBJ_CAT'

    IS_LAYOUT = IS_LAYOUT

    IT_FIELDCAT = FIELD_LST

    TABLES

    T_OUTTAB = OBJ_CAT

    EXCEPTIONS

    OTHERS = 1.

    ENDFORM. " DISPLAY_OBJECT_CATALOGUE

    &----


    *& Form CB_OL_PFSTATUS

    &----


    • Callback Funktion (wird aus Listtool heraus gerufen) *

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM CB_OL_PFSTATUS

    USING EXTAB TYPE KKBLO_T_EXTAB.

    SET PF-STATUS 'CATALOG' EXCLUDING EXTAB.

    SET TITLEBAR 'CAT'.

    ENDFORM. " CB_OL_PFSTATUS

    &----


    *& Form CB_OL_TOP

    &----


    • Callback Funktion (wird aus Listtool heraus gerufen) *

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM CB_OL_TOP.

    ENDFORM. " CB_OL_TOP

    &----


    *& Form CB_OL_UCOMM

    &----


    • text *

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM CB_OL_UCOMM

    USING UCOMM LIKE SY-UCOMM

    SELFIELD TYPE KKBLO_SELFIELD.

    DATA: NUMC5(5) TYPE N.

    NUMC5 = SELFIELD-TABINDEX.

    CASE UCOMM.

    WHEN 'PIC1'.

    CASE SELFIELD-SEL_TAB_FIELD.

    WHEN 'OBJ_CAT-DISPL_TRC' OR 'OBJ_CAT-TITLE' OR 'OBJ_CAT-ID'.

    READ TABLE OBJ_CAT INDEX SELFIELD-TABINDEX.

    IF SY-SUBRC NE 0.

    MESSAGE E042.

    ENDIF.

    SUBMIT RSWTTR01

    WITH P_TYPE = 'D'

    WITH P_UNAME = SPACE

    WITH P_OBJ = OBJ_CAT-ID AND RETURN.

    WHEN OTHERS.

    MESSAGE I041 WITH NUMC5 SELFIELD-SEL_TAB_FIELD UCOMM.

    ENDCASE.

    WHEN OTHERS.

    MESSAGE I041 WITH NUMC5 SELFIELD-SEL_TAB_FIELD UCOMM.

    ENDCASE.

    ENDFORM. " CB_OL_UCOMM

    &----


    *& Form F_SHOW_ADDR_TYPES

    &----


    • text

    ----


    • <--P_MODE text *

    ----


    FORM F_SHOW_ADDR_TYPES CHANGING A_TYPE.

    DATA: HELP_INFO LIKE HELP_INFO

    • , sel_value like help_info-fldvalue

    , CUCOL LIKE SY-CUCOL

    , CUROW LIKE SY-CUROW

    • , value like help_info-fldvalue value 'SE38'

    , IND LIKE SY-INDEX

    , C_SY_SUBRC(3) TYPE C

    .

    DATA: BEGIN OF FIELDS OCCURS 5.

    INCLUDE STRUCTURE HELP_VALUE.

    DATA: END OF FIELDS.

    DATA: BEGIN OF LIST_OF_FIELDS OCCURS 5,

    NAME(21) TYPE C.

    DATA: END OF LIST_OF_FIELDS.

    DATA: BEGIN OF FULL_LIST OCCURS 5,

    ADDRESS_TYPE LIKE SXADDRTYPE-ADDR_TYPE,

    END OF FULL_LIST.

    REFRESH FIELDS.

    REFRESH LIST_OF_FIELDS.

    REFRESH FULL_LIST.

    HELP_INFO-TABNAME = 'SXADDRTYPE'.

    HELP_INFO-FIELDNAME = 'ADDR_TYPE'.

    SELECT * FROM SXADDRTYPE.

    IF SXADDRTYPE-METHOD NE 'SAPCONNECT'

    OR SXADDRTYPE-EXTERN NE SX_TRUE.

    CONTINUE.

    ENDIF.

    MOVE SXADDRTYPE-ADDR_TYPE TO FULL_LIST-ADDRESS_TYPE.

    APPEND FULL_LIST.

    ENDSELECT.

    MOVE '*' TO FULL_LIST-ADDRESS_TYPE.

    APPEND FULL_LIST.

    LIST_OF_FIELDS-NAME = 'SXADDRTYPE-ADDR_TYPE'.

    APPEND LIST_OF_FIELDS.

    CALL FUNCTION 'TRANSFER_NAMES_TO_FIELDS'

    EXPORTING

    SELECTFIELD = HELP_INFO-FIELDNAME

    TABLES

    FIELDS = FIELDS

    NAMELIST = LIST_OF_FIELDS

    EXCEPTIONS

    WRONG_FORMAT_GIVEN = 1

    OTHERS = 2.

    CALL FUNCTION 'HELP_VALUES_GET_WITH_VALUE'

    EXPORTING

    DISPLAY = ' '

    FIELDNAME = HELP_INFO-FIELDNAME

    TABNAME = HELP_INFO-TABNAME

    GIVEN_VALUE = HELP_INFO-FLDVALUE

    TITEL = TEXT-002

    IMPORTING

    SELECT_VALUE = HELP_INFO-FLDVALUE

    SELECT_INDEX = IND

    TABLES

    FIELDS = FIELDS

    VALUETAB = FULL_LIST

    EXCEPTIONS

    FIELD_NOT_IN_DDIC = 1

    MORE_THEN_ONE_SELECTFIELD = 2

    NO_SELECTFIELD = 3

    OTHERS = 4.

    C_SY_SUBRC = SY-SUBRC.

    CASE SY-SUBRC.

    WHEN '0'.

    READ TABLE FULL_LIST INTO A_TYPE INDEX IND.

    WHEN OTHERS.

    MESSAGE E022 WITH C_SY_SUBRC.

    ENDCASE.

    ENDFORM. " F_SHOW_ADDR_TYPES

    &----


    *& Form F_HELP_OUTPUT

    &----


    • text

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM F_HELP_OUTPUT.

    DATA: CANCELLED TYPE C,

    C_SY_SUBRC(8) TYPE C.

    CALL FUNCTION 'POPUP_DISPLAY_TEXT'

    EXPORTING

    LANGUAGE = SY-LANGU

    POPUP_TITLE = 'SAPconnect'

    TEXT_OBJECT = 'RSCONN01_F1_OUTPUT_40B'

    IMPORTING

    CANCELLED = CANCELLED

    EXCEPTIONS

    TEXT_NOT_FOUND = 1

    OTHERS = 2.

    C_SY_SUBRC = SY-SUBRC.

    IF SY-SUBRC NE 0.

    • MESSAGE E035 WITH C_SY_SUBRC. leads to dump !

    ENDIF.

    ENDFORM. " F_HELP_OUTPUT

    Regards,

    Richa

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Jan 24, 2007 at 08:22 AM

    Check out Amit's Answer in this thread

    https://forums.sdn.sap.com/click.jspa?searchID=872861&messageID=1736429

    Regards,

    Santosh

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Jan 24, 2007 at 08:23 AM

    below is ex for sending attachment. Instead of XLS you can make it txt.

    ***Sending mail to the receipients

    if not it_final[] is initial.

    PERFORM SUB_GET_MAIL_ADDR.

    • Populate table with detaisl to be entered into .xls file

    PERFORM BUILD_XLS_DATA_TABLE.

    PERFORM POPULATE_EMAIL_MESSAGE_BODY.

    • Send file by email as .xls speadsheet

    PERFORM SEND_FILE_AS_EMAIL_ATTACHMENT

    TABLES IT_MESSAGE

    IT_ATTACH

    USING P_EMAIL

    'Sales Register Report - Set Top Box / Accessories'

    'XLS'

    'SSTB'

    ' '

    ' '

    ' '

    CHANGING GD_ERROR

    GD_RECIEVER.

    • Instructs mail send program for SAPCONNECT to send email(rsconn01)

    PERFORM INITIATE_MAIL_EXECUTE_PROGRAM.

    &----


    *& Form BUILD_XLS_DATA_TABLE

    &----


    • text

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM BUILD_XLS_DATA_TABLE .

    data: wa_itab like it_final.

    CONSTANTS:

    CON_TAB TYPE C VALUE CL_ABAP_CHAR_UTILITIES=>HORIZONTAL_TAB,

    CON_CRET TYPE C VALUE CL_ABAP_CHAR_UTILITIES=>CR_LF.

    CONCATENATE 'Business Place' 'Region Code' 'Region' 'Branch Code'

    'Branch' 'Material Desc' 'Area off Code'

    'Area Name' 'Zone code' 'Zone Name' 'Cust No' 'Cust Name'

    'Bill Doc No' 'Bill Date' 'Base Val' 'Total Val' 'Quantity'

    INTO IT_ATTACH SEPARATED BY CON_TAB.

    CONCATENATE CON_CRET IT_ATTACH INTO IT_ATTACH.

    APPEND IT_ATTACH.

    LOOP AT IT_FINAL INTO WA_ITAB.

    CONCATENATE WA_ITAB-BUSINESS_PLACE

    WA_ITAB-KVGR1

    WA_ITAB-REGION

    WA_ITAB-VKBUR

    WA_ITAB-SALES_OFF

    WA_ITAB-ARKTX

    WA_ITAB-vkgrp

    WA_ITAB-sales_grp

    WA_ITAB-bzirk

    WA_ITAB-zone

    WA_ITAB-kunnr

    WA_ITAB-name

    WA_ITAB-vbeln

    WA_ITAB-fkdat

    WA_ITAB-base_value

    WA_ITAB-total_value

    WA_ITAB-fkimg

    INTO IT_ATTACH SEPARATED BY CON_TAB.

    CONCATENATE CON_CRET IT_ATTACH INTO IT_ATTACH.

    APPEND IT_ATTACH.

    ENDLOOP.

    ENDFORM. " BUILD_XLS_DATA_TABLE

    &----


    *& Form POPULATE_EMAIL_MESSAGE_BODY

    &----


    • text

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM POPULATE_EMAIL_MESSAGE_BODY .

    REFRESH IT_MESSAGE.

    CONCATENATE SY-DATUM6(2) '/' SY-DATUM4(2) '/' SY-DATUM+0(4) INTO G_DATE.

    IT_MESSAGE = 'Please find attached excel sheet.'.

    APPEND IT_MESSAGE.

    Concatenate 'Report generated date' ':' G_Date '.' into IT_MESSAGE.

    APPEND IT_MESSAGE.

    clear it_message.

    append it_message.

    IT_MESSAGE = 'This is an autogenerated mail, please do not reply'.

    APPEND IT_MESSAGE.

    ENDFORM. " POPULATE_EMAIL_MESSAGE_BODY

    &----


    *& Form SEND_FILE_AS_EMAIL_ATTACHMENT

    &----


    • Send email

    ----


    FORM SEND_FILE_AS_EMAIL_ATTACHMENT TABLES PIT_MESSAGE

    PIT_ATTACH

    USING P_EMAIL

    P_MTITLE

    P_FORMAT

    P_FILENAME

    P_ATTDESCRIPTION

    P_SENDER_ADDRESS

    P_SENDER_ADDRES_TYPE

    CHANGING P_ERROR

    P_RECIEVER.

    DATA: LD_ERROR TYPE SY-SUBRC,

    LD_RECIEVER TYPE SY-SUBRC,

    LD_MTITLE LIKE SODOCCHGI1-OBJ_DESCR,

    LD_EMAIL LIKE SOMLRECI1-RECEIVER,

    LD_FORMAT TYPE SO_OBJ_TP ,

    LD_ATTDESCRIPTION TYPE SO_OBJ_NAM ,

    LD_ATTFILENAME TYPE SO_OBJ_DES ,

    LD_SENDER_ADDRESS LIKE SOEXTRECI1-RECEIVER,

    LD_SENDER_ADDRESS_TYPE LIKE SOEXTRECI1-ADR_TYP,

    LD_RECEIVER LIKE SY-SUBRC.

    LD_EMAIL = P_EMAIL.

    LD_MTITLE = P_MTITLE.

    LD_FORMAT = P_FORMAT.

    LD_ATTDESCRIPTION = P_ATTDESCRIPTION.

    LD_ATTFILENAME = P_FILENAME.

    LD_SENDER_ADDRESS = P_SENDER_ADDRESS.

    LD_SENDER_ADDRESS_TYPE = P_SENDER_ADDRES_TYPE.

    • Fill the document data.

    W_DOC_DATA-DOC_SIZE = 1.

    • Populate the subject/generic message attributes

    W_DOC_DATA-OBJ_LANGU = SY-LANGU.

    W_DOC_DATA-OBJ_NAME = 'SAPRPT'.

    W_DOC_DATA-OBJ_DESCR = LD_MTITLE .

    W_DOC_DATA-SENSITIVTY = 'F'.

    • Fill the document data and get size of attachment

    CLEAR W_DOC_DATA.

    READ TABLE IT_ATTACH INDEX W_CNT.

    W_DOC_DATA-DOC_SIZE =

    ( W_CNT - 1 ) * 255 + STRLEN( IT_ATTACH ).

    W_DOC_DATA-OBJ_LANGU = SY-LANGU.

    W_DOC_DATA-OBJ_NAME = 'SAPRPT'.

    W_DOC_DATA-OBJ_DESCR = LD_MTITLE.

    W_DOC_DATA-SENSITIVTY = 'F'.

    CLEAR T_ATTACHMENT.

    REFRESH T_ATTACHMENT.

    T_ATTACHMENT[] = PIT_ATTACH[].

    • Describe the body of the message

    CLEAR T_PACKING_LIST.

    REFRESH T_PACKING_LIST.

    T_PACKING_LIST-TRANSF_BIN = SPACE.

    T_PACKING_LIST-HEAD_START = 1.

    T_PACKING_LIST-HEAD_NUM = 0.

    T_PACKING_LIST-BODY_START = 1.

    T_PACKING_LIST-OBJ_NAME = 'stb'.

    DESCRIBE TABLE IT_MESSAGE LINES T_PACKING_LIST-BODY_NUM.

    T_PACKING_LIST-DOC_TYPE = 'RAW'.

    APPEND T_PACKING_LIST.

    • Create attachment notification

    T_PACKING_LIST-TRANSF_BIN = 'X'.

    T_PACKING_LIST-HEAD_START = 1.

    T_PACKING_LIST-HEAD_NUM = 1.

    T_PACKING_LIST-BODY_START = 1.

    DESCRIBE TABLE T_ATTACHMENT LINES T_PACKING_LIST-BODY_NUM.

    • T_PACKING_LIST-DOC_TYPE = LD_FORMAT.

    T_PACKING_LIST-DOC_TYPE = 'XLS'.

    • T_PACKING_LIST-OBJ_DESCR = LD_ATTDESCRIPTION.

    T_PACKING_LIST-OBJ_DESCR = 'Sales_STB'.

    • T_PACKING_LIST-OBJ_NAME = LD_ATTFILENAME.

    T_PACKING_LIST-OBJ_NAME = 'stb'.

    T_PACKING_LIST-DOC_SIZE = T_PACKING_LIST-BODY_NUM * 255.

    APPEND T_PACKING_LIST.

    • Add the recipients email address

    CLEAR T_RECEIVERS.

    REFRESH T_RECEIVERS.

    LOOP AT IT_RECV.

    T_RECEIVERS-RECEIVER = IT_RECV-EMAIL.

    T_RECEIVERS-REC_TYPE = 'U'.

    • T_RECEIVERS-COM_TYPE = 'INT'.

    • T_RECEIVERS-COPY = 'X'.

    • T_RECEIVERS-NOTIF_DEL = 'X'.

    • T_RECEIVERS-NOTIF_NDEL = 'X'.

    APPEND T_RECEIVERS.

    ENDLOOP.

    CALL FUNCTION 'SO_DOCUMENT_SEND_API1'

    EXPORTING

    DOCUMENT_DATA = W_DOC_DATA

    PUT_IN_OUTBOX = 'X'

    SENDER_ADDRESS = LD_SENDER_ADDRESS

    SENDER_ADDRESS_TYPE = LD_SENDER_ADDRESS_TYPE

    COMMIT_WORK = 'X'

    IMPORTING

    SENT_TO_ALL = W_SENT_ALL

    TABLES

    PACKING_LIST = T_PACKING_LIST

    CONTENTS_BIN = T_ATTACHMENT

    CONTENTS_TXT = IT_MESSAGE

    RECEIVERS = T_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.

    • Populate zerror return code

    LD_ERROR = SY-SUBRC.

    • Populate zreceiver return code

    LOOP AT T_RECEIVERS.

    LD_RECEIVER = T_RECEIVERS-RETRN_CODE.

    ENDLOOP.

    ENDFORM. "SEND_FILE_AS_EMAIL_ATTACHMENT

    &----


    *& Form INITIATE_MAIL_EXECUTE_PROGRAM

    &----


    • text

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM INITIATE_MAIL_EXECUTE_PROGRAM .

    WAIT UP TO 2 SECONDS.

    SUBMIT RSCONN01 WITH MODE = 'INT'

    WITH OUTPUT = ''

    AND RETURN.

    ENDFORM. " INITIATE_MAIL_EXECUTE_PROGRAM

    &----


    *& Form SUB_GET_MAIL_ADDR

    &----


    • text

    ----


    • --> p1 text

    • <-- p2 text

    ----


    FORM SUB_GET_MAIL_ADDR .

    select * from ZSD_REP_MAIL INTO TABLE IT_RECV.

    ENDFORM. " SUB_GET_MAIL_ADDR

    Add a comment
    10|10000 characters needed characters exceeded

  • author's profile photo Former Member
    Former Member
    Posted on Jan 24, 2007 at 08:24 AM

    HI,

    /people/thomas.jung3/blog/2004/09/08/sending-e-mail-from-abap--version-610-and-higher--bcs-interface

    Check these link..

    Cofiguration:

    /people/thomas.jung3/blog/2004/09/08/sending-e-mail-from-abap--version-610-and-higher--bcs-interface

    Sample Code:

    http://www.sap-img.com/abap/sending-email-with-attachment.htm

    Have a look at below code:

    REPORT ZSENDEXTERNAL.

    DATA: OBJPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE.

    DATA: OBJHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE.

    DATA: OBJBIN LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.

    DATA: OBJTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.

    DATA: RECLIST LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE.

    DATA: DOC_CHNG LIKE SODOCCHGI1.

    DATA: TAB_LINES LIKE SY-TABIX.

    • Creation of the document to be sent

    • File Name

    DOC_CHNG-OBJ_NAME = 'SENDFILE'.

    • Mail Subject

    DOC_CHNG-OBJ_DESCR = 'Send External Mail'.

    • Mail Contents

    OBJTXT = 'Minimum bid : $250000'.

    APPEND OBJTXT.

    OBJTXT = 'A representation of the pictures up for auction'.

    APPEND OBJTXT.

    OBJTXT = 'was included as attachment.'.

    APPEND OBJTXT.

    DESCRIBE TABLE OBJTXT LINES TAB_LINES.

    READ TABLE OBJTXT INDEX TAB_LINES.

    DOC_CHNG-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ).

    • Creation of the entry for the compressed document

    CLEAR OBJPACK-TRANSF_BIN.

    OBJPACK-HEAD_START = 1.

    OBJPACK-HEAD_NUM = 0.

    OBJPACK-BODY_START = 1.

    OBJPACK-BODY_NUM = TAB_LINES.

    OBJPACK-DOC_TYPE = 'RAW'.

    APPEND OBJPACK.

    • Creation of the document attachment

    • (Assume that the data in OBJBIN is in BMP format)

    *OBJBIN = ' \O/ '. APPEND OBJBIN.

    *OBJBIN = ' | '. APPEND OBJBIN.

    *OBJBIN = ' / \ '. APPEND OBJBIN.

    *DESCRIBE TABLE OBJBIN LINES TAB_LINES.

    *OBJHEAD = 'PICTURE.BMP'.

    *APPEND OBJHEAD.

    • Creation of the entry for the compressed attachment

    *OBJPACK-TRANSF_BIN = 'X'.

    *OBJPACK-HEAD_START = 1.

    *OBJPACK-HEAD_NUM = 1.

    *OBJPACK-BODY_START = 1.

    *OBJPACK-BODY_NUM = TAB_LINES.

    *OBJPACK-DOC_TYPE = 'BMP'.

    *OBJPACK-OBJ_NAME = 'PICTURE'.

    *OBJPACK-OBJ_DESCR = 'Representation of object 138'.

    *OBJPACK-DOC_SIZE = TAB_LINES * 255.

    *APPEND OBJPACK.

    • Completing the recipient list

    RECLIST-RECEIVER = 'youremail@sap.com'.

    RECLIST-REC_TYPE = 'U'.

    APPEND RECLIST.

    *RECLIST-RECEIVER = 'SAPUSERNAME'.

    *RECLIST-REC_TYPE = 'P'.

    *APPEND RECLIST.

    • Sending the document

    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'

    EXPORTING

    DOCUMENT_DATA = DOC_CHNG

    PUT_IN_OUTBOX = 'X'

    TABLES

    PACKING_LIST = OBJPACK

    OBJECT_HEADER = OBJHEAD

    CONTENTS_BIN = OBJBIN

    CONTENTS_TXT = OBJTXT

    RECEIVERS = RECLIST

    EXCEPTIONS

    TOO_MANY_RECEIVERS = 1

    DOCUMENT_NOT_SENT = 2

    OPERATION_NO_AUTHORIZATION = 4

    OTHERS = 99.

    CASE SY-SUBRC.

    WHEN 0.

    WRITE: / 'Result of the send process:'.

    LOOP AT RECLIST.

    WRITE: / RECLIST-RECEIVER(48), ':'.

    IF RECLIST-RETRN_CODE = 0.

    WRITE 'The document was sent'.

    ELSE.

    WRITE 'The document could not be sent'.

    ENDIF.

    ENDLOOP.

    WHEN 1.

    WRITE: / 'No authorization for sending to the specified number',

    'of recipients'.

    WHEN 2.

    WRITE: / 'Document could not be sent to any recipient'.

    WHEN 4.

    WRITE: / 'No send authorization'.

    WHEN OTHERS.

    WRITE: / 'Error occurred while sending'.

    ENDCASE.

    Reward points if this helps.

    Manish

    Add a comment
    10|10000 characters needed characters exceeded

Before answering

You should only submit an answer when you are proposing a solution to the poster's problem. If you want the poster to clarify the question or provide more information, please leave a comment instead, requesting additional details. When answering, please include specifics, such as step-by-step instructions, context for the solution, and links to useful resources. Also, please make sure that you answer complies with our Rules of Engagement.
You must be Logged in to submit an answer.

Up to 10 attachments (including images) can be used with a maximum of 1.0 MB each and 10.5 MB total.