Send mail in report 6i

hi,
i would like to send my report though email .. what do i have to do ??
i want once the preview report open i press send button in the report and it will send it after writeing the email to and from ..
thanks in advance

reports 6i client/server or web ?
by the way: There is a reportforum: Reports

Similar Messages

Problem in sending mail from REPORT BUILDER...HELP ...PLS ....URGENT

Hi All,
I added the mailserver part in the rwbuilder.conf file.This is how it looks
<pluginParam name="mailServer">smtp.xxx.com</pluginParam>
The smtp server of our company is working fine.
Now when i am sending mail frm report builder i am getting the error.
Pls tell me .....
Do i have to configure any other file?
Should the smtp server be running in my local machine?WHAT IS THE SOLUTION ...FOR THIS PROBLEM?
Please someone give me some guidance..
regards,
ashok

Hi,
Pls give some idea ......
your reply will be greatly appreciated.
regards,
ashok

Send Mail Through Reports 6i Problem

Can we add our(Coustomize) subject line instead of "Report sent from Report Builder"
When we are sending mail through reports 6i.
Edited by: user8639749 on Jul 19, 2009 9:36 PM

Hello,
This is not possible in Oracle Reports 6i.
It has been implemented in Oracle Reports 9.0.2 (parameter SUBJECT)
http://www.oracle.com/webapps/online-help/reports/10.1.2/topics/htmlhelp_rwbuild_hs/rwrefex/cmdline/common/cla_subject.htm
Regards

How to send mail through report??

hi experts....
i want to create a report to send an email to department representative when pending PO is created.
can some1 tell me how is it possible to send an email through report?
thanks..

