How to send multiple attachemnt with a Email

Hello experts,
I have problem with sending multiple attachement with a Email .
I have used program BCS_EXAMPLE_5. it is not for multiple attachment.
Please help me.
Thank you.

Hello,
u can make use of these Function Modules.
SO_DOCUMENT_SEND_API1
SO_NEW_DOCUMENT_SEND_API1
'CONVERT_OTFSPOOLJOB_2_PDF'
the program which u gave using the method classes
Thank u,
santhosh
Edited by: santhosh kumar on Dec 2, 2008 2:15 PM

Similar Messages

How to send multiple customer statements by email using RFKORD11 program.

Hi All,
How to send multiple customer statements by email using RFKORD11 program. Is it possible?
As of now we copied the stanadard program and sending the customer statements by email, one by one.
if i execute the z program it will show the customer statement and send mail option.
if i click send mail it will send that customer statement to the corresponding customer.
then again i need to click back, it will show next customer statement and click on send mail.
Pl guide me, if any one worked on this program.
thanks in advance.
Regards,
Mahesh

Try execute the program in the background to see if that helps.

How to send multiple customer statements by email using RFKORD11

Hi All,
How to send multiple customer statements by email using RFKORD11 program.
As of now we copied the stanadard program and sending the customer statements by email, one by one.
if i execute the z program it will show the customer statement and send mail option.
if i click send mail it will send that customer statement to the corresponding customer.
then again i need to click back, it will show next customer statement and click on send mail.
Pl guide me, if any one worked on this program.
Regards,
Mahesh

Hi .
You first need to copy that program to Z and make the changes in it. Can you convert sapscript to smartform?
then you can write a logic to send mail in the loop.
to send the pdf file
https://www.sdn.sap.com/irj/scn/wiki?path=/display/snippets/mailsendthroughoutputcontrols
Regards,
Madhuri
Edited by: madhuri sonawane on Jun 10, 2009 4:20 PM

How to send multiple files with it's original name over HTTPS using one CC?

I am working on a File to HTTPs scenario. It is in production and working fine. Currently we send only one file and I have hard coded the name in the communication channel in the header fields. Now we have to send more files with different names and I want to use only one receiver channel instead of many. We need to send the files with their original names.
I used the ASMA in the sender File Adapter and I see the FileName in the dynamic configuration under http://sap.com/xi/XI/System/File name="FileName".
I know we can use a UDF in message mapping and get the value and put it in HEADERFIELDONE. But we don't want to use mapping as the files are huge and we don't want to insert XML tags in the payload.
So how do I put the Filename from the DynamicConfiguration to the HTTP header field as FileName without using mapping? Are there any settings?
Can I put something in the PROLOG or can I use any other module in the File Sender Adapter or is there any other option?
Any help is appreciated.
Thanks
Sai

See my blog:
/people/stefan.grube/blog/2009/06/19/unknown-use-case-of-dynamicconfigurationbean-store-file-name-to-jms-header-without-mapping
You have to put the configuration in sender channel, as HTTP adapter does not allow modules.
For the second module, put values related to HTTP adapter.

How to send multiple attachments with the mail in jsp

hi.I wrote a code to send mail.but i need to send mail with multiple attachments.when i run this code iam able to send message but not files.i want to send files as attachments with the message.please help me.
<%@ page import="javax.mail.*,javax.mail.internet.*,java.util.Date,java.io.*,java.net.InetAddress,java.sql.*,java.util.Properties,java.net.*,javax.sql.*,javax.activation.*,java.util.*,java.text.*" %>
<%@ page import="java.io.*,java.sql.*,java.net.*,java.util.*,java.text.*" %>
<%
String Attachfiles1="";
String Attachfiles2="";
String Attachfiles3="";
if("Send".equalsIgnoreCase("send"))
try
String subject="",from="",url = null,to="";
String mailhost = "localhost";
Properties props = System.getProperties();
String msg_txt="";
String strStatus="";
String mailer = "MyMailerProgram";
to=request.getParameter("to");
from=request.getParameter("from");
subject=request.getParameter("subject");
msg_txt=request.getParameter("message");
props.put("mail.smtp.host", mailhost);
Session mailsession = Session.getDefaultInstance(props, null);
Message message = new MimeMessage(mailsession);
message.setFrom(new InternetAddress(from));
message.setRecipients(Message.RecipientType.TO,InternetAddress.parse(to, false));
message.setSubject(subject);
message.setHeader("X-Mailer", mailer);
message.setSentDate(new Date());
message.setText(msg_txt);
BodyPart messageBodyPart = new MimeBodyPart();
BodyPart messageBodyPart2 = new MimeBodyPart();
Multipart multipart = new MimeMultipart(); // to add many part to your messge
messageBodyPart = new MimeBodyPart();
javax.activation.DataSource source = new javax.activation.FileDataSource("path of the file");
messageBodyPart.setDataHandler(new DataHandler(source));
messageBodyPart.setFileName("file_name");
messageBodyPart2.setText("message"); // set the txt message
multipart.addBodyPart(messageBodyPart);
multipart.addBodyPart(messageBodyPart2);
Transport.send(message);
out.println("Message Sent");
catch (Exception e)
e.printStackTrace();
if("Attachfiles".equalsIgnoreCase("attachfiles"))
Attachfiles1=request.getParameter("fieldname1");
Attachfiles2=request.getParameter("fieldname2");
Attachfiles3=request.getParameter("fieldname3");
%>
<html>
<body>
<div class="frame">
<form action="Composemail.jsp" method="post">
<b>SelectPosition:</b> <select name="cars" >
<option value="ABAP">ABAP
<option value="saab">Saab
<option value="fiat">Fiat
<option value="audi">Audi
</select><br><br>
<table border="1" cellpadding="2" cellspacing="2">
<tr><th>Name</th>
<th>EmailId</th>
<th>ContactNumber</th>
<th>Position</th>
</tr>
<tr>
<td>
</td>
</tr>
</table><br>
<b>SelectUser :</b><select name="cars">
<option value="Administrator">Administrator
<option value="saab">Saab
<option value="fiat">Fiat
<option value="audi">Audi
</select>
<br>
<b>To :</b>��<input type="text" name="to" size="72"><br>
<b>From :</b>��<input type="text" name="from" size="72"><br>
<b>Subject :</b>��<input type="text" name="subject" size="72"><br>
<%=Attachfiles1%><br><%=Attachfiles2%><br><%=Attachfiles3%><br><br>
<b>Message:</b><br>
��<textarea rows="10" cols="50" name="message">
</textarea> <br><br>
<b>AttachedFile:</b>�<input type="file" name="fieldname1" value="filename" size="50"><br><br>
<b>AttachedFile:</b>�<input type="file" name="fieldname2" value="filename" size="50"><br><br>
<b>AttachedFile:</b>�<input type="file" name="fieldname3" value="filename" size="50"><br><br>
��<input type="submit" name="attachfiles" value="Attachfiles">
<center>
<input type="submit" name="send" value="Send" >
</center>
</form>
</div>
</body>
</html>

Most likely you're not specifying the path of a file on the server machine.

How to send multiple attachment s with a mail??

Hi,
How to send multiple attachments with a mail??
Situation::
In my case i have 5 internal tables populated dynamically in the report.
I want to send them in .TXT format as attachment with 1 mail.
Can anybody tell me in 'SO_NEW_DOCUMENT_ATT_SEND_API1',
how we add multiple attachmants to table objin???
thanks,
deepak

Hi Deepak,
Please find the sample code for sending mail with multiple attachment.
Report ZPAN_02M                                        *
REPORT zpan_02m                                .
*-MAIN DECLARATION----
DATA: docdata    LIKE sodocchgi1,
      objpack    LIKE sopcklsti1 OCCURS 1 WITH HEADER LINE,
      objhead    LIKE solisti1   OCCURS 1 WITH HEADER LINE,
      objtxt     LIKE solisti1   OCCURS 10 WITH HEADER LINE,
      objbin     LIKE solisti1   OCCURS 10 WITH HEADER LINE,
      objhex     LIKE solix      OCCURS 10 WITH HEADER LINE,
      reclist    LIKE somlreci1 OCCURS 1 WITH HEADER LINE.
