topic Re: trigger mail in Application Development and Automation Discussions

trigger mail

Former Member — Tue, 07 Aug 2007 11:09:01 GMT

Hello experts,

i want to trigger mail with the output of the report, means as the report gets executed i want to trigger mail with the displayed output....

sample code highly appreciated...............

Re: trigger mail

Former Member — Tue, 07 Aug 2007 11:13:14 GMT

Hi,

Look at the below which is having the example Program

http://www.sap-img.com/abap/sending-mail-with-attachment-report-in-background.htm

Regards

Sudheer

Re: trigger mail

Former Member — Tue, 07 Aug 2007 11:16:16 GMT

Hello,

Check this sample report.This report will be very useful for your requirement


REPORT ZV_JOB_READ NO STANDARD PAGE HEADING LINE-SIZE 255..

TABLES: TSP01.
DATA: SV_ADR TYPE SOMLRECI1-RECEIVER.
SELECT-OPTIONS : P_EMAIL1 FOR SV_ADR NO INTERVALS.
*DEFAULT 'me.report@domain.co.in',
PARAMETERS: P_SENDER LIKE SOMLRECI1-RECEIVER,
*DEFAULT 'you.report@domain.co.in',
            P_REPID LIKE SY-REPID, " Report to execute
            P_LINSZ LIKE SY-LINSZ DEFAULT 132, " Line size
            P_PAART LIKE SY-PAART DEFAULT 'X_65_132', " Paper Format
            P_SLSET LIKE SY-SLSET, "Variant name
            P_ODESCR LIKE SODOCCHGI1-OBJ_DESCR,
            P_ADESCR TYPE SO_OBJ_NAM,
            P_DELSPL AS CHECKBOX.
*DATA DECLARATION
DATA: GD_RECSIZE TYPE I.
* Spool IDs
TYPES: BEGIN OF T_TBTCP.
        INCLUDE STRUCTURE TBTCP.
TYPES: END OF T_TBTCP.
DATA: IT_TBTCP TYPE STANDARD TABLE OF T_TBTCP INITIAL SIZE 0,
      WA_TBTCP TYPE T_TBTCP.
* Job Runtime Parameters
DATA: GD_EVENTID LIKE TBTCM-EVENTID,
      GD_EVENTPARM LIKE TBTCM-EVENTPARM,
      GD_EXTERNAL_PROGRAM_ACTIVE LIKE TBTCM-XPGACTIVE,
      GD_JOBCOUNT LIKE TBTCM-JOBCOUNT,
      GD_JOBNAME LIKE TBTCM-JOBNAME,
      GD_STEPCOUNT LIKE TBTCM-STEPCOUNT,
      GD_ERROR TYPE SY-SUBRC,
      GD_RECIEVER TYPE SY-SUBRC.
DATA: W_RECSIZE TYPE I,
      MC_VALID(1) TYPE C.
DATA: GD_SUBJECT LIKE SODOCCHGI1-OBJ_DESCR,
      IT_MESS_BOD LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
      IT_MESS_ATT LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
      GD_SENDER_TYPE LIKE SOEXTRECI1-ADR_TYP,
      GD_ATTACHMENT_DESC TYPE SO_OBJ_NAM,
      GD_ATTACHMENT_NAME TYPE SO_OBJ_DES,
      MI_RQIDENT LIKE TSP01-RQIDENT.
* Spool to PDF conversions
DATA: GD_SPOOL_NR LIKE TSP01-RQIDENT,
      W_SPOOL_NR LIKE TSP01-RQIDENT,
      GD_DESTINATION LIKE RLGRAP-FILENAME,
      GD_BYTECOUNT LIKE TST01-DSIZE,
      GD_BUFFER TYPE STRING.
DATA: MSTR_PRINT_PARMS LIKE PRI_PARAMS.
* Binary store for PDF
DATA: BEGIN OF IT_PDF_OUTPUT OCCURS 0.
        INCLUDE STRUCTURE TLINE.
DATA: END OF IT_PDF_OUTPUT.
CONSTANTS: C_DEV LIKE SY-SYSID VALUE 'DEV',
           C_NO(1) TYPE C VALUE ' ',
           C_DEVICE(4) TYPE C VALUE 'LOCL'.
