Sending SAP mail to the workcentre
Hi Guys,
Can i send a SAP mail to the workcentre using the standard FM 'SO_OBJECT_SEND'.
Please send me any related documentation or code to achieve the functionality using the above given FM.
Thanks,
KC.
Hi,
I even am trying to find it out what is the table in which the work center details gets stored.
I need to know,
1) If a workcenter is created, where are the detais stored about the work center
2) once i add users to a work center in which table does this information gets stored..
Any help would be grateful.
Regards,
PR.
Similar Messages
-
How to send SAP Mails to the Customer or vendor when Sales Order or Purchase order rises and How to Use the T-code : NACE by uisng that transaction code how send mails
Hi,
Go through this
In NACE t-code we have the application for each one. based on the application output type can be defined, based on output type script and print progrma can be defined.
If suppose data can be read from EDI then we should go for condition records.
So whenever we execute the script first composer checks the output type and then execute the program. in program whenever opn form FM will be populate then script will open first. After that again program till another FM will populate if it then script will populate........like it is cycle proces. Composer does all these things and at last it will submit that output to spool.
Go to the Transaction NACE.
choose the related sub module.. like billing or shipping
doubel click on Output Types
Choose the Output Type for which whcih you wanted your script to trigger
Then select the Output Type and double click on Processing Routine
Then go to create new entries--> Select the Medium (1- print output), then enter your Script and Print Program detls --> Save and come out
Now go to the Transaction (for which you have created the output type)... Issue output--> Select the output type --> Print....
You should know the Output type for each document;
like
for sales order it is BAoo for Purchase order it is NEU for delivery it is LD00
for Invoice it is RD00.
and the application for each document:
for PO it is EF
for Sales doc's it is V1
delivery it is V2
billing Doc's it is V3.
Select the Application from NACE and click on output types.
select the right output type and click on the processing routines on the left hand side.
it displays the Medium(print,Fax,Mail, edi etc), Output type, Program and the Script form or Smart form.
Regards
Ravi -
How i can send a mail to the user SAP Office mailbox through the spool.
hi all,
I have created an report and scheduled for background and it generated a spool now how i can send a mail to the user SAP Office mailbox through that spool.
please provide me the sample code if possible.
thanks.Read the spool number with this...
SELECT RQIDENT
INTO (T_TSP01-RQIDENT)
FROM TSP01
WHERE RQOWNER EQ SY-UNAME
AND RQCLIENT EQ SY-MANDT.
APPEND T_TSP01.
ENDSELECT.
Use this FM RSPO_IRETURN_RAW_DATA to read the content of the spool into an Internal Table...
Finally use this FM SO_OBJECT_SEND to send the mail to an SAP Office user...
Greetings,
Blag. -
How to send external mails to the user
Dears,
How to send external mails to the user who creates the sales document (Quotation)
Can you please suggest what modification required in the FM
Thanks,
pinkyYou can have a partner function like 'Created by' and use an exit to populate the User ID to this partner function(dont have the system right now but i think this can be done with standard partner detr. procedure also)
Then, create an Output type for that Partner function with transmission medium as 'External Send'. You can use the standard SAP program to trigger the email. To send the actual email after the output is trigerred, the link connection has to be set up be BASIS but if you want to check, then goto SOST and see if the email got trigerred or not. -
How to create a procedure to send a mail if the Database is down?
Hi,
I have created the below procedure to send a mail if the count is less than 1300. It scheduled daily @ 15 30 hrs. Its fine.
CREATE OR REPLACE procedure SCOTT.hrsmail
is
v_count number;
begin
Select count(*) into v_count from emp;
if v_count < 1300
then
UTL_MAIL.send(sender => '[email protected]',
recipients => '[email protected]',
cc => '[email protected]',
bcc => '[email protected]',
subject => 'Testing the UTL_MAIL Package',
message => 'If you get this, UTL_MAIL package
else
null; --what you want to do here
end if ;
end;
Sometime the Database is down, so the job is not running.
How to create a procedure to send a mail if the database is down?
Pls help me. Its highly appreciated.
Thanks
Niharnihar wrote:
How to create a procedure to send a mail if the database is down?And what if the database is up, but the network down? Or the database up and mail server down? Or mail server undergoing maintenance?
There are loads of "+What if's+" - and in that respect, playing "+What if database is down..+" in this case does not make any sense. You do not use the database to monitor its own up/down status. You do not rely just on SMTP as notification protocol that the database is down.
The correct approach would be using something like SNMP as the monitoring protocol. A monitoring system that can process SNMP and perform some basic root cause analysis (e.g. network to the database server down, database server status unknown). And this system supporting notification methods like SMTP, SMS and so on. -
How to Send a Mail From the Oracle Applications.
Hi,
I was assigned a task to send a mail from the front end i.e., from oracle applications.
but i have no idea.
i am working on oracle apps R12.1.1 and 10g reports.
First i have to create an rdf file and that rdf file i want to send as an attachment through mail from the apps.
Any Advice will be of great help and i will follow accordingly.
Thanks in Advance,
Regards,
Bharathi.SHi,
I was assigned a task to send a mail from the front end i.e., from oracle applications.
but i have no idea.
i am working on oracle apps R12.1.1 and 10g reports.
First i have to create an rdf file and that rdf file i want to send as an attachment through mail from the apps.
Any Advice will be of great help and i will follow accordingly.
Thanks in Advance,
Regards,
Bharathi.S -
Any changes in PA30 need to send a mail to the Managers outlook inbox
Hi,
Any changes in PA30 (ESS) need to send a mail to the Managers outlook inbox .
Kindly let me know the Standard workflow template and to built the Custom function module in Rule .
Thanks in advance,
Richard A<i>Any changes in PA30 (ESS) need to send a mail to the Managers outlook inbox</i>
If its just an email do u need a workflow for it? Configure dynamic actions which will call a subroutine when a change is made to the infotype and send email from that subroutine using SO_NEW_DOCUMENT_SEND_API1.(you can include the necessary logic for determining the approver in the same subroutine).
Thanks,
Prasath N -
My macbook pro with OS 10.6.7 'mail' program does not send my mail through the IPS wireless, I am connected to. The message is my 'e-mail is rejected by the server'. It has been working until 5 days ago. The connection doctor says I am connected and no log in required.
After trying lots I found now in 'Airport Utility is 'unable to detect any airport wireless devises.....'
There is no provider to be seen in airport utility and only 'rescan' is an option with no results...
even so I am connected and can browse the net receive mail etc. and the outgoing 'mail server' is set to the internet provider I am connected to.
Can you enlighten me what can I do I need to use my e-mail program urgently !!!
Thanks for your helpI'm not sure what "IPS wireless" is, but unless you have an Apple Wi-Fi base station (such as a Time Capsule, AirPort Extreme, or AirPort Express), AirPort Utility won't see anything.
You might try defining a new SMTP server to see if that will work any better.
By the way, the subject field for these messages isn't intended to hold a lot of text. Put a short description of your problem in the subject field and save the rest of your message for the body field. -
Send reminder mails to the outlook
Hi everyone,
I have a scenario where i have a modeled deadline branch where if the deadline is missed i am sending recursive mails to the recipients using Rule in an activity .
In the Rule i am using FM SO_NEW_DOCUMENT_ATT_SEND_API1 for sending mails . I need to send mails 3 times for every 5 mins . for that i have created a requested start deadline with time as 5 min .
and a workflow element status with initial value as 0 . and in the same branch i have used a container operation step where i am incrementing my status value by 1.
and loop until condition is set to &status& = 3.
i am receiving the reminder mail only once in my outlook and the status is set to 1.
it is not getting incremented again . and hence no second reminder mails are coming in my outlook.
Can any one please help .?
Thanks !!I need to send mails 3 times for every 5 mins . for that
i have created a requested start deadline with time as 5 min .
I assume you have desigened the workflow template as below.
1. A dialog step where the workitem will be sent for apprval.
2. For the above dialog step you have defined both Requested start and Latest end of Modelled Deadline .
3. In the newly generated branch you have inserted a loop and inside a loop you have defined a step to send mails. End condition for the loop is COUNT = 3.
IF the case is like above then you modify the workflow design as below.
1. Instead of inserting a loop in the deadline brach , you define it outside the deadline branch.
2. Both Dialog workitem and deadline brach and its step must be included inside one loop.
3. Now for the whole loop you deifine a condition in a such a way that the workitem should not miss the deadline and it should be in the completed status then only you will end the whole loop other wise you keep on looping it .
I hope if you remodify the workflow as above i hope it works... -
Send a mail to the customer when their order of type Residential Credit is booked
Hi,
We need to send a mail to the customer when their order of type Residential Credit is booked.
I followed the below steps, but i could not write the code for sending email, can you please send me a sample code.
Step1:
=======
Setup Processing Constraint on Order Header/Line for order booking
*(Navigation : Setup --> Rules --> Security --> Processing Constraints)*
a) Set Application : Order Management, Entity : Order Header
b) Under constraints --> set Operation : Create, user Action : Raise Integration event, and make it enabled
c) Condition --> Set Scope : Any, Validation Entity : Order header, record Set : Order, Validation Template : Booked and make it enabled too.
Step2:
========
Profile Option: Set "OM: Electronic Message Integration Event Sources" to be set to All
Step3:
========
Develop a code(Package) /workflow as per business requirement. e.g sending mail to customer when order is booked.
Step 4:
=======
Open business event *"oracle.apps.ont.oi.xml_int.status"* through workflow Administrator responsibility. Include code/workflow in the subscription section of Business event.
Navigation : WF Administrator Web application ---> Administrator Workflow --> Business Events
Search Name : oracle.apps.ont.oi.xml_int.status, it will return 1 record, click on subcription...
In this page include the function e.g CLN_CH_EVENT_SUBSCRIPTION_PKG.ADD_COLLABORATION_EVENT_SUB, if you are using WF, mention (e.g) wf_rule.default_rule in function & Workflow as OEEM/WRITE_HISTORY and enable it in this page..
Thanks and Regards,
PriyaJust wanted to let you guys know that I still haven't received my MP3 player... Creative has had the MP3 player for 73 days now and they still haven't sent it back. Since last time I wrote here I got an e-mail from Creative saying they got the MP3 player on the 5th of the November and that somehow the status wasn't updated. Well, it's been 73 days now, care to send it away? I sent them and e-mail yesterday where I wrote that they could just send me the cash for it or a new MP3 player.
If I don't receive my MP3 player in a near future I will contact "Allm?nna Reklamations N?mnden" (a Swedish "Consumerist"-like government sponsored organization that deals with people vs company legal cases).
Again, I strongly advise everyone to not buy any more Creative products. Once they break you won't get the help you need. -
Send a mail to the vendor at the time of approval with the attachment of PO
Hi all,
I want to send a mail to the vendor at the time of approval by attaching the pdf of that particular PO.
How can I achieve this?
I know the User Exit where the code should be written.
But I want the solution for attaching the PDF of PO at the time of approval.
Please help me in this regard.
Edited by: vinil kumar aturi on Mar 16, 2009 7:52 AMHi,
Try Following Code to Send mail as PDF Attachment
In this
Smart form Name : ZSMART_MM_003
This will send mail to EMAIL ADDRESS SPECIFIED IN VENDOR MASTER FK03
This code is written for ME23n so we used nast-objky(10) for purchase order no you may replace it with your purchase order no
and smart form name with your smart form name
*-- Send Mail---
*-- Function Module Call to get Customer Address (Email)--
DATA: VENDOR TYPE ELIFN,
ADDRNO TYPE ADRNR.
DATA: atab-mail TYPE STRING.
SELECT SINGLE LIFNR FROM EKKO INTO VENDOR WHERE EBELN = nast-objky(10).
SELECT SINGLE ADRNR FROM LFA1 INTO ADDRNO WHERE LIFNR = VENDOR.
TYPE-POOLS: szadr.
DATA adr_kompl TYPE szadr_addr1_complete.
DATA adr1 TYPE szadr_addr1_line.
DATA adtel TYPE szadr_adtel_line.
DATA admail TYPE szadr_adsmtp_line.
DATA adfax TYPE szadr_adfax_line.
CALL FUNCTION 'ADDR_GET_COMPLETE'
EXPORTING
addrnumber = ADDRNO
IMPORTING
addr1_complete = adr_kompl
EXCEPTIONS
parameter_error = 1
address_not_exist = 2
internal_error = 3
wrong_access_to_archive = 4
OTHERS = 5.
Mail
LOOP AT adr_kompl-adsmtp_tab INTO admail.
MOVE admail-adsmtp-smtp_addr TO atab-mail.
ENDLOOP.
if sy-subrc = 0.
DATA: FILENAME TYPE STRING.
CONCATENATE 'PurchaseOrder' nast-objky INTO FILENAME SEPARATED BY '-'.
DATA: MESSAGELINE1 TYPE STRING,
MESSAGELINE2 TYPE STRING.
CONCATENATE 'Do you want to send ' FILENAME ' through E-mail to' into MESSAGELINE1.
CONCATENATE atab-mail '?' into MESSAGELINE2.
data: answer TYPE c.
CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'
EXPORTING
defaultoption = 'N'
textline1 = MESSAGELINE1
textline2 = MESSAGELINE2
titel = ' '
start_column = 35
start_row = 10
IMPORTING
answer = answer.
IF answer EQ 'J' OR answer EQ 'Y'.
Code to find Contact person
DATA: CONTACT TYPE EVERK.
SELECT SINGLE VERKF FROM EKKO INTO CONTACT WHERE EBELN = nast-objky(10).
Internal Table declarations
DATA: I_OTF TYPE ITCOO OCCURS 0 WITH HEADER LINE,
I_TLINE TYPE TABLE OF TLINE WITH HEADER LINE,
I_RECEIVERS TYPE TABLE OF SOMLRECI1 WITH HEADER LINE,
I_RECORD LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
Objects to send mail.
I_OBJPACK LIKE SOPCKLSTI1 OCCURS 0 WITH HEADER LINE,
I_OBJTXT LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
I_OBJBIN LIKE SOLISTI1 OCCURS 0 WITH HEADER LINE,
I_RECLIST LIKE SOMLRECI1 OCCURS 0 WITH HEADER LINE,
Work Area declarations
WA_OBJHEAD TYPE SOLI_TAB,
W_CTRLOP TYPE SSFCTRLOP,
W_COMPOP TYPE SSFCOMPOP,
W_RETURN TYPE SSFCRESCL,
WA_DOC_CHNG TYPE SODOCCHGI1,
W_DATA TYPE SODOCCHGI1,
WA_BUFFER TYPE STRING, "To convert from 132 to 255
Variables declarations
V_FORM_NAME TYPE RS38L_FNAM,
V_LEN_IN LIKE SOOD-OBJLEN,
V_LEN_OUT LIKE SOOD-OBJLEN,
V_LEN_OUTN TYPE I,
V_LINES_TXT TYPE I,
V_LINES_BIN TYPE I.
DATA : s_control_parameters TYPE ssfctrlop,
s_output_options TYPE ssfcompop.
s_control_parameters-getotf = 'X'.
s_control_parameters-no_dialog = 'X'.
s_control_parameters-preview = 'X'.
s_output_options-tdnoprint = 'X'.
s_output_options-tdimmed = ''.
s_output_options-tddest = 'LP01'. "Spool: Output device
s_output_options-tdreceiver = sy-uname.
s_output_options-tdcover = ''.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
EXPORTING
FORMNAME = 'ZSMART_MM_003'
IMPORTING
FM_NAME = V_FORM_NAME
EXCEPTIONS
NO_FORM = 1
NO_FUNCTION_MODULE = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
W_CTRLOP-GETOTF = 'X'.
W_CTRLOP-NO_DIALOG = 'X'.
W_COMPOP-TDNOPREV = 'X'.
CALL FUNCTION V_FORM_NAME
EXPORTING
CONTROL_PARAMETERS = s_control_parameters
OUTPUT_OPTIONS = s_output_options
USER_SETTINGS = ''
nast = nast
WA_ADDRESS = WA_ADDRESS
IMPORTING
JOB_OUTPUT_INFO = W_RETURN
TABLES
addtel = it_addtel
addsmtp = it_addsmtp
EXCEPTIONS
FORMATTING_ERROR = 1
INTERNAL_ERROR = 2
SEND_ERROR = 3
USER_CANCELED = 4
OTHERS = 5.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Convert SMartform to pdf
I_OTF[] = W_RETURN-OTFDATA[].
CALL FUNCTION 'CONVERT_OTF'
EXPORTING
FORMAT = 'PDF'
MAX_LINEWIDTH = 132
IMPORTING
BIN_FILESIZE = V_LEN_IN
TABLES
OTF = I_OTF
LINES = I_TLINE
EXCEPTIONS
ERR_MAX_LINEWIDTH = 1
ERR_FORMAT = 2
ERR_CONV_NOT_POSSIBLE = 3
OTHERS = 4.
IF SY-SUBRC <> 0.
ENDIF.
LOOP AT I_TLINE.
TRANSLATE I_TLINE USING '~'.
CONCATENATE WA_BUFFER I_TLINE INTO WA_BUFFER.
ENDLOOP.
TRANSLATE WA_BUFFER USING '~'.
DO.
I_RECORD = WA_BUFFER.
APPEND I_RECORD.
SHIFT WA_BUFFER LEFT BY 255 PLACES.
IF WA_BUFFER IS INITIAL.
EXIT.
ENDIF.
ENDDO.
Attachment
REFRESH: I_RECLIST,
I_OBJTXT,
I_OBJBIN,
I_OBJPACK.
CLEAR WA_OBJHEAD.
I_OBJBIN[] = I_RECORD[].
Create Message Body Title and Description
I_OBJTXT = 'Sir, '.
APPEND I_OBJTXT.
I_OBJTXT = ''.
APPEND I_OBJTXT.
I_OBJTXT = 'Please Find Attached '.
APPEND I_OBJTXT.
I_OBJTXT = FILENAME.
APPEND I_OBJTXT.
I_OBJTXT = 'For your reference'.
APPEND I_OBJTXT.
I_OBJTXT = ''.
APPEND I_OBJTXT.
I_OBJTXT = 'Regards'.
APPEND I_OBJTXT.
I_OBJTXT = CONTACT.
APPEND I_OBJTXT.
*Mail Subject
DESCRIBE TABLE I_OBJTXT LINES V_LINES_TXT.
READ TABLE I_OBJTXT INDEX V_LINES_TXT.
WA_DOC_CHNG-OBJ_NAME = 'Purchase Order'.
WA_DOC_CHNG-EXPIRY_DAT = SY-DATUM + 10.
WA_DOC_CHNG-OBJ_DESCR = 'Purchase Order'.
WA_DOC_CHNG-SENSITIVTY = 'F'.
WA_DOC_CHNG-DOC_SIZE = V_LINES_TXT * 255.
Main Text
CLEAR I_OBJPACK-TRANSF_BIN.
I_OBJPACK-HEAD_START = 1.
I_OBJPACK-HEAD_NUM = 0.
I_OBJPACK-BODY_START = 1.
I_OBJPACK-BODY_NUM = V_LINES_TXT.
I_OBJPACK-DOC_TYPE = 'RAW'.
APPEND I_OBJPACK.
Attachment (pdf-Attachment)
I_OBJPACK-TRANSF_BIN = 'X'.
I_OBJPACK-HEAD_START = 1.
I_OBJPACK-HEAD_NUM = 0.
I_OBJPACK-BODY_START = 1.
DESCRIBE TABLE I_OBJBIN LINES V_LINES_BIN.
READ TABLE I_OBJBIN INDEX V_LINES_BIN.
I_OBJPACK-DOC_SIZE = V_LINES_BIN * 255 .
I_OBJPACK-BODY_NUM = V_LINES_BIN.
I_OBJPACK-DOC_TYPE = 'PDF'.
I_OBJPACK-OBJ_NAME = 'smart'.
I_OBJPACK-OBJ_DESCR = FILENAME.
APPEND I_OBJPACK.
CLEAR I_RECLIST.
I_RECLIST-RECEIVER = atab-mail.
I_RECLIST-REC_TYPE = 'U'.
APPEND I_RECLIST.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
DOCUMENT_DATA = WA_DOC_CHNG
PUT_IN_OUTBOX = 'X'
COMMIT_WORK = 'X'
TABLES
PACKING_LIST = I_OBJPACK
OBJECT_HEADER = WA_OBJHEAD
CONTENTS_BIN = I_OBJBIN
CONTENTS_TXT = I_OBJTXT
RECEIVERS = I_RECLIST
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.
WRITE:/ 'Error When Sending the File', SY-SUBRC.
ELSE.
WRITE:/ 'Mail sent'.
ENDIF.
Regards
Nausal -
[iPad Mini 1st Gen.] Can't send E-Mails with the normal "Mail" App
Hi,
I can't send E-Mails with the normal E-Mail App, it works only with another Mail App, but then I can't send pictures. Maybe my new router is the cause, but it works with my iPhone 5, only with my iPad mini it doesn't work.Well, how I can solve the problem?
Sorry for my bad English.
Many Greetings from Germany.Hi,
i can't change the iCloud SMTP Server settings for outgoing E-Mails.It isn't possible to make these "How to" (or how i can call it?) and the moves before i have already done and the issue haven't solved. I think my iPad mini is to old....
Many greetings,
xbdsmallwork
Edit: I have a iCloud Mail Account. -
How to send a mail about the test plan status
Hi
I have finished the development of ecatt automation test cases.
And I have integrated the ecatt automation test cases into the test plan of TWB.
I have scheduled a job in background to run the test plan.
After the job has finished, I need to send a email to related users to tell them the status of each test cases in the test plan.
Is there any way to implement it?
Thanks a lot in advance!Hello,
You can send mail with the status of the test catalog-
specify a mail system to which Test Workbench test objects send messages to the people responsible
Please refer the below link for more information:
http://help.sap.com/saphelp_smehp1/helpdata/en/6a/88370a002911d2bd02080009b4534c/frameset.htm
Regards, -
How to send a mail to the user with attachement
Hi Experts,
I have a requirement where user needs to get the automatic mail which has the updated information sheet as the attachement.
Kindly give me a clue on this.
if any body has model program for this...kidnly send it to [email protected]
Thanks in Advance,
AiswaryaHI
good
go throug this link
http://help.sap.com/saphelp_nw04s/helpdata/en/38/71f865c2c9a94ab1dce95792187c16/content.htm
/people/thomas.jung3/blog/2004/09/08/sending-e-mail-from-abap--version-610-and-higher--bcs-interface
go through this report=>
: Report ZSAPTALK :
: Author SAPdev.co.uk :
: Description : :
: Send mail message to SAP mail inbox. :
: Please visit www.sapdev.co.uk for further info :
REPORT ZSAPMAIL NO STANDARD PAGE HEADING.
TABLES: DRAD,
QINF,
DRAW,
SOUC,
SOFD,
DRAP.
DATA: P_RETURN_CODE LIKE SY-SUBRC.
data: d_username LIKE DRAP-PRNAM.
mail declarations
DATA : BEGIN OF NEW_OBJECT_ID. " the newly created email object
INCLUDE STRUCTURE SOODK.
DATA : END OF NEW_OBJECT_ID.
DATA : BEGIN OF FOLDER_ID. " the folder id of the outbox
INCLUDE STRUCTURE SOODK.
DATA : END OF FOLDER_ID.
DATA : BEGIN OF REC_TAB OCCURS 5. " the table which will contain the
INCLUDE STRUCTURE SOOS1. " information on the destination
DATA : END OF REC_TAB.
DATA : BEGIN OF OBJECT_HD_CHANGE. " the table which contains the
INCLUDE STRUCTURE SOOD1. " info for the object we will be
DATA : END OF OBJECT_HD_CHANGE. " creating
DATA : OBJECT_TYPE LIKE SOOD-OBJTP. " the type of object
DATA : BEGIN OF OBJHEAD OCCURS 5. " the header of the object
INCLUDE STRUCTURE SOLI.
DATA : END OF OBJHEAD.
DATA : BEGIN OF OBJCONT OCCURS 0. " the contents of the object
INCLUDE STRUCTURE SOLI. " i.e. the text etc
DATA : END OF OBJCONT.
DATA : BEGIN OF OBJPARA OCCURS 5. " formatting options
INCLUDE STRUCTURE SELC.
DATA : END OF OBJPARA.
DATA : BEGIN OF OBJPARB OCCURS 5. " formatting options
INCLUDE STRUCTURE SOOP1.
DATA : END OF OBJPARB.
DATA : BEGIN OF T_MAIL_TEXT OCCURS 0, "Message table for messages to
STRING(255), "user via mailbox
END OF T_MAIL_TEXT.
Parameter: p_uname like sy-uname.
**START-OF-SELECTION
START-OF-SELECTION.
d_username = p_uname.
PERFORM POPULATE_EMAIL_TEXT.
PERFORM SETUP_TRX_AND_RTX_MAILBOXES USING P_RETURN_CODE.
PERFORM CREATE_AND_SEND_MAIL_OBJECT.
FORM POPULATE_EMAIL_TEXT *
Inserts text for email message *
FORM POPULATE_EMAIL_TEXT.
CLEAR T_MAIL_TEXT-STRING. "puts a blank line in
APPEND T_MAIL_TEXT.
APPEND T_MAIL_TEXT.
adds failed list on to end of success list.
T_MAIL_TEXT-STRING = 'Test email message line 1'.
APPEND T_MAIL_TEXT.
T_MAIL_TEXT-STRING = 'Test email message line 1'.
APPEND T_MAIL_TEXT.
CLEAR T_MAIL_TEXT-STRING. "puts a blank line in
APPEND T_MAIL_TEXT.
T_MAIL_TEXT-STRING = 'Header1 Header2 Header3'.
APPEND T_MAIL_TEXT.
T_MAIL_TEXT-STRING = '----
APPEND T_MAIL_TEXT.
ENDFORM.
*& Form SETUP_TRX_&_RTX_MAILBOXES
Ensure that the mailboxes of the sender (INTMGR) are set up OK
FORM SETUP_TRX_AND_RTX_MAILBOXES USING P_RETURN_CODE.
get the user no of the sender in order to add the mail to the
user name's outbox for future reference
SELECT SINGLE * FROM SOUC
WHERE SAPNAM = SY-UNAME. "SAP name of a SAPoffice user
IF SY-SUBRC NE 0.
"Error finding the SAPoffice user info for the user
MESSAGE E064(ZR53) WITH SY-UNAME.
P_RETURN_CODE = 1.
EXIT.
ENDIF.
*Get the outbox No for the sender from the user No where the folder
" type is an outbox
SELECT * FROM SOFD WHERE OWNTP = SOUC-USRTP "Owner type from ID
AND OWNYR = SOUC-USRYR "Owner year from the ID
AND OWNNO = SOUC-USRNO "Owner number from the I
AND FOLRG = 'O'."Output box
ENDSELECT.
IF SY-SUBRC NE 0.
" Error getting folder information for the user
MESSAGE E065(ZR53) WITH SY-UNAME.
P_RETURN_CODE = 1.
EXIT.
ENDIF.
ENDFORM. " SETUP_TRX_&_RTX_MAILBOXES
*& Form CREATE_AND_SEND_MAIL_OBJECT
FORM CREATE_AND_SEND_MAIL_OBJECT.
FOLDER_ID-OBJTP = SOFD-FOLTP. " the folder type ( usually FOL )
FOLDER_ID-OBJYR = SOFD-FOLYR. " the folder year ( usually 22 )
FOLDER_ID-OBJNO = SOFD-FOLNO. " the folder no.
OBJECT_TYPE = 'RAW'. " the type of object being added
build up the object information for creating the object
OBJECT_HD_CHANGE-OBJLA = SY-LANGU. " the language of the email
OBJECT_HD_CHANGE-OBJNAM = 'PS to DM Interface'. " the object name
mail subject 'Mass Linking of QA, pass/fail'
MOVE TEXT-002 TO OBJECT_HD_CHANGE-OBJDES.
OBJECT_HD_CHANGE-DLDAT = SY-DATUM. " the date of the email
OBJECT_HD_CHANGE-DLTIM = SY-UZEIT. " the time of the email
OBJECT_HD_CHANGE-OBJPRI = '1'. " the priority ( highest )
OBJECT_HD_CHANGE-OBJSNS = 'F'. " the object sensitivity
F is functional, C - company sensitive
object_hd_change-skips = ' '. " Skip first screen
object_hd_change-acnam = 'SM35'. " Batch imput transaction
object_hd_change-vmtyp = 'T'. " Transaction type
add the text lines into the contents of the email
CLEAR OBJCONT.
REFRESH OBJCONT.
free objcont. " added this to delete the mail contents records
LOOP AT T_MAIL_TEXT.
OBJCONT-LINE = T_MAIL_TEXT-STRING.
APPEND OBJCONT.
ENDLOOP.
CLEAR OBJCONT.
build up the table of receivers for the email
REC_TAB-RCDAT = SY-DATUM. " the date to send the email
REC_TAB-RCTIM = SY-UZEIT. " the time to send the email
the SAP username of the person who will receive the email
REC_TAB-RECNAM = D_USERNAME.
the user type of the person who will send the email ( USR )
REC_TAB-SNDTP = SOUC-USRTP.
the user year of the person who will send the email ( 22 )
REC_TAB-SNDYR = SOUC-USRYR.
the user number of the person who will send the email
REC_TAB-SNDNO = SOUC-USRNO.
the sap username of the person who will send the email
REC_TAB-SNDNAM = SY-UNAME.
get the user info for the receiver of the document
SELECT SINGLE * FROM SOUC WHERE SAPNAM = D_USERNAME.
IF SY-SUBRC NE 0.
WRITE : / TEXT-001, D_USERNAME. "usnam.
EXIT.
ENDIF.
the user number of the person who will receive the email ( USR )
REC_TAB-RECNO = SOUC-USRNO.
the user type of the person who will receive the email ( USR )
REC_TAB-RECTP = SOUC-USRTP.
the user year of the person who will receive the email ( USR )
REC_TAB-RECYR = SOUC-USRYR.
the priority of the email ( highest )
REC_TAB-SNDPRI = '1'.
check for delivery on the email
REC_TAB-DELIVER = 'X'.
send express so recipient knows there is a problem
REC_TAB-SNDEX = 'X'.
check for a return receipt
REC_TAB-READ = 'X'.
the sap username of the person receiving the email
REC_TAB-ADR_NAME = D_USERNAME. "usnam.
add this receiver to the internal table
APPEND REC_TAB.
CLEAR REC_TAB.
call the function to create the object in the outbox of the sender
CALL FUNCTION 'SO_OBJECT_INSERT'
EXPORTING
FOLDER_ID = FOLDER_ID
OBJECT_HD_CHANGE = OBJECT_HD_CHANGE
OBJECT_TYPE = OBJECT_TYPE
OWNER = SY-UNAME
IMPORTING
OBJECT_ID = NEW_OBJECT_ID
TABLES
OBJCONT = OBJCONT
OBJHEAD = OBJHEAD
OBJPARA = OBJPARA
OBJPARB = OBJPARB
EXCEPTIONS
ACTIVE_USER_NOT_EXIST = 1
COMMUNICATION_FAILURE = 2
COMPONENT_NOT_AVAILABLE = 3
DL_NAME_EXIST = 4
FOLDER_NOT_EXIST = 5
FOLDER_NO_AUTHORIZATION = 6
OBJECT_TYPE_NOT_EXIST = 7
OPERATION_NO_AUTHORIZATION = 8
OWNER_NOT_EXIST = 9
PARAMETER_ERROR = 10
SUBSTITUTE_NOT_ACTIVE = 11
SUBSTITUTE_NOT_DEFINED = 12
SYSTEM_FAILURE = 13
X_ERROR = 14
OTHERS = 15.
IF SY-SUBRC NE 0.
MESSAGE A063(ZR53) WITH SY-SUBRC.
EXIT.
ENDIF.
call the function to send the already created email to the receivers
CALL FUNCTION 'SO_OBJECT_SEND'
EXPORTING
FOLDER_ID = FOLDER_ID
OBJECT_ID = NEW_OBJECT_ID
OUTBOX_FLAG = 'X'
OWNER = SY-UNAME
TABLES
RECEIVERS = REC_TAB
EXCEPTIONS
ACTIVE_USER_NOT_EXIST = 1
COMMUNICATION_FAILURE = 2
COMPONENT_NOT_AVAILABLE = 3
FOLDER_NOT_EXIST = 4
FOLDER_NO_AUTHORIZATION = 5
FORWARDER_NOT_EXIST = 6
NOTE_NOT_EXIST = 7
OBJECT_NOT_EXIST = 8
OBJECT_NOT_SENT = 9
OBJECT_NO_AUTHORIZATION = 10
OBJECT_TYPE_NOT_EXIST = 11
OPERATION_NO_AUTHORIZATION = 12
OWNER_NOT_EXIST = 13
PARAMETER_ERROR = 14
SUBSTITUTE_NOT_ACTIVE = 15
SUBSTITUTE_NOT_DEFINED = 16
SYSTEM_FAILURE = 17
TOO_MUCH_RECEIVERS = 18
USER_NOT_EXIST = 19
X_ERROR = 20
OTHERS = 21.
IF SY-SUBRC EQ 0.
MESSAGE I035(ZR53) WITH NEW_OBJECT_ID D_USERNAME. "usnam.
ELSE.
MESSAGE I036(ZR53) WITH D_USERNAME." sy-subrc.
ENDIF.
ENDFORM. " CREATE_AND_SEND_MAIL_OBJECT
thanks
mrutyun -
Send a mail to the message creator
Hi,
Can anyone help on SAP note 554951, i tried to do this but doesnt seem to work.
Can anyone please explain the step by step procedure to set this up?
Thanks a lot
KeshiHi
Check the following link and also sdn threads:-
http://help.sap.com/saphelp_crm40/helpdata/en/ec/700b3b5d6d924fe10000000a11402f/frameset.htm
SOLMAN - Support Desk - Sent an email to the creator...
Re: Sending an automatic mail on changing message status
Mail during the creation of Support Message
Please reward points.
Maybe you are looking for
-
Automator and Adobe Photoshop CS3
Hi All, I have never used Automator so i am not sure if this is what it is for but I want to be able to apply a watermark to all my images by opening them from a folder in Adobe Photoshop CS3, applying the watermark image then saving and closing the
-
External Firewire Drive Ceases to be Detected After DVD Drive Installation
About a week ago, I replaced the original Pioneer DVR-103 drive in my Quicksilver 800 Mhz/dual G4 with a Pioneer DVR-115 to work with newer, faster media. After restarting the machine, I got an alert that told me my 80Gb Maxtor external firewire driv
-
Quiz scores as email attachment
Hi. I cant seem to get the quiz scores to post as an attachment.They always show in the body. im using captivate 4. i have posted the quiz to a web server. I set the quiz preferences - email -attachment. I seems very simple.. is there a trick to gett
-
Digital editions provides you with an ability to move back and forth between pages by using the CTRL+G and CTRL+SHIFT+G key combinations. Unfortunatly, this combination doesn't work, instead it provides you with same functionality as if I pressed CTR
-
I-Photo quits unexpectedly I try to open up the app and it tries to open but then quits very quickly, and a window pops up stating it quit unexpectedly, and try to re-open. But it will not open. I tried to shut down the computer, and re start. But th