Refer the following programs:
<b>Mail sent without attachment:</b>
REPORT Z34332_MAIL.
* Check the mail in T-code SBWP
* To check the send mail status T-Code SOST
data: it_packing_list type table of SOPCKLSTI1,
wa_packing-list like line of it_packing_list,
it_receivers type table of SOMLRECI1,
wa_receivers like line of it_receivers,
it_mailbody type table of SOLISTI1,
wa_mailbody like line of it_mailbody.
data: la_doc type SODOCCHGI1.
* mail header
la_doc-OBJ_DESCR = 'HI'.
* Describe the body of the message
CLEAR wa_packing-list.
REFRESH it_packing_list.
wa_packing-list-transf_bin = space.
wa_packing-list-head_start = 1.
wa_packing-list-head_num = 0.
wa_packing-list-body_start = 1.
* DESCRIBE TABLE gt_mara LINES wa_packing-list-body_num.
wa_packing-list-body_num = 1.
wa_packing-list-doc_type = 'RAW'.
APPEND wa_packing-list to it_packing_list.
* Add the recipients email address
CLEAR wa_receivers.
REFRESH it_receivers.
wa_receivers-receiver = 'PCSDEVL'.
wa_receivers-rec_type = 'U'.
wa_receivers-com_type = 'INT'.
wa_receivers-notif_del = 'X'.
wa_receivers-notif_ndel = 'X'.
APPEND wa_receivers to it_receivers.
* Mail Body
CLEAR wa_mailbody.
REFRESH it_mailbody.
wa_mailbody-line = 'How are you.'.
APPEND wa_mailbody to it_mailbody.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
EXPORTING
document_data = la_doc
PUT_IN_OUTBOX = 'X'
* SENDER_ADDRESS = SY-UNAME
* SENDER_ADDRESS_TYPE = 'B'
COMMIT_WORK = 'X'
* IMPORTING
* SENT_TO_ALL =
* NEW_OBJECT_ID =
* SENDER_ID =
tables
packing_list = it_packing_list
* OBJECT_HEADER =
* CONTENTS_BIN =
CONTENTS_TXT = it_mailbody
* CONTENTS_HEX =
* OBJECT_PARA =
* OBJECT_PARB =
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
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
<b>
mail with attachment:</b>
REPORT Z34332_MAIL_WITH_ATTACHMENT1.
types: begin of t_mara,
matnr type mara-matnr,
matkl type mara-matkl,
mtart type mara-mtart,
meins type mara-meins,
end of t_mara.
data: gt_mara type table of t_mara,
wa_mara like line of gt_mara,
it_packing_list type table of SOPCKLSTI1,
wa_packing_list like line of it_packing_list,
it_receivers type table of SOMLRECI1,
wa_receivers like line of it_receivers,
it_mailbody type table of SOLISTI1,
wa_mailbody like line of it_mailbody,
it_attachment type table of SOLISTI1,
wa_attachment like line of it_attachment.
data: la_doc type SODOCCHGI1.
constants:
con_tab type c value cl_abap_char_utilities=>HORIZONTAL_TAB,
con_cret type c value cl_abap_char_utilities=>CR_LF.
* get material
select matnr matkl mtart meins
into table gt_mara
from mara
up to 25 rows.
* Populate the subject/generic message attributes
la_doc-obj_langu = sy-langu.
la_doc-obj_descr = 'Material Details' . "Mail Header
la_doc-sensitivty = 'F'.
la_doc-doc_size = 1.
* Add the recipients email address
CLEAR wa_receivers.
REFRESH it_receivers.
wa_receivers-receiver = 'PCSDEVL'.
wa_receivers-rec_type = 'U'.
wa_receivers-com_type = 'INT'.
wa_receivers-notif_del = 'X'.
wa_receivers-notif_ndel = 'X'.
APPEND wa_receivers to it_receivers.
* Mail Body
CLEAR wa_mailbody.
REFRESH it_mailbody.
wa_mailbody-line = 'Please find the attachment'.
APPEND wa_mailbody to it_mailbody.
* Mail attachmwnt
CLEAR wa_attachment.
REFRESH it_attachment.
CONCATENATE 'MATNR' 'MATKL' 'MTART' 'MEINS'
INTO wa_attachment SEPARATED BY con_tab.
CONCATENATE con_cret wa_attachment INTO wa_attachment.
APPEND wa_attachment to it_attachment.
LOOP AT gt_mara INTO wa_mara.
CONCATENATE wa_mara-matnr wa_mara-matkl
wa_mara-mtart wa_mara-meins
INTO wa_attachment SEPARATED BY con_tab.
CONCATENATE con_cret wa_attachment INTO wa_attachment.
APPEND wa_attachment to it_attachment.
ENDLOOP.
* Describe the body of the message
CLEAR wa_packing_list.
REFRESH it_packing_list.
wa_packing_list-transf_bin = space.
wa_packing_list-head_start = 1.
wa_packing_list-head_num = 0.
wa_packing_list-body_start = 1.
wa_packing_list-body_num = 1.
wa_packing_list-doc_type = 'RAW'.
APPEND wa_packing_list to it_packing_list.
* Create attachment notification
wa_packing_list-transf_bin = 'X'.
wa_packing_list-head_start = 1.
wa_packing_list-head_num = 1.
wa_packing_list-body_start = 1.
DESCRIBE TABLE it_attachment LINES wa_packing_list-body_num.
wa_packing_list-doc_type = 'XLS'. " To word attachment change this as 'DOC'
wa_packing_list-obj_descr = ' '.
concatenate wa_packing_list-doc_type 'file' into wa_packing_list-OBJ_DESCR
separated by space.
wa_packing_list-doc_size = wa_packing_list-body_num * 255.
APPEND wa_packing_list to it_packing_list.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
EXPORTING
document_data = la_doc
PUT_IN_OUTBOX = 'X'
* SENDER_ADDRESS = SY-UNAME
* SENDER_ADDRESS_TYPE = 'B'
COMMIT_WORK = 'X'
* IMPORTING
* SENT_TO_ALL =
* NEW_OBJECT_ID =
* SENDER_ID =
tables
packing_list = it_packing_list
* OBJECT_HEADER =
CONTENTS_BIN = it_attachment
CONTENTS_TXT = it_mailbody
* CONTENTS_HEX =
* OBJECT_PARA =
* OBJECT_PARB =
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
IF sy-subrc <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.

Send mail through report, t-code CATC

Hi
T-code CATC, where you can see who hasn't registered time, and you have a possibility to send mail to them.
But even that I have filled in user in infotype 0105 (communication) and make sure that the user have an e-mail address in their User maintainence, no mail is triggered for this report.
Anyone having an idea why?
Regards // Peter B

Thank you very much for your answer, I found it there.
But the strange thing is that when I run the report without marking "Send mail" I am able to send email externally from the ALV report with the button "Mail recipient".
Is there a way I can transfer the notifications automatically from SAPOffice to an external mailaddress?
Hope you can help me with that too.
Thanks again // Peter B

Send mail from report with DESNAME and DESFORMAT

j have tried to send a mail from a report to "outlook express" passing as parameters the email of the user to send the mail.
i have passed as parameter list :
DESCNAME = [email protected]
DESFORMAT = mail
but aoutlook express don't start.
It start only if i press the icon "mail" on report, and don't put the email adress in the "send to" field....
There is a reason or there is an error or it is impossible ????
Than'k from "il vampiro italiano"

Hello Mike,
In order to mail a report from Reports Builder 6i using the system's default MAPI client, you would need to set DESTYPE=MAIL, DESNAME=<email address of recipient> and DESFORMAT=<format of report output>.
Thanks,
The Oracle Reports Team.

Send mail BEx reports or workbooks as Excel attachment