************************************************************************
START-OF-SELECTION.
* Write statement to represent report output. Spool request is created
* if write statement is executed in background. This could also be an
* ALV grid which would be converted to PDF without any extra effort
*** Alternative way could be to submit another program and store spool
************************************
  CALL FUNCTION 'GET_PRINT_PARAMETERS'
  EXPORTING
        AUTHORITY = SPACE
        COPIES = '1'
        COVER_PAGE = SPACE
        DATA_SET = SPACE
        DEPARTMENT = SPACE
        DESTINATION = SPACE
        EXPIRATION = '1'
        IMMEDIATELY = SPACE
*       in_archive_parameters = space
*       in_parameters = space
        LAYOUT = SPACE
        MODE = SPACE
        NEW_LIST_ID = 'X'
        NO_DIALOG = 'X'
        USER = SY-UNAME
  IMPORTING
        OUT_PARAMETERS = MSTR_PRINT_PARMS
        VALID = MC_VALID
  EXCEPTIONS
        ARCHIVE_INFO_NOT_FOUND = 1
        INVALID_PRINT_PARAMS = 2
        INVALID_ARCHIVE_PARAMS = 3
        OTHERS = 4.
  IF MSTR_PRINT_PARMS-PDEST = SPACE.
    MSTR_PRINT_PARMS-PDEST = 'LOCL'.
  ENDIF.
  MSTR_PRINT_PARMS-LINSZ = P_LINSZ.
  MSTR_PRINT_PARMS-PAART = P_PAART.
  SUBMIT (P_REPID) TO SAP-SPOOL WITHOUT SPOOL DYNPRO
                      SPOOL PARAMETERS MSTR_PRINT_PARMS
                      USING SELECTION-SET P_SLSET
                      AND RETURN.
* Get spool id from program called above
  PERFORM GET_SPOOL_NUMBER USING SY-REPID SY-UNAME CHANGING MI_RQIDENT.
* IMPORT w_spool_nr FROM MEMORY ID SY-REPID.
  PERFORM CONVERT_SPOOL_TO_PDF.
  PERFORM PROCESS_EMAIL.
  IF P_DELSPL EQ 'X'.
    PERFORM DELETE_SPOOL.
  ENDIF.
  IF SY-SYSID = C_DEV.
    WAIT UP TO 5 SECONDS.
    SUBMIT RSCONN01 WITH MODE = 'INT'
    WITH OUTPUT = 'X'
    AND RETURN.
  ENDIF.

*---------------------------------------------------------------------*
* FORM obtain_spool_id *
*---------------------------------------------------------------------*
FORM OBTAIN_SPOOL_ID.
  CHECK NOT ( GD_JOBNAME IS INITIAL ).
  CHECK NOT ( GD_JOBCOUNT IS INITIAL ).
  SELECT * FROM TBTCP INTO TABLE IT_TBTCP
                              WHERE JOBNAME = GD_JOBNAME
                              AND JOBCOUNT = GD_JOBCOUNT
                              AND STEPCOUNT = GD_STEPCOUNT
                              AND LISTIDENT <> '0000000000'
                              ORDER BY JOBNAME
                              JOBCOUNT
                              STEPCOUNT.
  READ TABLE IT_TBTCP INTO WA_TBTCP INDEX 1.
  IF SY-SUBRC = 0.
    MESSAGE S004(ZDD) WITH GD_SPOOL_NR.
    GD_SPOOL_NR = WA_TBTCP-LISTIDENT.
    MESSAGE S004(ZDD) WITH GD_SPOOL_NR.
  ELSE.
    MESSAGE S005(ZDD).
  ENDIF.
ENDFORM. "OBTAIN_SPOOL_ID
*---------------------------------------------------------------------*
* FORM get_job_details *
*---------------------------------------------------------------------*
FORM GET_JOB_DETAILS.
* Get current job details
  CALL FUNCTION 'GET_JOB_RUNTIME_INFO'
       IMPORTING
            EVENTID                 = GD_EVENTID
            EVENTPARM               = GD_EVENTPARM
            EXTERNAL_PROGRAM_ACTIVE = GD_EXTERNAL_PROGRAM_ACTIVE
            JOBCOUNT                = GD_JOBCOUNT
            JOBNAME                 = GD_JOBNAME
            STEPCOUNT               = GD_STEPCOUNT
       EXCEPTIONS
            NO_RUNTIME_INFO         = 1
            OTHERS                  = 2.