*-OTHER DECLARATIONS----
DATA : listobject   LIKE abaplist OCCURS 1 WITH HEADER LINE.
DATA : tab_lines(3) TYPE n.
DATA : att_type     LIKE soodk-objtp.
*OBJBIN = ' | '. APPEND OBJBIN.
*---For simple attachment -
DATA : BEGIN OF wi_data OCCURS 0,
         c1(10),
         c2(10),
       END OF wi_data.
wi_data-c1 = 'Line 1'.   wi_data-c2 = 'Line 1'. APPEND wi_data.
wi_data-c1 = 'Line 2'.   wi_data-c2 = 'Line 2'. APPEND wi_data.
wi_data-c1 = 'Line 3'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 4'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 5'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 6'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 7'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 8'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 9'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 10'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 11'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 12'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 13'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 14'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 15'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 16'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 17'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 18'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 19'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 20'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 21'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 22'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 23'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 24'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 25'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
wi_data-c1 = 'Line 26'.   wi_data-c2 = 'Line 3'. APPEND wi_data.
class cl_abap_char_utilities definition load.
constants:
    con_tab type c value cl_abap_char_utilities=>HORIZONTAL_TAB,
    con_cret type c value cl_abap_char_utilities=>CR_LF,
    con_nwln type c value cl_abap_char_utilities=>NEWLINE.
LOOP AT wi_data.
CONCATENATE wi_data-c1 con_tab
              wi_data-c2
            INTO objbin.
condense objbin.
CONCATENATE con_cret objbin INTO objbin.
APPEND objbin.
ENDLOOP.
*---CREATE MESSAGE : DOCDATA -
Name
docdata-obj_name = 'TEST_ALI'.
Subject
docdata-obj_descr = 'Test including ALI/HTML Attachment'.
*---CREATE MESSAGE : BODY -
objtxt = 'Test Document.'.
APPEND objtxt.
objtxt = 'You will find an ALI/HTML attachment in this message.'.
APPEND objtxt.
objtxt = 'Have a nice day.'.
APPEND objtxt.
*-CREATE PACKING LIST-----TEXT--
objpack-head_start = 1.
DESCRIBE TABLE objtxt LINES tab_lines.
READ     TABLE objtxt INDEX tab_lines.
docdata-doc_size = ( tab_lines - 1 ) * 255 + STRLEN( objtxt ).
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.
*-CREATE PACKING LIST-----ATTACHMENT--
att_type = 'XLS'.
DESCRIBE TABLE objbin LINES tab_lines.
READ     TABLE objbin INDEX tab_lines.
objpack-doc_size = ( ( tab_lines / 2 ) - 1 ) * 255 + STRLEN( objbin ).
objpack-transf_bin = 'X'.
objpack-head_start = 1.
objpack-head_num   = 0.
objpack-body_start = 1.
objpack-body_num   = tab_lines / 2.
objpack-doc_type   = att_type.
objpack-obj_name   = 'ATTACHMENT 1'.
objpack-obj_descr = 'Attached Document 1'.
APPEND objpack.
att_type = 'XLS'.
objpack-doc_size = ( ( tab_lines / 2 ) - 1 ) * 255 + STRLEN( objbin ).
objpack-transf_bin = 'X'.
objpack-head_start = 14.
objpack-head_num   = 14.
objpack-body_start = 14.
objpack-body_num   = tab_lines / 2.
objpack-doc_type   = att_type.
objpack-obj_name   = 'ATTACHMENT 2'.
objpack-obj_descr = 'Attached Document 2'.
APPEND objpack.
*-CREATE RECEIVER LIST----
reclist-receiver = '[email protected]'. reclist-rec_type = 'U'.
APPEND reclist.
reclist-receiver = sy-uname.               reclist-rec_type = 'B'.
APPEND reclist.
*-SEND MESSAGE----
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
    document_data                     = docdata
    put_in_outbox                     = 'X'
    commit_work                       = 'X'
IMPORTING
SENT_TO_ALL                       =
NEW_OBJECT_ID                     =
TABLES
    packing_list                      = objpack
    object_header                     = objhead
    contents_bin                      = objbin
    contents_txt                      = objtxt
CONTENTS_HEX                      = objhex
OBJECT_PARA                       =
OBJECT_PARB                       =
    receivers                         = 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.
WAIT UP TO 2 SECONDS.
SUBMIT rsconn01 WITH mode = 'INT'
              WITH output = 'X'
              AND RETURN.
Hope this is enough for you...
Enjoy SAP.
Pankaj Singh.

Iam unable to send multiple attachments with a mail using JavaMail?