Hi BI Team
I have a requirement to mail BEx reports or workbooks to users as excel attachment , I have tried out with Reporting agent and BEx broadcaster .My system is BW3.5.
Following option used
1) Bex broadcaster but, I dont have pre calc server so this option would not work.
2) SAP AG document which creatd by durairaj using ABAP, I am getting the excel file in my outlook box but content was in ascoii
format,
3) I creatd reporting agent with print background option but dont know where to check the output.
Regards
YuvaraajP

Hi
Thanks for the update however, Is there any option to send mail as excell sheet without using Pre calc server.
Regards
YuvaraajP

Send mail from reporting agent - Exception

Hello,
I am trying to send a mail as follow-up action in the reporting agent.(Version 3.0)
I am interested only in the alert details information and I mark only this flag.
I get the following mail:
       message
       123
       Details
       Breakdown Status :
       New Exception
       Non-critical ( Green ) :    1
       : 3,302 CTN
       Use the following link to go to the online
       This message was sent from BW system
I still would like to edit the content of the mail. Is the only way is to change class CL_RSRA_ER_FOLLOW_UP_MAIL?
Thank you!!!

Hello Nili,
I think you can edit content and Subject etc.
http://help.sap.com/saphelp_nw2004s/helpdata/en/21/35783b82ee5d31e10000000a114084/content.htm
Hope this helps.
San.

Doubt in Sending mail

Hi,
I Have to send mail from Report program to my lotus notes, using the FM CALL FUNCTION SO_NEW_DOCUMENT_ATT_SEND_API1.but unable to received it in my lotus notes inbox but can see it in outbox of SAP (SBWP).could you help me to resolve this issue.
Please guide me.
Thanks in advance.
Rajkumar P.

Hi Raj,
Any Ways... Here is the complete code to send mail to the lotus notes, which works very fine in my company,
you need to add the z tables in your system.
DATA : L_NUMBER TYPE TSP01-RQIDENT.
DATA : L_EKKO LIKE EKKO.
DATA : L_TCURF LIKE TCURF.
DATA : L_LFA1 LIKE LFA1 .
DATA : BEGIN OF LT_TSP01 OCCURS 0,
          RQIDENT LIKE TSP01-RQIDENT,
          RQCRETIME LIKE TSP01-RQCRETIME,
          DATE(8),
          TIME(8) TYPE N,
          END OF LT_TSP01.
DATA : G_TEXT(50).
DATA : BEGIN OF LT_EKPO OCCURS 0,
           EBELN LIKE EKPO-EBELN,
           EBELP LIKE EKPO-EBELP,
           NETWR LIKE EKPO-NETWR,
         END OF LT_EKPO.
DATA : L_AMOUNT LIKE EKPO-NETWR.
DATA : L_AMOUNT_TMP LIKE EKPO-NETWR.
DATA : L_FAXNUM LIKE LFA1-TELFX.
DATA : L_REAMT LIKE EKBE-DMBTR VALUE '10000000'.
DATA : L_NUM1 LIKE EKBE-DMBTR VALUE '10000'.
DATA : L_NUM2 LIKE EKBE-DMBTR VALUE '100000'.
DATA : L_DATE(9).
CONCATENATE SY-DATUM '%' INTO L_DATE.
DATA: L_RECIPIENT_INT LIKE SADRUD.
    * Structures and internal tables for the send data
DATA: LT_OBJPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE.
DATA: LT_OBJHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE.
DATA: LT_OBJBIN LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE.
DATA: LT_OBJTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
DATA: LT_RECLIST LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE.
DATA: L_DOC_CHNG LIKE SODOCCHGI1.
DATA: L_TAB_LINES LIKE SY-TABIX.
DATA: LT_USER_ADDRESS LIKE SOUSRADRI1 OCCURS 1 WITH HEADER LINE.
DATA: L_SENT_TO_ALL LIKE SONV-FLAG.
DATA: L_DOC_TYPE TYPE SOODK-OBJTP.
DATA : L_Z16SPOOL LIKE Z16SPOOL.
MAIL SENDING
DATA : LT_COMPRESSED_LIST LIKE SOLI OCCURS 0.
*Select Po details.
SELECT SINGLE EBELN EKORG LIFNR WAERS WKURS EKGRP
FROM EKKO INTO CORRESPONDING FIELDS OF
                                    L_EKKO WHERE EBELN = P_NAST-OBJKY.
*select PO Net amount.
SELECT EBELN EBELP NETWR FROM EKPO INTO CORRESPONDING FIELDS OF TABLE
                                    LT_EKPO WHERE EBELN = L_EKKO-EBELN.
LOOP AT LT_EKPO.
   L_AMOUNT = L_AMOUNT + LT_EKPO-NETWR.