ENDFORM. "GET_JOB_DETAILS
*---------------------------------------------------------------------*
* FORM convert_spool_to_pdf *
*---------------------------------------------------------------------*
FORM CONVERT_SPOOL_TO_PDF.
  CALL FUNCTION 'CONVERT_ABAPSPOOLJOB_2_PDF'
       EXPORTING
            SRC_SPOOLID              = MI_RQIDENT
            NO_DIALOG                = C_NO
            DST_DEVICE               = C_DEVICE
       IMPORTING
            PDF_BYTECOUNT            = GD_BYTECOUNT
       TABLES
            PDF                      = IT_PDF_OUTPUT
       EXCEPTIONS
            ERR_NO_ABAP_SPOOLJOB     = 1
            ERR_NO_SPOOLJOB          = 2
            ERR_NO_PERMISSION        = 3
            ERR_CONV_NOT_POSSIBLE    = 4
            ERR_BAD_DESTDEVICE       = 5
            USER_CANCELLED           = 6
            ERR_SPOOLERROR           = 7
            ERR_TEMSEERROR           = 8
            ERR_BTCJOB_OPEN_FAILED   = 9
            ERR_BTCJOB_SUBMIT_FAILED = 10
            ERR_BTCJOB_CLOSE_FAILED  = 11
            OTHERS                   = 12.
  CHECK SY-SUBRC = 0.
* Transfer the 132-long strings to 255-long strings
  LOOP AT IT_PDF_OUTPUT.
    TRANSLATE IT_PDF_OUTPUT USING ' ~'.
    CONCATENATE GD_BUFFER IT_PDF_OUTPUT INTO GD_BUFFER.
  ENDLOOP.
  TRANSLATE GD_BUFFER USING '~ '.
  DO.
    IT_MESS_ATT = GD_BUFFER.
    APPEND IT_MESS_ATT.
    SHIFT GD_BUFFER LEFT BY 255 PLACES.
    IF GD_BUFFER IS INITIAL.
      EXIT.
    ENDIF.
  ENDDO.
ENDFORM. "CONVERT_SPOOL_TO_PDF
*---------------------------------------------------------------------*
* FORM process_email *
*---------------------------------------------------------------------*
FORM PROCESS_EMAIL.
  DESCRIBE TABLE IT_MESS_ATT LINES GD_RECSIZE.
  CHECK GD_RECSIZE > 0.
  LOOP AT P_EMAIL1.
    PERFORM SEND_EMAIL USING P_EMAIL1-LOW.
  ENDLOOP.
* perform send_email using p_email2.
ENDFORM. "PROCESS_EMAIL
*---------------------------------------------------------------------*
* FORM send_email *
*---------------------------------------------------------------------*
* --> p_email *
*---------------------------------------------------------------------*
FORM SEND_EMAIL USING P_EMAIL.
  CHECK NOT ( P_EMAIL IS INITIAL ).
  REFRESH IT_MESS_BOD.
* Default subject matter
  GD_SUBJECT = P_ODESCR.
  GD_ATTACHMENT_DESC = P_ADESCR.
* CONCATENATE 'attach_name' ' ' INTO gd_attachment_name.
  IT_MESS_BOD = TEXT-001." 'This is an automated report from SAP.'.
  APPEND IT_MESS_BOD.
  IT_MESS_BOD = TEXT-002. " 'Please do not reply to this mail id.'.
  APPEND IT_MESS_BOD.
  IF P_SENDER EQ SPACE.
    GD_SENDER_TYPE = SPACE.
  ELSE.
    GD_SENDER_TYPE = 'INT'.
  ENDIF.