Hai to all,
Iam unable to send multiple attachments with a email,see
iam have succeeded in sending one attachment with a email.
when iam tring to add two or more attachments to a mail,
it is giving a Exception like this:
javax.mail.MessagingException: IOException while sending message;
nested exception is:
java.io.IOException: No content
at com.sun.mail.smtp.SMTPTransport.sendMessage(SMTPTransport.java:577)
at javax.mail.Transport.send0(Transport.java:151)
at javax.mail.Transport.send(Transport.java:80)
at AttachFilesModified.sendMail(AttachFilesModified.java:185)
at AttachFilesModified.main(AttachFilesModified.java:43)
this is my code snipnet:
BodyPart messageBodyPart = new MimeBodyPart();
Multipart multipart = new MimeMultipart();
if(body != null)
messageBodyPart.setText(body);
multipart.addBodyPart(messageBodyPart);
/*if(attachments != null)
for(int i = 0; i < attachments.length; i++)
String filename="D:\\nagaraju\\apachi\\axis-bin-1_3.zip";
     //String s[]=filename.split("\\");
     //System.out.println(s);
          //String s1=s[1];
          //String filename1=s[s.length-1];
messageBodyPart = new MimeBodyPart();
DataSource source = new FileDataSource(filename);
     messageBodyPart.setDataHandler(new DataHandler(source));
messageBodyPart.setFileName(filename);
multipart.addBodyPart(messageBodyPart);
     //second file attaching
     /*String filename1="C:\\nagadoc.txt";
     BodyPart messageBodyPart1=new MimeBodyPart();
     DataSource source1=new FileDataSource(filename1);
     messageBodyPart.setDataHandler(new DataHandler(source1));
     messageBodyPart.setFileName(filename1);
     multipart.addBodyPart(messageBodyPart1);
mess.setContent(multipart);
Address[] allRecips = mess.getAllRecipients();
if(toStdOut)
System.out.println("done.");
//System.out.println("Sending message (\"" + mess.getSubject().substring(0,10) + "...\") to :");
System.out.println("Sending message................");
for(int i = 0; i < allRecips.length; i++)
System.out.print(allRecips[i] + ";");
System.out.println("...");
Transport.send(mess);
if(toStdOut)
System.out.println("done.");
return 0;
What's wrng with that code snipnet?
Nagaraju G.

This works fine with me, try it or compare it if you want.
public void sendEmail( String from, String to,
String subject, String body) {
fMailServerConfig.put("mail.smtp.host", " <<mail server>>");
Session session = Session.getDefaultInstance( fMailServerConfig, null );
MimeMessage message = new MimeMessage( session );
try {
message.setFrom(new InternetAddress(from));
message.setRecipient(Message.RecipientType.TO,
new InternetAddress(to));
message.setSubject( subject);
message.setText( body);
//Adds Attechment:
Multipart multipart = new MimeMultipart();
BodyPart messageBodyPart = new MimeBodyPart();
messageBodyPart.setText("Here are my attachments");
multipart.addBodyPart(messageBodyPart);
messageBodyPart = new MimeBodyPart();
//first attachment
DataSource source = new FileDataSource("C:\\img1.jpg");
messageBodyPart.setDataHandler(new DataHandler(source));
messageBodyPart.setFileName("C:\\Telnor1.jpg");
multipart.addBodyPart(messageBodyPart);
//Second attachment
DataSource source2 = new FileDataSource("C:\\img2.jpg");
messageBodyPart.setDataHandler(new DataHandler(source2));
messageBodyPart.setFileName("C:\\Telnor2.jpg");
multipart.addBodyPart(messageBodyPart);
//etc...
message.setContent(multipart);
Transport.send( message );
}catch (MessagingException e){
System.err.println("Cant send mail. " + e);
The error on your code might be:
BodyPart messageBodyPart1=new MimeBodyPart();
DataSource source1=new FileDataSource(filename1);
messageBodyPart.setDataHandler(new DataHandler(source1));
messageBodyPart.setFileName(filename1);
multipart.addBodyPart(messageBodyPart1);
You don't need to create a new BodyPart, and apart from that you'r seting values on "messageBodyPart" but adding "messageBodyPart1" to your multipart :P
Well see u and have a good one!
p.s. i know it's a little late from the day you posted, but at least it might help somebody else :D .

How do I send docs to multiple signators with different email addresses on Echo sign ?

How do I send docs to multiple signators with different email addresses on Echo sign ?

Thanks man...the problem could be on the signators side.
Rick Schell...Realtor, ABR
www.rick-the-realtor.com
Cell 615-804-3085
Crye-Leike Realtors
Office 615-373-3513
Fax 615-373-5228
Quoting Echosign-Rob <[email protected]>:
Echosign-Rob created
the discussion
"How do I send docs to multiple signators with different email
addresses on Echo sign ?"
To view the discussion, visit:
https://forums.adobe.com/message/6395941#6395941
>

How can I send multiple photos in an email?

How can I send multiple photos in an email?

In Photos, when looking at your pictures, click the Action arrow first (upper right), before selecting any pictures. Then you can tap select the pictures you want to send then click "Share" in the upper left. From there you can Email.
If you click and open one picture first, the Action button will only allow you to share that one picture.
(Yeah, took me a while to figure this out. )
ivan

How come when I send a picture with iPhoto email it always send the same picture event when I choose a different picture until I log out from iPhoto

how come when I send a picture with iPhoto email it always send the same picture event when I choose a different picture until I log out from iPhoto

Why? Because something is wrong.
As a Test:
Hold down the option (or alt) key and launch iPhoto. From the resulting menu select 'Create Library'
Import a few pics into this new, blank library. Is the Problem repeated there?

How to send multiple attachements in single mail

Hi All,
Currently i am using this function module SO_NEW_DOCUMENT_ATT_SEND_API1 to send mail with only one attachment.
But now i need to send multiple attachments to a single mail.
Can any one please tell me as how to send multiple attachments in single mail.
Thanks in advance.

Hi
See this and do accordingly
Mailing with Attachment by ABAP Coding
Refer this link:
Mail with attachment.
FORM send_list_to_basis .
DATA: w_path      LIKE rlgrap OCCURS 0 WITH HEADER LINE,
        lt_index    TYPE sy-tabix,
        doc_type(3) TYPE c,
        descr       LIKE it_objpack_basis-obj_descr,
        temp_data   LIKE w_path,
        temp1       TYPE string,
        tab_lines   TYPE i,
        langu(15)   TYPE c,
        expirydate TYPE so_obj_edt,
        L_FILE1(100).
CONCATENATE 'C:\' sy-repid '_' sy-datum '.XLS' INTO L_FILE1.
W_PATH-FILENAME = L_FILE1.
APPEND w_path.
CLEAR w_path.
wa_doc_chng-obj_descr = 'User List not logged on for 180 days'.
wa_doc_chng-obj_langu = 'E'.
wa_doc_chng-obj_expdat = sy-datum.
CLEAR w_subject.
CONCATENATE 'Please find attached document with list of users'
              'not logged on for 180 days for client' sy-mandt
              INTO w_subject SEPARATED BY space.
it_objtxt_basis-line = w_subject.
APPEND it_objtxt_basis.
CLEAR it_objtxt_basis.
it_objtxt_basis-line = text-004.
APPEND it_objtxt_basis.
CLEAR it_objtxt_basis.
CLEAR w_tab_line.
DESCRIBE TABLE it_objtxt_basis LINES w_tab_line.
READ TABLE it_objtxt_basis INDEX w_tab_line INTO l_cline.
wa_doc_chng-doc_size =
   ( w_tab_line - 1 ) * 255 + STRLEN( l_cline ).
CLEAR it_objpack_basis-transf_bin.
it_objpack_basis-head_start = 1.
it_objpack_basis-head_num   = 0.
it_objpack_basis-body_start = 1.
it_objpack_basis-body_num   = w_tab_line.
it_objpack_basis-doc_type   = 'RAW'.
APPEND it_objpack_basis.
CLEAR it_objpack_basis.
LOOP AT w_path.
    temp1 = w_path.
    descr = w_path.
    CALL FUNCTION 'STRING_REVERSE'
      EXPORTING
        string = descr
        lang    = 'E'
      IMPORTING
        rstring = descr.
    CALL FUNCTION 'STRING_SPLIT'
      EXPORTING
        delimiter = '\'
        string    = descr
      IMPORTING
        head      = descr
        tail      = temp_data.
    CALL FUNCTION 'STRING_REVERSE'
      EXPORTING
        string = descr
        lang    = 'E'
      IMPORTING
        rstring = descr.
    CALL FUNCTION 'STRING_SPLIT'
      EXPORTING
        delimiter = '.'
        string    = descr
      IMPORTING
        head      = temp_data
        tail      = doc_type.
    CALL FUNCTION 'GUI_UPLOAD'
      EXPORTING
        filename      = temp1
        filetype      = 'BIN'
        header_length = 0
        read_by_line = 'X'
        replacement   = '#'
      TABLES
        data_tab      = it_upload.
    DESCRIBE TABLE it_upload LINES tab_lines.
    DESCRIBE TABLE it_objbin_basis LINES lt_index.
    lt_index = lt_index + 1.
    LOOP AT it_upload.
      wa_objbin_basis-line = it_upload-line.
      APPEND wa_objbin_basis TO it_objbin_basis.
      CLEAR wa_objbin_basis.
    ENDLOOP.
    it_objpack_basis-transf_bin = 'X'.
    it_objpack_basis-head_start = 0.
    it_objpack_basis-head_num   = 0.
    it_objpack_basis-body_start = lt_index.
    it_objpack_basis-body_num   = tab_lines.
    it_objpack_basis-doc_type   = doc_type.
    it_objpack_basis-obj_descr = descr.
    it_objpack_basis-doc_size   = tab_lines * 255.
    APPEND it_objpack_basis.
    CLEAR it_objpack_basis.
ENDLOOP.
it_reclist_basis-receiver = '[email protected]'.
it_reclist_basis-rec_type = 'U'.
APPEND it_reclist_basis.
CLEAR it_reclist_basis.
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = wa_doc_chng
      put_in_outbox              = 'X'
      commit_work                = 'X'
    TABLES
      packing_list               = it_objpack_basis
      contents_txt               = it_objtxt_basis
      contents_bin               = it_objbin_basis
      receivers                  = it_reclist_basis
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      operation_no_authorization = 4
      OTHERS                     = 99.
IF sy-subrc EQ 0.
    SUBMIT rsconn01 WITH mode = 'INT' AND RETURN.
ENDIF.
ENDFORM.                    " send_list_to_basis
<b>Reward points for useful Answers</b>
Regards
Anji

How to send a mail with HTML body from Oracle

Hi Team,
Can somebody guide me how to send a mail with HTML body from oracle.
Here is the piece of code i am trying to send a mail.
procedure SEND_MAIL is
cursor c_1 is select * from table_name;
l_mail_id varchar2(40);
-- ls_mailhost VARCHAR2(64) := Mailhost;
ls_from VARCHAR2(64) := ‘[email protected]’
ls_subject VARCHAR2(200);
ls_to VARCHAR2(64);
l_mail_conn UTL_SMTP.connection;
ls_left_menu_name VARCHAR2(64);
ll_emp_num number(8);
begin
for i in c_1 loop
begin
l_mail_conn := UTL_SMTP.OPEN_CONNECTION('IP');
UTL_SMTP.HELO(l_mail_conn, 'IP');
UTL_SMTP.MAIL(l_mail_conn, LS_FROM);
UTL_SMTP.RCPT(L_mail_conn, LS_TO);
UTL_SMTP.DATA(l_mail_conn,'From: ' ||ls_from || utl_tcp.crlf ||
'To: ' ||ls_to || utl_tcp.crlf ||
'Subject: ' ||ls_subject|| utl_tcp.crlf);
UTL_SMTP.QUIT(l_mail_conn);
exception
when no_data_found then
null;
when others then
RAISE_APPLICATION_ERROR(-20000, 'Failed to send mail due to the following error: ' || sqlerrm);
end;
end loop;
end;
Thnx

Hi Nicolas!
Have you tried to set "Output Format" for "RAW Text" to HTM in SCOT.
If HTM is missing in your dropdown-list, you could check out table SXCONVERT2. Copy the line with category T/format TXT, and change the format from TXT to HTM. The existing function
SX_OBJECT_CONVERT__T.TXT does not need to be changed. Now you should be able to choose HTM in SCOT. You will probably need som HTML-tags in your text to make it look good.
Hope this helps!
Regards
Geir

How to send multiple material in our own message type

Dear All,
Any idea about how to send multiple material in our own message type,In my outbound i have created a message type but able to send only one material through program. If i give range of material its in error status 26 in WE02 and failed to send.
Help me ASAP.
Thanks & Regards,
Arun.

hi Gordon,
I want to receive the IDOC data for message type WPUUMS from a java server. Currently i am working on sample values for segments
E1WPU01
E1WPU02
E1WPU03
E1WPU04
E1WPU05
E1WXX01
I am facing problems in passing the correct values .
Its throwing a error message status 51.(Application document not posted) IDoc not fully processed.
can you help me with some dummy data for all the fields in the above segments.
reply ASAP
regards
arun
Edited by: Arun Kumaran on Aug 22, 2008 3:33 PM

How to send multiple records in file2file and file2db or all scenarios//

I'm able to send single record for file2file and file2db,
how to send multiple records in file2file and file2db or all scenarios//
what should add or make changes for dis.

1 put Occurance 1 to Unbounded in data type of IR
2 In the test tag of message mappings in IR,select one node and use "duplicate subtree" in its context menu
After that,you can download the test data in XML format with the button "save document source"
for example:
<?xml version="1.0" encoding="UTF-8" ?>
- <ns0:ZFileDemo xmlns:ns0="http://hand-china.com/mm/po_01">
- <Item>
<ItemNo>1</ItemNo>
<Matnr>2</Matnr>
<Text>3</Text>
</Item>
- <Item>
<ItemNo>4</ItemNo>
<Matnr>5</Matnr>
<Text>6</Text>
</Item>
</ns0:ZFileDemo>

How to send ALV Grid report to Email?

hai all,
How to send ALV Grid report to Email.
please its very urgent.....

Hi,
when u run the Alv, u will button 'Mail Recepiant' in tool bar.When u click it and enter to new screen, go to the Recipient Tab(down) enter ur maild id and click 'Send' button on tool bar.
or.
if u want to send the Alv content to mail id thru prg, go thru the following code.
                          TABLES
TABLES: BSID. " Accounting: Secondary Index for Customers.
                          TYPE-POOLS
TYPE-POOLS: SLIS.
                          INTERNAL TABLES
    Internal table to hold Customer data.
DATA: BEGIN OF TB_BSID OCCURS 0,
        BUKRS   LIKE BSID-BUKRS,    " Company code
        KUNNR   LIKE BSID-KUNNR,    " Customer number
        AUGDT   LIKE BSID-AUGDT,    " Clearing Date
        BLDAT   LIKE BSID-BLDAT,    " Doc date in document
        SHKZG   LIKE BSID-SHKZG,    " Debit/credit indicator
        DMBTR   LIKE BSID-DMBTR,    " Amount in local currency
        ZFBDT   LIKE BSID-ZFBDT,    " Baseline date for due date calc
        ZBD1T   LIKE BSID-ZBD1T,    " Cash discount days 1
        ZBD2T   LIKE BSID-ZBD2T,    " Cash discount days 2
        ZBD3T   LIKE BSID-ZBD3T,    " Net Payment Terms Period
        REBZG   LIKE BSID-REBZG,    " No Of the Inv the Tran Belongs to
        REBZT   LIKE BSID-REBZT,    " Follow-On Document Type
      END OF TB_BSID.
    Internal table to hold Open Items.
DATA: TB_BSID_OPEN LIKE TABLE OF TB_BSID WITH HEADER LINE.
    Internal table to hold Cleared Items.
DATA: TB_BSAD_CLEAR LIKE TABLE OF TB_BSID WITH HEADER LINE.
    Internal table to hold General Data in Customer Master
DATA: BEGIN OF TB_KNA1 OCCURS 0,
        KUNNR LIKE KNA1-KUNNR,      " Customer Number
        NAME1 LIKE KNA1-NAME1,      " Name Line 1
        TELF1 LIKE KNA1-TELF1,      " Telephone Number
        ADRNR LIKE KNA1-ADRNR,      " Address
      END OF TB_KNA1.
    Internal table to hold Customer Master (Company Code)
DATA: BEGIN OF TB_KNB1 OCCURS 0,
        KUNNR LIKE KNB1-KUNNR,     " Customer Number
        BUKRS LIKE KNB1-BUKRS,     " Company code
        ERDAT LIKE KNB1-ERDAT,     " Rec Created Date
        ZAMIB LIKE KNB1-ZAMIB,     " DMS Managed Indicator
      END OF TB_KNB1.
    Internal table to hold Final Output Data
DATA: BEGIN OF TB_FINAL OCCURS 0,
        KUNNR           LIKE KNA1-KUNNR, " Customer Number
        NAME1           LIKE KNA1-NAME1, " Name Line 1
        ADDRESS1(25)    TYPE C,          " Address line 1
        ADDRESS2(25)    TYPE C,          " Address line 2
        ADDRESS3(25)    TYPE C,          " Address line 3
        ADDRESS4(25)    TYPE C,          " Address line 4
        PHONE           LIKE KNA1-TELF1, " Telephone Number
        DAYS_SLOW(3)    TYPE C,          " Days Slow
        LAST_DATE(8)    TYPE C,          " Date of Last Invoice
        AVG(4)          TYPE C,          " Average Days to Pay
        CURRENT(10)     TYPE N,          " Current
        AVG_1_30(10)    TYPE N,          " 1-30 past due
        AVG_31_60(10)   TYPE N,          " 31-60 past due
        AVG_61_90(10)   TYPE N,          " 61-90 past due
        AVG_90G(10)     TYPE N,          " 90+ past due
      END OF TB_FINAL.
     ALV Internal tables
DATA : TB_FIELDCAT       TYPE SLIS_T_FIELDCAT_ALV, " Field Catalog
       TB_EVENTS         TYPE SLIS_T_EVENT,         " ALV Events
       TB_COMMENTS       TYPE SLIS_T_LISTHEADER.    " Comment
    Internal tables for the sending mail data
DATA: TB_OBJPACK TYPE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE,
      TB_OBJHEAD TYPE SOLISTI1   OCCURS 1 WITH HEADER LINE,
      TB_OBJTXT   TYPE SOLISTI1   OCCURS 10 WITH HEADER LINE,
      TB_RECLIST TYPE SOMLRECI1 OCCURS 5 WITH HEADER LINE,
      TB_OBJBIN   LIKE SOLISTI1   OCCURS 0 WITH HEADER LINE,
      TB_DOC_CHNG TYPE SODOCCHGI1.
    Internal table to get mail Receivers Address
DATA: TB_ZRECEIVE LIKE YSMTP_ADDRESS OCCURS 0 WITH HEADER LINE.
                           STRUCTURES
DATA: X_SADR            TYPE SADR,                 " For Address
      X_FIELDCAT        TYPE SLIS_FIELDCAT_ALV,    " For Field Catalog
      X_LAYOUT          TYPE SLIS_LAYOUT_ALV,      " For Layout
      X_EVENTS          TYPE SLIS_ALV_EVENT,       " For Events
      X_COMMENTS        TYPE SLIS_LISTHEADER,      " For Comments
      X_ADDR1_SEL       LIKE ADDR1_SEL,            " For Address
      WA_FAEDE          TYPE FAEDE.                " For FAEDE struct
                           VARIABLES
DATA: G_REPID        LIKE SY-REPID,             " Prog ID
      G_DAYS_SLOW(3) TYPE N,                    " Days Slow
      G_OPEN         TYPE I,                    " Counter
      G_AVG(4)       TYPE C,                    " Avg Days
      G_COUNT        TYPE I,                    " Counter
      G_TITLE        TYPE SOLISTI1-LINE,        " Description
      G_TAB_LINES    TYPE SY-TABIX,             " Internal data count
      G_REC_COUNT    TYPE I,                    " Total records
      G_CURR_BAL     TYPE N,                    " Account balance
      G_FILE_NAME    LIKE EDI_PATH-PTHNAM.      " Output File Name
                           CONSTANTS
CONSTANTS: C_D            TYPE C VALUE 'D',     " Account type
           C_X            TYPE C VALUE 'X',     " Check Value
           C_0(4)         TYPE N VALUE '0.00', " Constant for char
           C_1(2)         TYPE C VALUE '01',    " Posting key const
           C_H            TYPE C VALUE 'H',     " For Commenet-Type
           C_TXT(3)       TYPE N VALUE 'TXT',   " File type
           C_RAW(3)       TYPE C VALUE 'RAW',   " File type
           C_DELIMITER    TYPE X VALUE '09',    " ASCII CODE LINE
           C_TOP_OF_PAGE TYPE SLIS_FORMNAME VALUE 'TOP_OF_PAGE',
           C_INTERFACE    TYPE YWFSALOFFICNOTIF-INTERFACE_ID VALUE 'AP',
           C_FILENAME(20) TYPE N VALUE 'TEXT.TXT'," File name
           C_TITLE(30)    TYPE N VALUE 'Z21614_DB_CREDIT_AGENCY',
           C_Z001 TYPE RF035-RASID VALUE 'Z001'." Net 30/60/90/120/150
                           SELECTION SCREEN.
Selection Screen for Selection Criteria.
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-T01.
SELECT-OPTIONS: S_BUKRS FOR BSID-BUKRS OBLIGATORY,    " Company Code
                 S_BLDAT FOR BSID-BLDAT," OBLIGATORY, " Doc Date
                 S_KUNNR FOR BSID-KUNNR,               " Cust No
                 S_ZUONR FOR BSID-ZUONR.               " Assignment
PARAMETERS:      P_GRACE(2)   TYPE N OBLIGATORY,        " Grace Days
                 P_ZAMIB LIKE KNB1-ZAMIB AS CHECKBOX.   " DMS Indicator
SELECTION-SCREEN END OF BLOCK B1.
Selection Screen for Output Options.
SELECTION-SCREEN BEGIN OF BLOCK B2 WITH FRAME TITLE TEXT-T02.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 01.
PARAMETERS: P_REPORT RADIOBUTTON GROUP R1.             " Report Only
SELECTION-SCREEN COMMENT 5(25) TEXT-016.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 01.
PARAMETERS: P_DOWN RADIOBUTTON GROUP R1.               " Dwnld to Unix
SELECTION-SCREEN COMMENT 5(25) TEXT-017.
SELECTION-SCREEN POSITION 30.
PARAMETERS: P_FILE LIKE FILENAME-FILEINTERN DEFAULT
                             'Z21614_DB_CREDIT_AGENCY'. " File Name
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B2.
Selection Screen for E-mail.
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-T03.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN POSITION 01.
PARAMETERS: P_EMAIL AS CHECKBOX.                        " E-mail
SELECTION-SCREEN COMMENT 5(25) TEXT-018.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK B3.
                           INITIALIZATION
INITIALIZATION.
G_REPID = SY-REPID.
               AT SELECTION SCREEN.                                  *
AT SELECTION-SCREEN.
Validation of selection screen entries
perform validate_data.
                           START-OF-SELECTION
START-OF-SELECTION.
Select Data from Customer Master (Company Code)
PERFORM SELECT_KNB1.
Select Custmer Open Items.
PERFORM SELECT_CUSTOMER_OPEN_ITEMS.
Select Custmer Cleared Items.
PERFORM SELECT_CUSTOMER_CLEARED_ITEMS.
Select General Data in Customer Master
PERFORM SELECT_KNA1.
Populate Final Output Data.
PERFORM POPULATE_TB_FINAL.
                   End of selection                                  *
END-OF-SELECTION.
If both display report and send email is checked
IF P_REPORT = C_X AND P_EMAIL = C_X.
    MESSAGE E999 WITH
      'Select One Among Report Only & Send E-mail'(023).
When Radiobutton for Email or if the program is run background
ELSEIF ( P_EMAIL = C_X OR SY-BATCH = C_X ).
To send the mail
    PERFORM SEND_EMAIL.
ELSEIF P_REPORT = C_X .
To display the Final Output data using ALV's
    PERFORM DISPLAY_ALV_REPORT.
ENDIF.
Transfering data to file when downloading to Unix
IF P_DOWN = C_X.
    IF G_REC_COUNT IS INITIAL.
      MESSAGE I999 WITH
        'No Records Found For Selection Criteria'(024).
      EXIT.
    ELSE.
      IF NOT G_FILE_NAME IS INITIAL.
      Trasefering data to file
        PERFORM TRANSFER_DATA_FILE.
      Interface Audit report
        PERFORM WRITE_REPORT.
      ENDIF.
    ENDIF.
ENDIF.
                          F O R M S
*&      Form VALIDATE_DATA
      Validating selection-screen entries
FORM VALIDATE_DATA.
Local variables
DATA : L_BUKRS LIKE BSEG-BUKRS,          " For Company Code
         L_KUNNR LIKE BSEG-KUNNR.          " For Customer Number
Validate the Company code.
SELECT SINGLE BUKRS
    INTO L_BUKRS
    FROM T001
   WHERE BUKRS IN S_BUKRS.
IF SY-SUBRC <> 0.
    MESSAGE E999 WITH 'Enter valid Company Code'(025).
ENDIF.
Validate the Customer number
IF NOT S_KUNNR[] IS INITIAL.
    SELECT SINGLE KUNNR
      INTO L_KUNNR
      FROM KNA1
     WHERE KUNNR IN S_KUNNR.
    IF SY-SUBRC <> 0.
      MESSAGE E999 WITH 'Enter valid Customer Number'(026).
    ENDIF.
ENDIF.
ENDFORM.                    " VALIDATE_DATA
*&      Form SELECT_KNB1
      Select Data from Customer Master (Company Code)
FORM SELECT_KNB1 .
CLEAR: TB_KNB1,
         TB_KNB1[].
SELECT KUNNR
         BUKRS
         ERDAT
         ZAMIB
         FROM KNB1
         INTO TABLE TB_KNB1
         WHERE BUKRS IN S_BUKRS
           AND KUNNR IN S_KUNNR.
IF SY-SUBRC = 0.
Sort TB_KNB1 by Customer no & Rec Created Date
    SORT TB_KNB1 BY KUNNR ERDAT DESCENDING.
ENDIF.
ENDFORM.                    " SELECT_KNB1
*&      Form SELECT_CUSTOMER_OPEN_ITEMS
      Select Custmer Open Items.
FORM SELECT_CUSTOMER_OPEN_ITEMS .
CLEAR: TB_BSID,
         TB_BSID[].
SELECT A~BUKRS
          B~KUNNR
          B~AUGDT
          B~BLDAT
          B~SHKZG
          B~DMBTR
          B~ZFBDT
          B~ZBD1T
          B~ZBD2T
          B~ZBD3T
          B~REBZG
          B~REBZT
     INTO TABLE TB_BSID
     FROM BKPF AS A JOIN BSID AS B
       ON ABUKRS = BBUKRS
      AND ABELNR = BBELNR
      AND AGJAHR = BGJAHR
    WHERE A~BUKRS IN S_BUKRS
      AND A~BLDAT IN S_BLDAT
      AND B~KUNNR IN S_KUNNR
      AND B~ZUONR IN S_ZUONR
      AND B~BSCHL = C_1.
IF SY-SUBRC = 0.
DMS Managed Indicator = X.
    IF P_ZAMIB = C_X.
      LOOP AT TB_KNB1 WHERE ZAMIB = SPACE.
        DELETE TB_BSID WHERE BUKRS = TB_KNB1-BUKRS
                         AND KUNNR = TB_KNB1-KUNNR.
      ENDLOOP.
    ENDIF.
Transfering Open Items from TB_BSID to TB_BSID_OPEN
    TB_BSID_OPEN[] = TB_BSID[].
ENDIF.
ENDFORM.                    " SELECT_CUSTOMER_OPEN_ITEMS
*&      Form SELECT_CUSTOMER_CLEARED_ITEMS
      Select Custmer Cleared Items.
FORM SELECT_CUSTOMER_CLEARED_ITEMS .
CLEAR: TB_BSAD_CLEAR,
         TB_BSAD_CLEAR[].
SELECT   A~BUKRS
           B~KUNNR
           B~AUGDT
           B~BLDAT
           B~SHKZG
           B~DMBTR
           B~ZFBDT
           B~ZBD1T
           B~ZBD2T
           B~ZBD3T
           B~REBZG
           B~REBZT
      INTO TABLE TB_BSAD_CLEAR
      FROM BKPF AS A JOIN BSAD AS B
        ON ABUKRS = BBUKRS
      AND ABELNR = BBELNR
      AND AGJAHR = BGJAHR
     WHERE A~BUKRS IN S_BUKRS
       AND A~BLDAT IN S_BLDAT
       AND B~KUNNR IN S_KUNNR
       AND B~ZUONR IN S_ZUONR
       AND B~BSCHL = C_1.
IF SY-SUBRC = 0.
DMS Managed Indicator = X.
    IF P_ZAMIB = C_X.
      LOOP AT TB_KNB1 WHERE ZAMIB = SPACE.
        DELETE TB_BSID WHERE BUKRS = TB_KNB1-BUKRS
                         AND KUNNR = TB_KNB1-KUNNR.
      ENDLOOP.
    ENDIF.
Sort TB_BSID_CLEAR by Customer number
    SORT TB_BSAD_CLEAR BY KUNNR.
ENDIF.
Append lines of TB_BSID_CLEAR to table TB_BSID
APPEND LINES OF TB_BSAD_CLEAR TO TB_BSID.
Sort TB_BSID by Cust num AND Doc date in document
SORT TB_BSID BY KUNNR BLDAT.
ENDFORM.                    " SELECT_CUSTOMER_CLEARED_ITEMS
*&      Form SELECT_KNA1
      Select General Data in Customer Master
FORM SELECT_KNA1.
CLEAR: TB_KNA1,
         TB_KNA1[].
SELECT KUNNR
          NAME1
          TELF1
          ADRNR
     INTO TABLE TB_KNA1
     FROM KNA1
    WHERE KUNNR IN S_KUNNR.
IF SY-SUBRC <> 0.
ENDIF.
ENDFORM.                    " SELECT_KNA1
*&      Form POPULATE_TB_FINAL
      Populate Final Output Data.
FORM POPULATE_TB_FINAL.
Local variable
DATA: L_DAYS_SLOW(3) TYPE N.       " Days Slow
CLEAR: TB_FINAL,
         TB_FINAL[].
LOOP AT TB_KNA1.
Move-corresponding TB_KNA1 to TB_FINAL.
    TB_FINAL-KUNNR = TB_KNA1-KUNNR. " Customer Number
    TB_FINAL-NAME1 = TB_KNA1-NAME1. " Name Line 1
    TB_FINAL-PHONE = TB_KNA1-TELF1. " Telephone Number
To get Customer Address.
    PERFORM GET_CUSTOMER_ADDRESS.
To get Date of Last Invoice.
    READ TABLE TB_BSID WITH KEY KUNNR = TB_KNA1-KUNNR.
    IF SY-SUBRC = 0.
      TB_FINAL-LAST_DATE = TB_BSID-BLDAT.
    ENDIF.
To get past due and current details.
    PERFORM GET_PAST_DUE_CURRENT.
To get Days Slow.
    CLEAR WA_FAEDE .
    LOOP AT TB_BSID_OPEN WHERE KUNNR = TB_KNA1-KUNNR.
      WA_FAEDE-SHKZG = TB_BSID-SHKZG.
      WA_FAEDE-ZFBDT = TB_BSID-ZFBDT.
      WA_FAEDE-ZBD1T = TB_BSID-ZBD1T.
      WA_FAEDE-ZBD2T = TB_BSID-ZBD2T.
      WA_FAEDE-ZBD3T = TB_BSID-ZBD3T.
      WA_FAEDE-REBZG = TB_BSID-REBZG.
      WA_FAEDE-REBZT = TB_BSID-REBZT.
      WA_FAEDE-KOART = C_D.
    To Determine Due Date.
      CALL FUNCTION 'DETERMINE_DUE_DATE'
           EXPORTING
                I_FAEDE                    = WA_FAEDE
           IMPORTING
                E_FAEDE                    = WA_FAEDE
           EXCEPTIONS
                ACCOUNT_TYPE_NOT_SUPPORTED = 1
                OTHERS                     = 2.
      IF SY-SUBRC <> 0.
        CLEAR WA_FAEDE.
        MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      CLEAR: L_DAYS_SLOW.
      L_DAYS_SLOW = SY-DATUM - WA_FAEDE-NETDT - P_GRACE.
      G_DAYS_SLOW = G_DAYS_SLOW + ABS( L_DAYS_SLOW ).
      G_OPEN      = G_OPEN + 1.
    ENDLOOP.
    IF G_OPEN IS INITIAL.
      TB_FINAL-DAYS_SLOW = G_DAYS_SLOW / G_OPEN. " Days Slow
    ENDIF.
To get Average days to Pay.
    PERFORM GET_AVG_DAYS_PAY.
Calculating total records .
    G_REC_COUNT = G_REC_COUNT + 1.
    APPEND TB_FINAL.
    CLEAR TB_FINAL.
ENDLOOP.
Current account balance.
G_CURR_BAL   = TB_FINAL-CURRENT + TB_FINAL-AVG_1_30 +
                                    TB_FINAL-AVG_31_60 +
                                    TB_FINAL-AVG_61_90 +
                                    TB_FINAL-AVG_90G   .
ENDFORM.                    " POPULATE_TB_FINAL
*&      Form GET_PAST_DUE_CURRENT
      To get past due and current details.
FORM GET_PAST_DUE_CURRENT.
    Local Varaibles.
DATA: L_RF035_SFAE1 TYPE RF035-SFAE1,
        L_RF035_SFAE2 TYPE RF035-SFAE2,
        L_RF035_SFAE3 TYPE RF035-SFAE3,
        L_RF035_SFAE4 TYPE RF035-SFAE4,
        L_RF035_SFAE5 TYPE RF035-SFAE5,
        L_RF035_SFAE6 TYPE RF035-SFAE6,
        L_RF035_SFAEL TYPE RF035-SFAEL,
        L_RF035_SNFA1 TYPE RF035-SNFA1,
        L_RF035_SNFA2 TYPE RF035-SNFA2,
        L_RF035_SNFA3 TYPE RF035-SNFA3,
        L_RF035_SNFA4 TYPE RF035-SNFA4,
        L_RF035_SNFA5 TYPE RF035-SNFA5,
        L_RF035_SNFA6 TYPE RF035-SNFA6,
        L_RF035_SNFAE TYPE RF035-SNFAE.
LOOP AT TB_KNB1 WHERE KUNNR = TB_KNA1-KUNNR.
    CALL FUNCTION 'CUSTOMER_DUE_DATE_ANALYSIS'
         EXPORTING
              BUKRS          = TB_KNB1-BUKRS
            KKBER          = ' '
              KUNNR          = TB_KNB1-KUNNR
              RASID          = C_Z001
         IMPORTING
              SFAE1          = L_RF035_SFAE1
              SFAE2          = L_RF035_SFAE2
              SFAE3          = L_RF035_SFAE3
              SFAE4          = L_RF035_SFAE4
              SFAE5          = L_RF035_SFAE5
              SFAE6          = L_RF035_SFAE6
              SFAEL          = L_RF035_SFAEL
              SNFA1          = L_RF035_SNFA1
              SNFA2          = L_RF035_SNFA2
              SNFA3          = L_RF035_SNFA3
              SNFA4          = L_RF035_SNFA4
              SNFA5          = L_RF035_SNFA5
              SNFA6          = L_RF035_SNFA6
              SNFAE          = L_RF035_SNFAE
         EXCEPTIONS
              INVALID_RASTER = 1
              NO_OPEN_ITEMS = 2
              OTHERS         = 3
    IF SY-SUBRC = 0.
      TB_FINAL-AVG_1_30 = TB_FINAL-AVG_1_30 + L_RF035_SFAE1.
      TB_FINAL-AVG_31_60 = TB_FINAL-AVG_31_60 + L_RF035_SFAE2.
      TB_FINAL-AVG_61_90 = TB_FINAL-AVG_61_90 + L_RF035_SFAE3.
      TB_FINAL-AVG_90G   = TB_FINAL-AVG_90G   + L_RF035_SFAE4
                                              + L_RF035_SFAE5
                                              + L_RF035_SFAE6.
      TB_FINAL-CURRENT = TB_FINAL-CURRENT    + L_RF035_SNFAE.
    ELSE.
      MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
              WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    ENDIF.
ENDLOOP.
ENDFORM.                    " GET_PAST_DUE_CURRENT
*&      Form GET_CUSTOMER_ADDRESS
      To get Customer Address.
FORM GET_CUSTOMER_ADDRESS.
X_ADDR1_SEL-ADDRNUMBER = TB_KNA1-ADRNR.
CALL FUNCTION 'ADDR_GET'
       EXPORTING
            ADDRESS_SELECTION = X_ADDR1_SEL
       IMPORTING
            SADR              = X_SADR
       EXCEPTIONS
            PARAMETER_ERROR   = 1
            ADDRESS_NOT_EXIST = 2
            VERSION_NOT_EXIST = 3
            INTERNAL_ERROR    = 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.
ADDRESS LINE 1.
TB_FINAL-ADDRESS1 = X_SADR-STRAS.
ADDRESS LINE 2.
CONCATENATE X_SADR-PFACH 'CODE' X_SADR-PSTL2 INTO TB_FINAL-ADDRESS2
                                                  SEPARATED BY SPACE.
ADDRESS LINE 3.
CONCATENATE X_SADR-ORT01 X_SADR-ORT02 ',' X_SADR-REGIO X_SADR-PSTLZ
                            INTO TB_FINAL-ADDRESS3 SEPARATED BY SPACE.
ADDRESS LINE 4.
TB_FINAL-ADDRESS4 = X_SADR-LAND1.
ENDFORM.                    " GET_CUSTOMER_ADDRESS
*&      Form GET_AVG_DAYS_PAY
      To get Average days to Pay.
FORM GET_AVG_DAYS_PAY.
*Local variable
DATA: L_DAYS TYPE N .                            " Number of Days
LOOP AT TB_BSAD_CLEAR WHERE KUNNR = TB_KNA1-KUNNR.
    L_DAYS = TB_BSAD_CLEAR-AUGDT - TB_BSAD_CLEAR-BLDAT.
    G_AVG   = G_AVG + L_DAYS.
    G_COUNT = G_COUNT + 1.
ENDLOOP.
IF NOT G_COUNT IS INITIAL.
    TB_FINAL-AVG = G_AVG / G_COUNT. " Average days to Pay.
ENDIF.
ENDFORM.                    " GET_AVG_DAYS_PAY
*&      Form DISPLAY_ALV_REPORT
      text
FORM DISPLAY_ALV_REPORT.
For Populating Field Catalog.
PERFORM RPT_BUILD_FIELDCATLOG.
For Modifying Field Catalog.
PERFORM RPT_MODIFY_FIELDCATLOG.
For TOP_OF_PAGE Event.
PERFORM RPT_GET_EVENTS.
For Displaying Output in Grid Format.
PERFORM RPT_GRID_DISPLAY.
ENDFORM.                    " DISPLAY_ALV_REPORT
*&      Form RPT_BUILD_FIELDCATLOG
      text
FORM RPT_BUILD_FIELDCATLOG.
To build the Field Catlog.
DATA : L_TABNAME TYPE SLIS_TABNAME. " Table Name
L_TABNAME = 'TB_FINAL'.
REFRESH : TB_FIELDCAT.
CLEAR   : TB_FIELDCAT.
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
       EXPORTING
            I_PROGRAM_NAME         = G_REPID
            I_INTERNAL_TABNAME     = L_TABNAME
            I_INCLNAME             = G_REPID
       CHANGING
            CT_FIELDCAT            = TB_FIELDCAT
       EXCEPTIONS
            INCONSISTENT_INTERFACE = 1
            PROGRAM_ERROR          = 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.
ENDFORM.                    " RPT_BUILD_FIELDCATLOG
*&      Form RPT_MODIFY_FIELDCATLOG
      text
FORM RPT_MODIFY_FIELDCATLOG.
Getting the Header Text for the Coloumns
DATA : L_TABIX LIKE SY-TABIX,            " Index
         L_DDICTXT TYPE C VALUE 'L'.      " Flag
Getting the Header Text for the Coloumns
LOOP AT TB_FIELDCAT INTO X_FIELDCAT.
    CLEAR L_TABIX.
    L_TABIX = SY-TABIX.
    CASE X_FIELDCAT-FIELDNAME.
      WHEN 'KUNNR'.                                   " Customer Number
        X_FIELDCAT-SELTEXT_L = 'Customer Number'(001).
        X_FIELDCAT-DDICTXT   = L_DDICTXT.
      WHEN 'NAME1'.                                   " Name Line 1
        X_FIELDCAT-SELTEXT_L = 'Name'(002).
        X_FIELDCAT-DDICTXT   = L_DDICTXT.
      WHEN 'ADDRESS1'.                                " Address line 1
        X_FIELDCAT-SELTEXT_L = 'Address 1'(003).
        X_FIELDCAT-DDICTXT   = L_DDICTXT.
      WHEN 'ADDRESS2'.                                " Address line 2
        X_FIELDCAT-SELTEXT_L = 'Address 2'(004).
        X_FIELDCAT-DDICTXT   = L_DDICTXT.
      WHEN 'ADDRESS3'.                                " Address line 3
        X_FIELDCAT-SELTEXT_L = 'Address 3'(005).
        X_FIELDCAT-DDICTXT   = L_DDICTXT.
      WHEN 'ADDRESS4'.                                " Address line 4
        X_FIELDCAT-SELTEXT_L = 'Address 4'(006).
        X_FIELDCAT-DDICTXT   = L_DDICTXT.
      WHEN 'PHONE'.                                   " Telephone Number
        X_FIELDCAT-SELTEXT_L = 'Telephone Number'(007).
        X_FIELDCAT-DDICTXT   = L_DDICTXT.
      WHEN 'DAYS_SLOW'.                               " Days Slow
        X_FIELDCAT-SELTEXT_L = 'Days Slow'(008).
        X_FIELDCAT-DDICTXT      = L_DDICTXT.
      WHEN 'LAST_DATE'.                         " Date of Last Invoice
        X_FIELDCAT-SELTEXT_L = 'Date of Last Invoice'(009).
        X_FIELDCAT-DDICTXT   = L_DDICTXT.
      WHEN 'AVG'.                               " Average Days to Pay
        X_FIELDCAT-SELTEXT_L = 'Average Days to Pay'(010).
        X_FIELDCAT-DDICTXT   = L_DDICTXT.
      WHEN 'CURRENT'.                  " Current
        X_FIELDCAT-SELTEXT_L = 'Aging Category 1'(011).
        X_FIELDCAT-DDICTXT   = L_DDICTXT.
      WHEN 'AVG_1_30'.                  " 1-30 past due
        X_FIELDCAT-SELTEXT_L = 'Aging Category 2'(012).
        X_FIELDCAT-DDICTXT   = L_DDICTXT.
      WHEN 'AVG_31_60'.                  " 31-60 past due
        X_FIELDCAT-SELTEXT_L = 'Aging Category 3'(013).
        X_FIELDCAT-DDICTXT   = L_DDICTXT.
      WHEN 'AVG_61_90'.                  " 61-90 past due
        X_FIELDCAT-SELTEXT_L = 'Aging Category 4'(014).
        X_FIELDCAT-DDICTXT   = L_DDICTXT.
      WHEN 'AVG_90G'.                  " 90+ past due
        X_FIELDCAT-SELTEXT_L = 'Aging Category 5'(015).
        X_FIELDCAT-DDICTXT   = L_DDICTXT.
    ENDCASE.
    MODIFY TB_FIELDCAT FROM X_FIELDCAT INDEX L_TABIX.
ENDLOOP.
ENDFORM.                    " RPT_MODIFY_FIELDCATLOG
*&      Form RPT_GET_EVENTS
      text
FORM RPT_GET_EVENTS.
DATA : L_TABIX TYPE SY-TABIX.                " Index
CLEAR   : TB_EVENTS,
            TB_EVENTS[].
To get the events from this function module
for ALV display
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            I_LIST_TYPE     = 0
       IMPORTING
            ET_EVENTS       = TB_EVENTS
       EXCEPTIONS
            LIST_TYPE_WRONG = 1
            OTHERS          = 2.
IF SY-SUBRC <> 0.
    MESSAGE I999 WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
Modifing Top of Page event
READ TABLE TB_EVENTS WITH KEY NAME = SLIS_EV_TOP_OF_PAGE
                      INTO X_EVENTS.
IF SY-SUBRC = 0.
    CLEAR L_TABIX.
    L_TABIX = SY-TABIX.
    X_EVENTS-FORM = C_TOP_OF_PAGE.
    MODIFY TB_EVENTS FROM X_EVENTS INDEX L_TABIX.
    CLEAR X_EVENTS.
ENDIF.
ENDFORM.                    " RPT_GET_EVENTS
*&      Form TOP_OF_PAGE
      Top Of Page for the ALV format
FORM TOP_OF_PAGE.
REFRESH TB_COMMENTS.
For heading
CLEAR   X_COMMENTS.
X_COMMENTS-TYP = C_H.
X_COMMENTS-INFO = 'D&B Credit Agency Interface'(019).
APPEND X_COMMENTS TO TB_COMMENTS.
This module outputs formatted simple header information at TOP-OF-PAGE
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
       EXPORTING
            IT_LIST_COMMENTARY = TB_COMMENTS.
ENDFORM.                          " TOP_OF_PAGE
*&      Form RPT_GRID_DISPLAY
      text
FORM RPT_GRID_DISPLAY.
Layout Settings
CLEAR X_LAYOUT.
X_LAYOUT-ZEBRA = 'X'.
X_LAYOUT-COLWIDTH_OPTIMIZE = C_X.
X_LAYOUT-NO_COLHEAD        = SPACE.
To Display the Output in ALV Format
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
       EXPORTING
            I_CALLBACK_PROGRAM = G_REPID
            IS_LAYOUT          = X_LAYOUT
            IT_FIELDCAT        = TB_FIELDCAT
            IT_EVENTS          = TB_EVENTS
       TABLES
            T_OUTTAB           = TB_FINAL
       EXCEPTIONS
            PROGRAM_ERROR      = 1
            OTHERS             = 2.
IF SY-SUBRC <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
          WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.                    " RPT_GRID_DISPLAY
*&      Form SEND_EMAIL
      text
--> p1        text
<-- p2        text
FORM SEND_EMAIL.
Prepare the mail
PERFORM SEND_MAIL USING C_INTERFACE.
Sending the mail to Receivers
PERFORM SENDING_MAIL.
ENDFORM.                    " SEND_EMAIL
*&      Form SEND_MAIL
     Sending the Mail
FORM SEND_MAIL USING P_C_INTERFACE TYPE YWFSALOFFICNOTIF-INTERFACE_ID.
Populating Report name
G_TITLE = C_TITLE.
PERFORM POPULATE_EMAIL_REF_DATA USING G_TITLE.
IF NOT G_REC_COUNT IS INITIAL.
To populate the data to table tb_objbin
    PERFORM POPULATE_DATA_OBJBIN.
To get the attached file for the mail
    CLEAR G_TAB_LINES.
    DESCRIBE TABLE TB_OBJBIN LINES G_TAB_LINES.
    TB_OBJHEAD = C_FILENAME.
    APPEND TB_OBJHEAD.
    CLEAR TB_OBJHEAD.
Creation of the entry for the mail
    TB_OBJPACK-TRANSF_BIN = C_X.
    TB_OBJPACK-HEAD_START = C_1.
    TB_OBJPACK-HEAD_NUM   = C_1.
    TB_OBJPACK-BODY_START = C_1.
    TB_OBJPACK-BODY_NUM   = G_TAB_LINES.
    TB_OBJPACK-DOC_TYPE   = C_TXT.
    TB_OBJPACK-OBJ_NAME   = G_REPID.
    TB_OBJPACK-OBJ_DESCR = 'Interface Audit Report'(020).
    TB_OBJPACK-DOC_SIZE   = G_TAB_LINES * 255.
    APPEND TB_OBJPACK.
ENDIF.
ENDFORM.                    " SEND_MAIL
*&      Form SENDING_MAIL
FORM SENDING_MAIL.
Function Module to send mail along with attached file
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
       EXPORTING
            DOCUMENT_DATA              = TB_DOC_CHNG
       TABLES
            PACKING_LIST               = TB_OBJPACK
            OBJECT_HEADER              = TB_OBJHEAD
            CONTENTS_BIN               = TB_OBJBIN
            CONTENTS_TXT               = TB_OBJTXT
            RECEIVERS                  = TB_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.
CASE SY-SUBRC.
    WHEN 0.
      MESSAGE S999 WITH 'Mail has been sucessfully sent'(029).
    WHEN 1.
      MESSAGE S999 WITH 'Too Many Parameters'(030).
    WHEN 2.
      MESSAGE S999 WITH 'Doc Could Not Be Sent'(031).
    WHEN 4.
      MESSAGE S999 WITH 'No Authority To Send'(032).
    WHEN 99.
      MESSAGE S999 WITH 'Error While Sending'(033).
ENDCASE.
ENDFORM.                    " SENDING_MAIL
*&      Form POPULATE_EMAIL_REF_DATA
   Poplulating the body of the mail
FORM POPULATE_EMAIL_REF_DATA USING TEXT TYPE SOLISTI1-LINE.
Setting up Mail Subject
TB_DOC_CHNG-OBJ_DESCR = 'Interface Audit Report'(020).
Populating body of the mail
TB_OBJTXT-LINE = 'Interface Audit Report'(020).
APPEND TB_OBJTXT.
CLEAR: TB_OBJTXT.
DESCRIBE TABLE TB_OBJTXT LINES G_TAB_LINES.
READ TABLE TB_OBJTXT INDEX G_TAB_LINES.
*To determine the document size
TB_DOC_CHNG-DOC_SIZE = ( G_TAB_LINES - 1 ) * 255 + STRLEN( TB_OBJTXT ).
Creation of the entry for the Mail Contents
CLEAR TB_OBJPACK-TRANSF_BIN.
TB_OBJPACK-HEAD_START = C_1.
TB_OBJPACK-HEAD_NUM = C_0.
TB_OBJPACK-BODY_START = C_1.
TB_OBJPACK-BODY_NUM = G_TAB_LINES.
TB_OBJPACK-DOC_TYPE = C_RAW.
APPEND TB_OBJPACK.
ENDFORM.                    " POPULATE_EMAIL_REF_DATA
*&      Form POPULATE_DATA_OBJBIN
      Populating table for file attachment

How to send multiple attachemnt with a Email

Similar Messages

Maybe you are looking for