ENDLOOP.
CHECK L_EKKO-EKORG = 'MY20'.
check ( L_EKKO-EKGRP = 'M93' OR L_EKKO-EKGRP = 'M94' OR L_EKKO-EKGRP = 'M97' ).
CHECK L_EKKO-EKGRP IN LR_EKGRP.
SELECT RQIDENT RQCRETIME FROM TSP01 INTO CORRESPONDING FIELDS OF
                      TABLE LT_TSP01 WHERE RQOWNER = SY-UNAME AND
                                          RQCRETIME LIKE L_DATE.
                                          RQ2NAME = 'PURCHASE ORD'.
SELECT RQIDENT RQCRETIME FROM TSP01 INTO CORRESPONDING FIELDS OF
                       TABLE LT_TSP01 WHERE RQCRETIME LIKE L_DATE
                                        AND   RQIDENT EQ GS_RESULT-TDSPOOLID.
IF SY-SUBRC = 0.
    LOOP AT LT_TSP01.
      MOVE : LT_TSP01-RQCRETIME(8) TO LT_TSP01-DATE,
             LT_TSP01-RQCRETIME+8(8) TO LT_TSP01-TIME.
      MODIFY LT_TSP01.
    ENDLOOP.
    SORT LT_TSP01 DESCENDING BY TIME.
    READ TABLE LT_TSP01 INDEX 1.
    L_NUMBER = LT_TSP01-RQIDENT.
    SELECT SINGLE * FROM Z16SPOOL INTO L_Z16SPOOL WHERE EBELN = L_EKKO-EBELN.
    IF SY-SUBRC = 0.
      DELETE FROM Z16SPOOL WHERE EBELN = L_EKKO-EBELN.
    ENDIF.
    CLEAR L_Z16SPOOL.
    SELECT SINGLE * FROM Z16SPOOL INTO L_Z16SPOOL WHERE SPOOL = L_NUMBER.
    IF SY-SUBRC = 0.
      EXIT.
    ENDIF.
Convert to Local Currency------
    SET EXTENDED CHECK OFF.
    SELECT SINGLE * FROM TCURF INTO L_TCURF WHERE KURST = 'M' AND
                                     FCURR = L_EKKO-WAERS AND
                                     TCURR = 'MYR' AND
                                     GDATU GE SY-DATUM.
    IF L_REAMT NE 0 AND
       L_EKKO-WKURS NE 0 AND
       L_TCURF-FFACT NE 0.
      IF L_EKKO-WAERS = 'JPY'.
        L_AMOUNT = L_AMOUNT * L_NUM1.
      ENDIF.
      L_AMOUNT_TMP = L_EKKO-WKURS / L_TCURF-FFACT.
      L_AMOUNT_TMP = L_AMOUNT_TMP / L_NUM2.
      L_AMOUNT_TMP = L_AMOUNT_TMP * L_AMOUNT.
      L_AMOUNT = L_AMOUNT_TMP.
    ENDIF.
    SET EXTENDED CHECK ON.   "BA3K9A0CWA
      CALL FUNCTION 'RSPO_RETURN_SPOOLJOB'
        EXPORTING
          RQIDENT              = L_NUMBER
          DESIRED_TYPE         = 'OTF'
        IMPORTING
          REAL_TYPE            = L_DOC_TYPE
        TABLES
          BUFFER               = LT_COMPRESSED_LIST
        EXCEPTIONS
          NO_SUCH_JOB          = 1
          JOB_CONTAINS_NO_DATA = 2
          SELECTION_EMPTY      = 3
          NO_PERMISSION        = 4
          CAN_NOT_ACCESS       = 5
          READ_ERROR           = 6
          TYPE_NO_MATCH        = 7
          OTHERS               = 8.
     MOVE LT_COMPRESSED_LIST[] TO LT_OBJBIN[].
      CONCATENATE 'BPC PO :' L_EKKO-EBELN INTO G_TEXT
      SEPARATED BY SPACE.
      L_DOC_CHNG-OBJ_NAME = 'MESSAGE'.
      L_DOC_CHNG-OBJ_DESCR = G_TEXT.
****AS ATTACHEMNT
      DESCRIBE TABLE LT_OBJBIN LINES L_TAB_LINES.
      CLEAR LT_OBJPACK-TRANSF_BIN.
      LT_OBJPACK-HEAD_START = 1.
      LT_OBJPACK-HEAD_NUM = 0.
      LT_OBJPACK-BODY_START = 1.
      LT_OBJPACK-BODY_NUM = L_TAB_LINES.
      LT_OBJPACK-DOC_TYPE = 'RAW'.
      APPEND LT_OBJPACK.