* Send file by email as .xls speadsheet
  PERFORM SEND_FILE_AS_EMAIL_ATTACHMENT
                                TABLES IT_MESS_BOD
                                IT_MESS_ATT
                                USING P_EMAIL
                                P_ODESCR
                                'PDF'
                                GD_ATTACHMENT_NAME
                                GD_ATTACHMENT_DESC
                                P_SENDER
                                GD_SENDER_TYPE
                                CHANGING GD_ERROR
                                GD_RECIEVER.
ENDFORM. "SEND_EMAIL
*---------------------------------------------------------------------*
* FORM delete_spool *
*---------------------------------------------------------------------*
FORM DELETE_SPOOL.
  DATA: LD_SPOOL_NR TYPE TSP01_SP0R-RQID_CHAR.
  LD_SPOOL_NR = GD_SPOOL_NR.
  CHECK P_DELSPL <> C_NO.
  CALL FUNCTION 'RSPO_R_RDELETE_SPOOLREQ'
       EXPORTING
            SPOOLID = LD_SPOOL_NR.
ENDFORM. "DELETE_SPOOL
*&---------------------------------------------------------------------*
*& Form SEND_FILE_AS_EMAIL_ATTACHMENT
*&---------------------------------------------------------------------*
* Send email
*----------------------------------------------------------------------*
FORM SEND_FILE_AS_EMAIL_ATTACHMENT TABLES IT_MESSAGE
                                          IT_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.
  DATA: T_PACKING_LIST LIKE SOPCKLSTI1 OCCURS 0 WITH HEADER LINE,
  T_CONTENTS LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
  T_RECEIVERS LIKE SOMLRECI1 OCCURS 0 WITH HEADER LINE,
  T_ATTACHMENT LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
  T_OBJECT_HEADER LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
  W_CNT TYPE I,
  W_SENT_ALL(1) TYPE C,
  W_DOC_DATA LIKE SODOCCHGI1.
  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[] = IT_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.
  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-OBJ_DESCR = LD_ATTDESCRIPTION.
  T_PACKING_LIST-OBJ_NAME = LD_ATTFILENAME.
  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.
  T_RECEIVERS-RECEIVER = LD_EMAIL.
  T_RECEIVERS-REC_TYPE = 'U'.
  T_RECEIVERS-COM_TYPE = 'INT'.
  T_RECEIVERS-NOTIF_DEL = 'X'.
  T_RECEIVERS-NOTIF_NDEL = 'X'.
  APPEND T_RECEIVERS.
  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 GET_SPOOL_NUMBER
*&---------------------------------------------------------------------*
* text
*----------------------------------------------------------------------*
* -->P_SY_REPID text
* -->P_SY_UNAME text
* <--P_MI_RQIDENT text
*----------------------------------------------------------------------*
FORM GET_SPOOL_NUMBER USING F_REPID
                            F_UNAME
                            CHANGING F_RQIDENT.
  DATA:
  LC_RQ2NAME LIKE TSP01-RQ2NAME.
  CONCATENATE F_REPID+0(9)
  F_UNAME+0(3)
  INTO LC_RQ2NAME.
  SELECT * FROM TSP01 WHERE RQ2NAME = LC_RQ2NAME
                      ORDER BY RQCRETIME DESCENDING.
    F_RQIDENT = TSP01-RQIDENT.
    EXIT.
  ENDSELECT.
  IF SY-SUBRC NE 0.
    CLEAR F_RQIDENT.
  ENDIF.
ENDFORM. " GET_SPOOL_NUMBER

Regards,

Vasanth

Re: trigger mail

Former Member — Tue, 07 Aug 2007 11:16:31 GMT

Hi,

Here is the example program

&----

*& Report ZSENDEMAIL *

*& *

&----

*& Example of sending external email via SAPCONNECT *

*& *

&----

REPORT zsendemail .

PARAMETERS: psubject(40) type c default 'Hello',

p_email(40) type c default 'test@sapdev.co.uk' .

data: it_packing_list like sopcklsti1 occurs 0 with header line,

it_contents like solisti1 occurs 0 with header line,

it_receivers like somlreci1 occurs 0 with header line,

it_attachment like solisti1 occurs 0 with header line,

gd_cnt type i,

gd_sent_all(1) type c,

gd_doc_data like sodocchgi1,

gd_error type sy-subrc.

