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
-
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,
ashokHi,
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 PMHello,
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 BThank 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
YuvaraajPHi
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. -
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 advanceHi 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 AMHello 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 vampiroHello 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.
Maybe you are looking for
-
Unable to Delete a Menu.
Hi, I am having problems removing a menu (NNTP Newsgroup Actions). I can successfully delete all the menu items below this menu but then when I then try to delete the menu itself, using the Delete method of the GWMenu object, no error is raised but t
-
I purchased a iphone i USA. How can i use this iphone in india with vodafone.
I Purchased a iPhone 5s in USA. How can I use this phone in India with Vodafone. <Edited By Host>
-
Flash 10 works in FF but not Safari, OS X 10.5
About a week ago flash stopped working in Safari and both firefox and safari started bugging me to install a newer version. Muttering, I went to the download page and downloaded the latest, which claims to be for Safari, Opera, and firefox. Installa
-
Inbound Vendor Master IDoc to populate Address Mgmnt
Morning All I have a requirement to populate the Central Address Management from the Vendor Master when an inbound Vendor Master IDoc (CREMAS) is interfaced via LSMW. I have read that 'Serialization' is the key and that I should set up the system so
-
I have tried to download iTunes onto my computer using Windows 7 Home Premium version, however, each time I have tried, when it says it has been successfully installed, when I click to start it, it shows an error code, ( error7, windows error code 12