****AS ATTACHEMNT
      DESCRIBE TABLE LT_OBJBIN LINES L_TAB_LINES.
      LT_OBJPACK-TRANSF_BIN = 'X'.
      LT_OBJPACK-HEAD_START = 1.
      LT_OBJPACK-HEAD_NUM = 0.
      LT_OBJPACK-BODY_START = 1.
      LT_OBJPACK-BODY_NUM = L_TAB_LINES.
      LT_OBJPACK-DOC_TYPE = L_DOC_TYPE.
      LT_OBJPACK-OBJ_NAME = 'Attachment'(002).
      LT_OBJPACK-OBJ_DESCR = G_TEXT.
      LT_OBJPACK-DOC_SIZE = L_TAB_LINES * 255.
      APPEND LT_OBJPACK.
    * Fill the mail recipient list       *
     SET EXTENDED CHECK OFF.
      DATA: LV_VENDOR_EMAIL LIKE ADR6-SMTP_ADDR,
            LV_SUBRC        LIKE SY-SUBRC,
            LS_USER_ADDRESS LIKE BAPIADDR3,
            LT_RETURN       LIKE BAPIRET2 OCCURS 0 WITH HEADER LINE.
      CLEAR: GV_VENDOR_EMAIL.
      SELECT SINGLE ADR6~SMTP_ADDR
                    INTO GV_VENDOR_EMAIL
                    FROM LFA1
                    INNER JOIN ADR6
                    ON LFA1ADRNR = ADR6ADDRNUMBER
                    WHERE LFA1~LIFNR = GS_PO_DOC-XEKKO-LLIEF
                    AND   ADR6~FLGDEFAULT = 'X'.
      CALL FUNCTION 'BAPI_USER_GET_DETAIL'
        EXPORTING
          USERNAME             = GS_PO_DOC-XEKKO-ERNAM
        IMPORTING
          ADDRESS              = LS_USER_ADDRESS
        TABLES
          RETURN               = LT_RETURN.
Vendor Email Address
      LT_RECLIST-RECEIVER = GV_VENDOR_EMAIL.
      LT_RECLIST-REC_TYPE = 'U'. "Internet Id
      LT_RECLIST-NOTIF_READ = 'X'.
      LT_RECLIST-NOTIF_DEL = 'X'.
      LT_RECLIST-NOTIF_NDEL = 'X'.
      APPEND LT_RECLIST.
       CLEAR: LT_RECLIST.
       IF GV_VENDOR_EMAIL IS INITIAL.
Send Error Message
         LV_SUBRC = 4.
         PERFORM NOTIFY_USER_EMAIL USING LV_SUBRC
                                         LS_USER_ADDRESS-E_MAIL.
       ENDIF.
CC Common Email Address
      LT_RECLIST-RECEIVER = 'mailbox'. "
      LT_RECLIST-REC_TYPE = 'U'. "Internet Id
      LT_RECLIST-BLIND_COPY = 'X'. "Blind Copy /
      LT_RECLIST-NOTIF_READ = 'X'.
      LT_RECLIST-NOTIF_DEL = 'X'.
      LT_RECLIST-NOTIF_NDEL = 'X'.
      APPEND LT_RECLIST.
      CLEAR: LT_RECLIST.
      LT_OBJTXT = 'Dear Supplier,'.
      APPEND LT_OBJTXT.
      APPEND INITIAL LINE TO LT_OBJTXT.
      LT_OBJTXT = 'Enclosed please find attached our Purchase Order.'.
      APPEND LT_OBJTXT.
      APPEND INITIAL LINE TO LT_OBJTXT.
      CLEAR: LT_OBJTXT.
      CONCATENATE 'To accept this Purchase Order without further comment,'
                  'please reply, '
                  INTO LT_OBJTXT SEPARATED BY SPACE.
      APPEND LT_OBJTXT.
      LT_OBJTXT = '[ Do not reply to sender ]'.
      APPEND LT_OBJTXT.
      APPEND INITIAL LINE TO LT_OBJTXT.
      CLEAR: LT_OBJTXT.
      CONCATENATE 'However, to acknowledge at '
                  LS_USER_ADDRESS-E_MAIL
                  INTO LT_OBJTXT SEPARATED BY SPACE.
      APPEND LT_OBJTXT.
      APPEND INITIAL LINE TO LT_OBJTXT.
      APPEND INITIAL LINE TO LT_OBJTXT.
      LT_OBJTXT = 'Best Regards,'.
      APPEND LT_OBJTXT.
      APPEND INITIAL LINE TO LT_OBJTXT.
      LT_OBJTXT = 'Procurement Department,'.
      APPEND LT_OBJTXT.
      LT_OBJTXT = 'BASF PETRONAS Chemicals'.
      APPEND LT_OBJTXT.