data: it_message type standard table of SOLISTI1 initial size 0

with header line.

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

*START-OF-SELECTION.

START-OF-SELECTION.

Perform populate_message_table.

*Send email message, although is not sent from SAP until mail send

*program has been executed(rsconn01)

PERFORM send_email_message.

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

perform initiate_mail_execute_program.

&----

*& Form POPULATE_MESSAGE_TABLE

&----

Adds text to email text table

----

form populate_message_table.

Append 'Email line 1' to it_message.

Append 'Email line 2' to it_message.

Append 'Email line 3' to it_message.

Append 'Email line 4' to it_message.

endform. " POPULATE_MESSAGE_TABLE

&----

*& Form SEND_EMAIL_MESSAGE

&----

Send email message

----

form send_email_message.

Fill the document data.

gd_doc_data-doc_size = 1.

Populate the subject/generic message attributes

gd_doc_data-obj_langu = sy-langu.

gd_doc_data-obj_name = 'SAPRPT'.

gd_doc_data-obj_descr = psubject.

gd_doc_data-sensitivty = 'F'.

Describe the body of the message

clear it_packing_list.

refresh it_packing_list.

it_packing_list-transf_bin = space.

it_packing_list-head_start = 1.

it_packing_list-head_num = 0.

it_packing_list-body_start = 1.

describe table it_message lines it_packing_list-body_num.

it_packing_list-doc_type = 'RAW'.

append it_packing_list.

Add the recipients email address

clear it_receivers.

refresh it_receivers.

it_receivers-receiver = p_email.

it_receivers-rec_type = 'U'.

it_receivers-com_type = 'INT'.

it_receivers-notif_del = 'X'.

it_receivers-notif_ndel = 'X'.

append it_receivers.

Call the FM to post the message to SAPMAIL

call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'

exporting

document_data = gd_doc_data

put_in_outbox = 'X'

importing

sent_to_all = gd_sent_all

tables

packing_list = it_packing_list

contents_txt = it_message

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

Store function module return code

gd_error = sy-subrc.

Get it_receivers return code

loop at it_receivers.

endloop.

endform. " SEND_EMAIL_MESSAGE

&----

*& Form INITIATE_MAIL_EXECUTE_PROGRAM

&----

Instructs mail send program for SAPCONNECT to send email.

----

form initiate_mail_execute_program.

wait up to 2 seconds.

if gd_error eq 0.

submit rsconn01 with mode = 'INT'

with output = 'X'

and return.

endif.

endform. " INITIATE_MAIL_EXECUTE_PROGRAM

Regards

Re: trigger mail

Former Member — Tue, 07 Aug 2007 11:29:17 GMT

hi,

Use the Function Module 'so_document_send_api1' to trigger mail.

go thro this sample code to get an idea to how send a mail...

REPORT ZSSO_DOCUMENT_SEND_API1.

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.

* Creating the document to be sent

DOC_CHNG-OBJ_NAME = 'OFFER'.

DOC_CHNG-OBJ_DESCR = 'Auction of a Picasso jr'.

OBJTXT = 'Reserve price : $250000'.

APPEND OBJTXT.

OBJTXT = 'A reproduction of the painting to be auctioned'.

APPEND OBJTXT.

OBJTXT = 'is enclosed as an 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 ).

* Creating 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.

* Creating the document attachment

(Assume the data in OBJBIN are given in BMP format)

OBJBIN = ' \O/ '. APPEND OBJBIN.

OBJBIN = ' | '. APPEND OBJBIN.

OBJBIN = ' / \ '. APPEND OBJBIN.

DESCRIBE TABLE OBJBIN LINES TAB_LINES.

OBJHEAD = 'picasso.bmp'. APPEND OBJHEAD.

* Creating 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 = 'ATTACHMENT'.

OBJPACK-OBJ_DESCR = 'Reproduction object 138'.

OBJPACK-DOC_SIZE = TAB_LINES * 255.

APPEND OBJPACK..

Entering names in the distribution list

RECLIST-RECEIVER = 'guido.geldsack@money.com'.

RECLIST-REC_TYPE = 'U'.

APPEND RECLIST.

RECLIST-RECEIVER = 'DLI-NEUREICH'.

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'

COMMIT_WORK = '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 'sent successfully'.

ELSE.

WRITE 'not sent'.

ENDIF.

ENDLOOP.

WHEN 1.

WRITE: / 'no authorization to send to the specified number of' 'recipients!'.

WHEN 2.

WRITE: / 'document could not be sent to any of the recipients!'.

WHEN 4.

WRITE: / 'no authorization to send !'.

WHEN OTHERS.

WRITE: / 'error occurred during sending !'.

ENDCASE.

Hope this helps u....

Regards,

Viji

Re: trigger mail

Former Member — Tue, 07 Aug 2007 11:32:46 GMT

HI THIS PROGRAM IS USED TO SEND A MAIL

BY USEING THIS PROGRAM IN UR PROGRAM YOU CAN DO THIS

REWARD IF USEFULL

PARAMETERS: psubject(40) type c default 'Hello',

p_email(40) type c default 'test@sapdev.co.uk' .

data: it_packing_list like sopcklsti1 occurs 0 with header line,

it_contents like solisti1 occurs 0 with header line,

it_receivers like somlreci1 occurs 0 with header line,

it_attachment like solisti1 occurs 0 with header line,

gd_cnt type i,

gd_sent_all(1) type c,

gd_doc_data like sodocchgi1,

gd_error type sy-subrc.

data: it_message type standard table of SOLISTI1 initial size 0

with header line.

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

*START-OF-SELECTION.

START-OF-SELECTION.

Perform populate_message_table.

*Send email message, although is not sent from SAP until mail send

*program has been executed(rsconn01)

PERFORM send_email_message.

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

perform initiate_mail_execute_program.

&----

*& Form POPULATE_MESSAGE_TABLE

&----

Adds text to email text table

----

form populate_message_table.

Append 'Email line 1' to it_message.

Append 'Email line 2' to it_message.

Append 'Email line 3' to it_message.

Append 'Email line 4' to it_message.

endform. " POPULATE_MESSAGE_TABLE

&----

*& Form SEND_EMAIL_MESSAGE

&----

Send email message

----

form send_email_message.

Fill the document data.

gd_doc_data-doc_size = 1.

Populate the subject/generic message attributes

gd_doc_data-obj_langu = sy-langu.

gd_doc_data-obj_name = 'SAPRPT'.

gd_doc_data-obj_descr = psubject.

gd_doc_data-sensitivty = 'F'.

Describe the body of the message

clear it_packing_list.

refresh it_packing_list.

it_packing_list-transf_bin = space.

it_packing_list-head_start = 1.

it_packing_list-head_num = 0.

it_packing_list-body_start = 1.

describe table it_message lines it_packing_list-body_num.

it_packing_list-doc_type = 'RAW'.

append it_packing_list.

Add the recipients email address

clear it_receivers.

refresh it_receivers.

it_receivers-receiver = p_email.

it_receivers-rec_type = 'U'.

it_receivers-com_type = 'INT'.

it_receivers-notif_del = 'X'.

it_receivers-notif_ndel = 'X'.

append it_receivers.

Call the FM to post the message to SAPMAIL

call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'

exporting

document_data = gd_doc_data

put_in_outbox = 'X'

importing

sent_to_all = gd_sent_all

tables

packing_list = it_packing_list

contents_txt = it_message

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

Store function module return code

gd_error = sy-subrc.

Get it_receivers return code

loop at it_receivers.

endloop.

endform. " SEND_EMAIL_MESSAGE

&----

*& Form INITIATE_MAIL_EXECUTE_PROGRAM

&----

Instructs mail send program for SAPCONNECT to send email.

----

form initiate_mail_execute_program.

wait up to 2 seconds.

if gd_error eq 0.

submit rsconn01 with mode = 'INT'

with output = 'X'

and return.

endif.

endform. " INITIATE_MAIL_EXECUTE_PROGRAM

Re: trigger mail

Former Member — Tue, 07 Aug 2007 13:06:36 GMT

Hi,

Refer to the following link:

http://sap-img.com/abap/sending-mail-when-the-purchase-order-is-released.htm

Hope this helps.

Reward if helpful.

Regards,

Sipra