Make E-mail Sender of PO the PO Creators Name
      SY-UNAME = GS_PO_DOC-XEKKO-ERNAM .
      SET EXTENDED CHECK ON .
    * Send the document by calling the SAPoffice API1 module
    * for sending documents with attachments
      CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
        EXPORTING
          DOCUMENT_DATA              = L_DOC_CHNG
          PUT_IN_OUTBOX              = 'X'
        IMPORTING
          SENT_TO_ALL                = L_SENT_TO_ALL
        TABLES
          PACKING_LIST               = LT_OBJPACK
          OBJECT_HEADER              = LT_OBJHEAD
          CONTENTS_BIN               = LT_OBJBIN
          CONTENTS_TXT               = LT_OBJTXT
          RECEIVERS                  = LT_RECLIST
        EXCEPTIONS
          TOO_MANY_RECEIVERS         = 1
          DOCUMENT_NOT_SENT          = 2
          OPERATION_NO_AUTHORIZATION = 4
          OTHERS                     = 99.
      LV_SUBRC = SY-SUBRC.
      IF SY-SUBRC NE 0.
        L_Z16SPOOL-STATUS = ''.
      ELSE.
        L_Z16SPOOL-STATUS = 'X'.
      ENDIF.
      PERFORM NOTIFY_USER_EMAIL USING LV_SUBRC
                                      LS_USER_ADDRESS-E_MAIL.
      L_Z16SPOOL-SPOOL = L_NUMBER.
      L_Z16SPOOL-EBELN = L_EKKO-EBELN.
      L_Z16SPOOL-LIFNR = L_EKKO-LIFNR.
      L_Z16SPOOL-TELFX = L_FAXNUM.
      L_Z16SPOOL-FDATE = SY-DATUM.
      L_Z16SPOOL-FTIME = SY-UZEIT.
      INSERT Z16SPOOL FROM L_Z16SPOOL.
      CLEAR L_Z16SPOOL.
ENDIF.
FORM NOTIFY_USER_EMAIL USING IP_SUBRC
                             IP_EMAIL.
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: LT_PACKING_LIST LIKE SOPCKLSTI1 OCCURS 0 WITH HEADER LINE,
        LT_CONTENTS LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
        LT_RECEIVERS LIKE SOMLRECI1 OCCURS 0 WITH HEADER LINE,
        LT_ATTACHMENT LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
        LT_OBJECT_HEADER LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
        LV_CNT TYPE I,
        LV_SENT_ALL(1) TYPE C,
        LW_DOC_DATA LIKE SODOCCHGI1.
DATA: LV_STRING TYPE STEXT.
DATA: LT_MESSAGE LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE.
DATA: LT_ATTACH LIKE LT_ATTACHMENT OCCURS 0 WITH HEADER LINE.
SET EXTENDED CHECK OFF.
Email Subject and Body Message
IF IP_SUBRC <> 0.
    CONCATENATE 'FP Mailbox : PO Num ' GS_PO_DOC-XEKKO-EBELN 'Delivery Failure'
    INTO LD_MTITLE SEPARATED BY SPACE.
    LT_MESSAGE = 'PO delivery failure!'.
    APPEND LT_MESSAGE.
    IF GV_VENDOR_EMAIL IS INITIAL.
      LT_MESSAGE = 'No Vendor Email Address was Found!'.
      APPEND LT_MESSAGE.
    ENDIF.
ELSE.
    CONCATENATE 'FP Mailbox : ' GS_PO_DOC-XEKKO-EBELN 'was successfully delivered'
    INTO LD_MTITLE SEPARATED BY SPACE.
    LT_MESSAGE = 'PO was successfully delivered'.
    APPEND LT_MESSAGE.
    LV_STRING = GS_RESULT-TDSPOOLID.
    CONCATENATE 'Spool Number: ' LV_STRING INTO LT_MESSAGE SEPARATED BY SPACE.
    CONDENSE LT_MESSAGE.
    APPEND LT_MESSAGE.
ENDIF.
Populate the subject/generic message attributes
LW_DOC_DATA-DOC_SIZE   = 1.
LW_DOC_DATA-OBJ_LANGU = SY-LANGU.
LW_DOC_DATA-OBJ_NAME   = 'SAPRPT'.
LW_DOC_DATA-SENSITIVTY = 'F'.
LW_DOC_DATA-OBJ_DESCR = LD_MTITLE .
Body Message Statistic
DESCRIBE TABLE LT_MESSAGE LINES LT_PACKING_LIST-BODY_NUM.
LT_PACKING_LIST-TRANSF_BIN = SPACE.
LT_PACKING_LIST-HEAD_START = 1.
LT_PACKING_LIST-HEAD_NUM   = 0.
LT_PACKING_LIST-BODY_START = 1.
LT_PACKING_LIST-DOC_TYPE   = 'RAW'.
APPEND LT_PACKING_LIST.
Add the recipients email address
CLEAR LT_RECEIVERS.
REFRESH LT_RECEIVERS.
LT_RECEIVERS-RECEIVER   = IP_EMAIL.
LT_RECEIVERS-REC_TYPE   = 'U'.
LT_RECEIVERS-COM_TYPE   = 'INT'.
LT_RECEIVERS-NOTIF_READ = 'X'.
LT_RECEIVERS-NOTIF_DEL = 'X'.
LT_RECEIVERS-NOTIF_NDEL = 'X'.
APPEND LT_RECEIVERS.
SET EXTENDED CHECK ON.
Let's Make sender the PO Creator
SY-UNAME = GS_PO_DOC-XEKKO-ERNAM.
IF LINES( LT_RECEIVERS ) > 0.
    CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
      EXPORTING
        DOCUMENT_DATA                    = LW_DOC_DATA
        PUT_IN_OUTBOX                    = 'X'
      TABLES
        PACKING_LIST                     = LT_PACKING_LIST
        CONTENTS_TXT                     = LT_MESSAGE
        RECEIVERS                        = LT_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.
ENDIF.
ENDFORM.   "FORM NOTIFY_USER_EMAIL
Thanks & Regards,
Dileep .C

Send mail as follow-up action in reporting agent

I need to send a mail with the exceptions flaoting from a query. I tried to use the follow-up action of 'send mail' in the reporting agent. that didnt work because in our SAP we're not using the exchange connector and mails cannot be sent in the regular way.
I have an external command of sending mail.
Does anyone has a way of solving this problem, meaning, using my external command of sending mail in order to send the mail with the exceptions (this command works just fine in process chains, for example, for notification of process progress)
Thank You,
Yoav.

Hello Nili,
I think you can edit content and Subject etc.
http://help.sap.com/saphelp_nw2004s/helpdata/en/21/35783b82ee5d31e10000000a114084/content.htm
Hope this helps.
San.

How to send ALV list report as html attachment in a mail??

Hi all,
I have an ALV report which I want to send as an HTML attachment in a mail to an external id. I know that spool can be converted to HTML attachment in a mail. But I don't want to have 2 programs - one for generating ALV and the other to send mail with the spool-converted of the first report as attachment. I want to send the mail in the same program itself. Is it possible? Helpful answers will be suitably rewarded.

Hi Sandip,
In your ALV program after the alv output is build in the program do the following steps.
1). Export the list to memory
2). Import the list from mempry
3). Do a COmpress of the data
4). Send an email as an attachment using the normal FM.
Take a look at the following links which will explain how to do the above steps.
http://www.geocities.com/mpioud/Z_EMAIL_ABAP_REPORT.html
http://www.thespot4sap.com/Articles/SAP_Mail_SO_Object_Send.asp
http://www.sapdevelopment.co.uk/reporting/email/attach_xls.htm
remember to change the doc type as 'HTM' in the FM to send email.
Cheers
VJ

How to send the ALV report output in mail

Dear all,
I have developed an ALV report.I need to send this output in the mail.Can anyone help me with the sample code of how to do this.

Hi Ramya,
Check the links below :
http://wiki.sdn.sap.com/wiki/display/Snippets/Sending+Mail
http://wiki.sdn.sap.com/wiki/display/Snippets/AbapEMAILProgram
http://wiki.sdn.sap.com/wiki/display/ABAP/SendMessagetoExternalemailidandSAPUseridvia+ABAP
They will explain you to send an email.
Regards,
Kittu

SQL Server Reporting Services Subscriptions - Failure sending mail

Hello All,
I am having a problem with using subscriptions to send my reporting services report by email.
Getting the following error:
Failure sending mail: The message could not be sent to the SMTP server. The transport error code was 0x800ccc6d. The server response was 552 Error: message too large
While browsing for other reports in the report manager(reports created by others staffs), i could find that these reports were sent by email successfully.
So not understanding why mine has a problem. logically it could be that the report is too big?
Anybody has a solution or suggestion?
Thanking you in advance

Hi LenitaS,
For first question, we can check the item "IncludeLink" to embed the link in the mail. Or, embed the link the manually by putting a link in the "Comment" field. The URL should be a standard URL Access:
http://<reportserver>/reprotserver?/reportpath&rc:format=<format>
For the second question, you are right. We can follow these setps to work around the issue:
1.Create a file shared subscription, save the export to a shared folder.
2.Create a E-Mail delivery subscription, embed the file's path in the mail. We can set the file's path in "Comment" field of the E-Mail delivery. The path should be someone like this:
\\<sharedfolder>\<export report>
In this case, the exported report's name cannot be dynamic.
If there is anything unclear, please feel free to ask.
Thanks,
Jin ChenJin Chen - MSFT

How to Convert Report into Excel Sheet when Sending Mail.

Dear Friends,
i want to send mail to HOD of Product with an Excel Sheet .
i want to send Pending Issue details to HOD in Excel Sheet attachment .
here i have pending issue report now i need to send it in Excel Sheet attachment .
i have table where i have manage Product ID and HOD OF PRODUCT.
CREATE TABLE "MAP_USER_PRODUCT_DTL"
   (     "ID" NUMBER NOT NULL ENABLE,
     "PRODUCT_ID"NUMBER,
     "USER_ID" VARCHAR2(5) NOT NULL ENABLE,
     "HOD_PROD" VARCHAR2(100)========================================Value is Y OR N IF HOD then Y else N
     CONSTRAINT "MAP_USER_PRODUCT_DTL_PK" PRIMARY KEY ("ID") ENABLE
/i have one more table where all complete issue detail insert.
CREATE TABLE "CRM_ISSUE_PROBLEM"
   (     "ID" NUMBER,
     "SUBJECT" VARCHAR2(255) NOT NULL ENABLE,
     "CLIENT_ID" NUMBER,
     "ASSIGNED_TO_ID" VARCHAR2(100),
     "ASSIGNED_ON" DATE,
     "DESCRIPTION" VARCHAR2(4000),
     "PRODUCT_ID" NUMBER NOT NULL ENABLE,
     "STATUS_ID" NUMBER NOT NULL ENABLE,
      CONSTRAINT "CRM_ISSUE_PROBLEM_PK" PRIMARY KEY ("ID") ENABLE
Here STATUS_ID is Like Pending ISsue,Open Issue and Close Issue .i want to send mail to HOD with Pending Issue Report convert into Excel Sheet and send to HOD?
How can i do this.
Thanks
Edited by: Vedant on Oct 12, 2011 12:36 AM
Edited by: Vedant on Oct 12, 2011 2:22 AM

Hello Vedant,
Would it suffice if you send a CSV file?
If yes, then see following code.. run the code under APEX > Home > SQL Workshop > SQL Commands
DECLARE
        ln_id NUMBER;
        lc_clob CLOB;
     lb_blob BLOB;
     li_in PLS_INTEGER := 1;
     li_out PLS_INTEGER := 1;
     li_lang PLS_INTEGER := 0;
     li_warning PLS_INTEGER := 0;
     lv_mail_rcpts VARCHAR2(2000) := '[email protected]';
     lv_mail_from VARCHAR2(100) := '[email protected]';
       lv_clmn_separator VARCHAR2(1) := ',';
BEGIN
     -- Build file content as CLOB
-- Replace with your query
     FOR i IN (select object_id A, object_name B, object_type C, status D, temporary E, generated F, secondary G,namespace H from user_objects where rownum < 10)
     LOOP
    IF lc_clob IS NULL THEN
      lc_clob := i.A||lv_clmn_separator||i.B||lv_clmn_separator||i.C||lv_clmn_separator||i.D||lv_clmn_separator||i.E||lv_clmn_separator||i.F||lv_clmn_separator||i.G||lv_clmn_separator||i.H;
    ELSE
      lc_clob := lc_clob||CHR(10)||i.A||lv_clmn_separator||i.B||lv_clmn_separator||i.C||lv_clmn_separator||i.D||lv_clmn_separator||i.E||lv_clmn_separator||i.F||lv_clmn_separator||i.G||lv_clmn_separator||i.H;
    END IF;
     END LOOP;
     -- Convert CLOB to BLOB
     DBMS_LOB.CREATETEMPORARY(lb_blob,TRUE);
     DBMS_LOB.convertToBlob(lb_blob,lc_clob,DBMS_LOB.LOBMAXSIZE,li_in,li_out,DBMS_LOB.DEFAULT_CSID,li_lang,li_warning);
     -- Send mail
     ln_id:= APEX_MAIL.SEND(
       p_to        => lv_mail_rcpts,
             p_from      => lv_mail_from,
             p_subj      => 'Subject Goes here',
             p_body      => 'Body goes here'
     -- add CSV file as attachment
     APEX_MAIL.ADD_ATTACHMENT
       p_mail_id   => ln_id,
       p_attachment => lb_blob,
       p_filename   => 'filename.csv',
       p_mime_type => 'application/csv'
-- push mail queue
APEX_MAIL.PUSH_QUEUE;
     -- empty temporary space
     DBMS_LOB.FREETEMPORARY ( lob_loc => lb_blob);
     COMMIT;
END;Regards,
Hari

Send a mail from report 6i with his function "mail...."

I have tried to send a mail from report using "File" ---> "Mail.." Function that is avaible on report, but it send a file "*.eps" that is not readble with the normal reader.....
It is possible to send a PDF file ???
Thank 's .....
il vampiro

Hello Mike,
In Reports Builder 6i, Just change the Initial Value of the DESFORMAT System Parameter in the Object Navigator (under Data Model) to PDF, or any other format you want to mail the report in.
Thanks,
The Oracle Reports Team.

Send mail in report 6i

Similar Messages

Maybe you are looking for