Send Marketing Documents Via E-mail

Hello all,
I need to send via e-mail or fax Order information from a webservice call
In the SBO client, having the Order form opened, you can send it via email or fax using the "Send message" button on the tool bar. It creates a message with your order attached, with the same appearance as if you printed it.
Is it possible to do so using the DI API?
Thank you in advance,
Antonia.

Dear Antonia,
The following sample describes how to add a new attachment to a message.
However, you need to prepare the attachment before to use it.
Private Sub cmdTest_Click()
   Dim msg As SAPbobsCOM.Messages
   Set msg = vCompany.GetBusinessObject(oMessages)
   msg.MessageText = "This is the content of message"
   msg.Subject = "Hello manager"
   'there are two recipients in this message
   Call msg.Recipients.Add
   'set values for the first recipients
   Call msg.Recipients.SetCurentLine(0)
   msg.Recipients.UserCode = "manager"
   msg.Recipients.NameTo = "manager"
   msg.Recipients.SendEmail = tYES
   msg.Recipients.EmailAddress = "email1"
   'set values for the second recipient
   Call msg.Recipients.SetCurentLine(1)
   msg.Recipients.UserCode = "Werner"
   msg.Recipients.NameTo = "Werner"
   msg.Recipients.SendEmail = tYES
   msg.Recipients.EmailAddress = "email2"
   'set referenced doc
   Call msg.AddDataColumn("Please review", "This is an invoice, pls review it, thx.", oInvoices, "1")
   'add attachment
   Call msg.Attachments.Add
   msg.Attachments.Item(0).FileName = "C:\temp\Object.xml"
   'send it out
   Call msg.Add
End Sub
Best Regards
Jane Jing
SAP Business One Forums team

Similar Messages

How to trigger xml publisher API (ex:Delivering Documents via e-Mail)?

Dear All:
How to use xml publisher API ?
In user's guide always talk API's code.(ex:Delivering Documents via e-Mail
// create delivery manager instance
DeliveryManager dm = new DeliveryManager();
// create a delivery request
DeliveryRequest req =
dm.createRequest(DeliveryManager.TYPE_SMTP_EMAIL);
// set email subject
req.addProperty(DeliveryPropertyDefinitions.SMTP_SUBJECT, "Invoice");
// set SMTP server host
req.addProperty(
DeliveryPropertyDefinitions.SMTP_HOST, "mysmtphost");
// set the sender email address
req.addProperty(DeliveryPropertyDefinitions.SMTP_FROM,
"[email protected]");
// set the destination email address
req.addProperty(
DeliveryPropertyDefinitions.SMTP_TO_RECIPIENTS,
"[email protected], [email protected]" );
// set the content type of the email body
req.addProperty(DeliveryPropertyDefinitions.SMTP_CONTENT_TYPE,
"text/html");
// set the document file name appeared in the email
req.addProperty(DeliveryPropertyDefinitions.SMTP_CONTENT_FILENAME,
"body.html");
// set the document to deliver
req.setDocument("/document/invoice.html");
// submit the request
req.submit();
// close the request
req.close(); )
Not say how to use this code to account effect !!
Having anybody to use API before?
Please tell me how to use that,thanks!!
BY Emily_ye

Hi Emily
I had the same question. After much research and a lot of deduction I produced the following:
import oracle.apps.fnd.cp.request.*;
import java.io.*;
import java.sql.*;
import java.util.Vector;
import oracle.apps.fnd.util.*;
import oracle.apps.xdo.XDOException;
import oracle.apps.xdo.common.pdf.util.PDFDocMerger;
import oracle.apps.xdo.delivery.DeliveryException;
import oracle.apps.xdo.delivery.DeliveryManager;
import oracle.apps.xdo.delivery.DeliveryPropertyDefinitions;
import oracle.apps.xdo.delivery.DeliveryRequest;
import oracle.jdbc.driver.OracleCallableStatement;
public class RunTravProgram implements JavaConcurrentProgram {
CpContext mCtx; // global reference to concurrent program context
LogFile logFile; // global reference to context logfile
OutFile outFile; // global reference to context outfile
Connection mConn = null;
ReqCompletion lRC;
//File Separator
private String mFileSeparator;
// globals for template
String XDOAppShortName = "";
String XDOtemplateCode = "";
// hard-wired constants for template addition
final String XDOLanguage = "en";
final String XDOTerritory = "US";
final String XDOFinal_format = "PDF";
final String XDOtemplateType = "TEMPLATE_SOURCE";
String PDFFile = "";
String outFilePath = "";
String progShortName = "";
String progDesc = "";
Integer iRequestID = 0;
String sWatermark = ""; // watermark text
String emailAddress = ""; // Not Implemented
String emailServer = "";
public static final String M_SUCCESS = "SUCCESS";
public static final String M_ERROR = "ERROR";
public static final String M_WARNING = "WARNING";
* Create a Java FND ConcurrentRequest objec to call fnd_request.submit_request
* The first three parameters are:
* Application Short Name -- Application Short name (ie. WAHC)
* Current Program Short Name -- Concurrent Program being called
* Current Program Description -- description for above
* These should be the first three parameters passed by the concurrent
* program in this order. The next two are constants set to null
* These are followed by the parameters passed by the first concurrent
* program that are being passed to the next concurrent program.
* I am limiting the parameter list to ten for now.
// Dynamic PLSQL statement used to get a concurrent request completion status
// This is necessary because the java class does not provide this method :-(
String mGetCompleteStatus =
"DECLARE R_VAL BOOLEAN; " + "b_phase VARCHAR2 (80) := NULL; " +
"b_status VARCHAR2 (80) := NULL; " +
"b_dev_phase VARCHAR2 (80) := NULL; " +
"b_dev_status VARCHAR2 (80) := NULL; " +
"b_message VARCHAR2 (240) := NULL; " + "BEGIN " +
"r_val := fnd_concurrent.wait_for_request (:1,5,1000," +
"b_phase,b_status,b_dev_phase,b_dev_status,b_message); " +
":2 := b_phase; " + ":3 := b_status; " + ":4 := b_message; " + "end;";
public RunTravProgram() {
// no constructor necessary for now
* Concurrent Processing provides an interface 'JavaConcurrentProgram' with abstract method
* runProgram() which passes the concurrent processing context 'CpContext'. The concurrent
* program developer will implement all of their business logic for a concurrent program in
* runProgram(). The main() method, implemented by AOL, will call runProgram() after
* performing all of the required initialization for the concurrent program, including
* establishing a database connection, initializing the required contexts, and setting up
* the log and output files. CpContext will have the request specific log and output
* file input methods
public void runProgram(CpContext pCpContext) {
mCtx = pCpContext;
OracleCallableStatement lStmt = null;
boolean bCompletion = true;
String sPhase = "";
String sStatus = "";
String sMessage = "";
//get handle on request completion object for reporting status
lRC = pCpContext.getReqCompletion();
// assign logfile
logFile = pCpContext.getLogFile();
// assign outfile
outFile = pCpContext.getOutFile();
// assign fileseparator
mFileSeparator = getFileSeparator();
// get the JDBC connection object
mConn = pCpContext.getJDBCConnection();
outFilePath =
((new File(outFile.getFileName())).getParent() == null ? "" :
(new File(outFile.getFileName())).getParent() +
mFileSeparator);
logFile.writeln("OutFile File Path: -> " + outFilePath, 0);
// get parameter list object from CpContext
// these come from the concurrent program
ParameterList lPara = pCpContext.getParameterList();
// create a temporary array and retrieve the parameters created by
// the program. Currently limiting the number of parameters to 10 for now
String pvals[] = new String[10];
int pcount = 0;
while (lPara.hasMoreElements()) {
NameValueType aNVT = lPara.nextParameter();
pvals[pcount] = aNVT.getValue();
pcount++;
if (pcount > 9)
break;
// send parameter values to the log file
logFile.writeln("Arg 1: APPL_SHORT_NAME -> " + pvals[0], 0);
logFile.writeln("Arg 2: CURR_PROG_SHORT_NAME -> " + pvals[1], 0);
logFile.writeln("Arg 3: CURR_PROG_DESCRIPTION -> " + pvals[2], 0);
logFile.writeln("Arg 4: TEMPLATE_CODE -> " + pvals[3], 0);
logFile.writeln("Arg 5: P_PLANT_CODE -> " + pvals[4], 0);
logFile.writeln("Arg 6: P_BATCH_NO -> " + pvals[5], 0);
logFile.writeln("Arg 7: P_SHOW_PROMISE -> " + pvals[6], 0);
logFile.writeln("Arg 8: P_WATERMARK -> " + pvals[7], 0);
XDOtemplateCode = pvals[3]; // store the template name globally
progShortName = pvals[1]; // store the program short name globally
XDOAppShortName = pvals[0]; // store the application short name
sWatermark = pvals[7]; // store the watermark globally
progDesc = pvals[2];
try {
// create a concurrent request object
ConcurrentRequest cr = new ConcurrentRequest(mConn);
// use the parameters to call fnd_request.submit_request
cr.addLayout(XDOAppShortName, XDOtemplateCode, XDOLanguage,
XDOTerritory, XDOFinal_format);
Vector param = new Vector();
param.add(pvals[4]); // plant code
param.add(pvals[5]); // batch ID
param.add(pvals[6]); // Show SO info flag
iRequestID =
cr.submitRequest(XDOAppShortName, progShortName, progDesc,
null, false, param);
mConn.commit();
// send the request ID to the log file
logFile.writeln("-- Request ID: ->" + Integer.toString(iRequestID),
0);
// call fnd_concurrent.wait_for_request to wait until the request
// has ended - use this to check the request status before proceeding
lStmt =
(OracleCallableStatement)mConn.prepareCall(mGetCompleteStatus);
lStmt.setInt(1, iRequestID);
lStmt.registerOutParameter(2, java.sql.Types.VARCHAR, 0, 255);
lStmt.registerOutParameter(3, java.sql.Types.VARCHAR, 0, 255);
lStmt.registerOutParameter(4, java.sql.Types.VARCHAR, 0, 255);
lStmt.execute();
// get the results of the completion
sPhase = lStmt.getString(2);
sStatus = lStmt.getString(3);
sMessage = lStmt.getString(4);
lStmt.close();
// send the results of the request processing to the log file
logFile.writeln("-- Phase: -> " + sPhase, 0);
logFile.writeln("-- Status: -> " + sStatus, 0);
logFile.writeln("-- Message: -> " + sMessage, 0);
// test here to make sure it completed correctly
if (sPhase.equals("Completed") && sStatus.equals("Normal")) {
// construct the PDF file name generated by the called request
PDFFile = progShortName + "_" + iRequestID + "_1.pdf";
// add a watermark to the generated PDF
// create an output stream for the existing PDF
// and set ouput to append
OutputStream pdfout =
new FileOutputStream(outFilePath + PDFFile, true);
// create an inputstream array (required by calling method)
InputStream pdfin[] = new InputStream[1];
pdfin[0] = new FileInputStream(outFilePath + PDFFile);
// add the watermark passed as a parameter
bCompletion = addWatermark(pdfin, pdfout);
// assign the modified file to the context out
// this will print using this request
if (bCompletion)
outFile.setOutFile(outFilePath + PDFFile);
// release the connection object
// and set the completion status for the request
if (bCompletion) {
pCpContext.getReqCompletion().setCompletion(ReqCompletion.NORMAL,
} else {
lRC.setCompletion(ReqCompletion.WARNING, M_WARNING);
pCpContext.releaseJDBCConnection();
} catch (SQLException s) {
logFile.writeln("SQL Error: Exception thrown w/ error message: " +
s.getMessage(), 0);
lRC.setCompletion(ReqCompletion.WARNING, M_WARNING);
pCpContext.releaseJDBCConnection();
} catch (IOException ioe) {
logFile.writeln("IO Error: Exception thrown w/ error message: " +
ioe.getMessage(), 0);
lRC.setCompletion(ReqCompletion.WARNING, M_WARNING);
pCpContext.releaseJDBCConnection();
} catch (Exception e) {
logFile.writeln("General Exception: " + e.getMessage(), 0);
lRC.setCompletion(ReqCompletion.WARNING, M_WARNING);
pCpContext.releaseJDBCConnection();
} finally {
try {
if (lStmt != null)
lStmt.close();
pCpContext.releaseJDBCConnection();
} catch (SQLException e) {
logFile.writeln(e.getMessage(), 0);
lRC.setCompletion(ReqCompletion.WARNING, M_WARNING);
* addWatermark()
* @param pdfin
* @param pdfout
* @return boolean
* This method will work for an existing document or a newly generated
* one. Set the outputstream append flag to false for a new document
* and true for an existing one.
* NOTE: PDFDocMerger requires an inputstream array even if it only
* contains one document.
private boolean addWatermark(InputStream[] pdfin, OutputStream pdfout) {
if (!sWatermark.equals("")) {
try {
PDFDocMerger docMerger = new PDFDocMerger(pdfin, pdfout);
//docMerger.setTextDefaultWatermark(sWatermark);
docMerger.setTextWatermark(sWatermark, 80f, 50f);
docMerger.setTextWatermarkAngle(25);
docMerger.setTextWatermarkColor(1.0f, .50f, .50f);
docMerger.setTextWatermarkFont("Garamond", 100);
docMerger.process();
docMerger = null;
return true;
} catch (XDOException e) {
logFile.writeln("Watermark process Failed: " + e.getMessage(),
0);
return false;
return true;
* Returns the file separator
private String getFileSeparator() {
return (System.getProperty("file.separator"));
* EBSEmailDelivery
* @return
* Just for testing right now.
private boolean EBSEmailDelivery() {
if (!emailAddress.equals("")) {
try {
// create delivery manager instance
DeliveryManager delMgr = new DeliveryManager();
// create a delivery request
DeliveryRequest delReq =
delMgr.createRequest(DeliveryManager.TYPE_SMTP_EMAIL);
// set email subject
delReq.addProperty(DeliveryPropertyDefinitions.SMTP_SUBJECT,
"EBS Report:" + progDesc +
" for request: " + iRequestID);
// set SMTP server host
delReq.addProperty(DeliveryPropertyDefinitions.SMTP_HOST,
emailServer); // need to supply the email smtp server
// set the sender email address
delReq.addProperty(DeliveryPropertyDefinitions.SMTP_FROM,
emailAddress);
// set the destination email address
delReq.addProperty(DeliveryPropertyDefinitions.SMTP_TO_RECIPIENTS,
emailAddress);
// set the content type of the email body
delReq.addProperty(DeliveryPropertyDefinitions.SMTP_CONTENT_TYPE,
"application/pdf");
// set the document file name appeared in the email
delReq.addProperty(DeliveryPropertyDefinitions.SMTP_CONTENT_FILENAME,
PDFFile);
// set the document to deliver
delReq.setDocument(outFilePath + PDFFile);
// submit the request
delReq.submit();
// close the request
delReq.close();
return true;
} catch (DeliveryException de) {
logFile.writeln("email process Failed: " + de.getMessage(), 0);
return false;
return true;
This is the class for a JCP I created to perform the following:
1) Launch an existing Concurrent Program that produces PDF output
2) Grab the PDF and apply a watermark based on user input or conditions
3) associate the modified PDF to CP output for PASTA printing
It isn't elegant but it is fairly simple. I added the email capability and tested it but am not implementing it at the present time.
there is a fair amount of information out there that explains how to create a JCP councurrent program but very little that demonstrates the class needed.
I hope this helps

How to send purchase order via e-mail.

Please could someone let me know how to send purchase order via e-mail.
I am an BC.
e-mailing is functionning however I am not very familiar in settings for MM

No, you do not need to touch ME_PRINT_PO. You need to put code before and after ME_PRINT_PO in the print program.
Step 1 - Copy the standard print program SAPFM06P to make a Z version, lets call it ZSAPFM06P
Step 2 - Copy include FM06PE02 to make a Z version, lets call that ZFM06PE02.
Step 3 - ZSAPFM06P change the statement "Include FM06PE02" to read "Include ZFM06PE02".
Step 4 - In include ZFM06PE02 you will find a subroutine called "ENTRY_NEU". In this subroutine you will see it first calls ME_READ_PO_FOR_PRINTING then calls ME_PRINT_PO. Before it calls ME_PRINT_PO just put:
l_nast-nacha = 1.
CLEAR l_nast-dimme.
This means that ME_PRINT_PO will not e-mail, it will create a spool request.
Step 5 - Still in ZFM06PE02, after ME_PRINT_PO has been called, add new code. First check that ent_retco EQ 0. If it does not then exit.
Step 6 - Get the spool ID created by ME_PRINT_PO by either moving sy-msgv1 to a variable or select from NAST.
Step 7 - Call function CONVERT_OTFSPOOLJOB_2_PDF using the spool ID from step 6, and put the result from table PDF into an internal table you can use later. ALso store the export variable pdf_bytecount, you will need it later.
Step 8 - Call function SX_TABLE_LINE_WIDTH_CHANGE using the table from step 7 as content_in and put the results from content_out into a new internal table.
Step 9 - Add some text into a internal table of type solisti1, this will be the body text of the e-mail.
Step 10 - Add whatever receivers you want into an internal table of type somlreci1. If you just want it to go to the address that the PO would have gone to anyway, select the e-mail address from ADR6 where the address number = l_doc-xekko-adrnr, that is the data from the PO.
Step 11 - Populate an internal table of type sopcklsti1 with data relevant to your PDF table from step 8 and the text table from step 9. You will have to put the size of the PDF from step 7 (pdf_bytecount) on the PDF line and the size of the text will be the number of lines of text * 255.
Step 12 - Add info to a structure of type sodocchgi1. You can add the e-mail title in here, field obj_descr. Also add the size of the PDF and the size of the text from step 12 into doc_size, and give the doc a name in field obj_name. This can be anything, ZPDFPO for example.
Step 13 - Call SO_DOCUMENT_SEND_API1 using the tables from steps 8, 9, 10 and 11 and the structure from step 12. You can amend the sending e-mail also. Set commit_work to space.
Step 14 - That is all you need, but I actually call function RSPO_R_RDELETE_SPOOLREQ to delete the spool request created in step 4, then call NAST_PROTOCOL_UPDATE to add some more messages to the processing log of the PO.
That is all.

How to send a file via e-mail with director

Is it even possible to have a button in a free-standing
projector that would send a file via e-mail, or open up an e-mail
program and have the file attached and addressed? Or is it possible
to put a file on a server? Of course, both of these methods would
alert the user and ask for their permission.

To just open the user's email program, you can use the
standard lingo:
goToNetPage(mailto:[email protected])
That approach is kind of annoying because it actually opens
an empty
browser window then the user's email program. I don't think
you can use
that approach to send attachments though.
A much better way is the fabulous DirectEmail xtra from
DirectXtras.
Check out their site:
http://www.directxtras.com/demail_home.asp?UUID=1217348
DirectEmail can do everything you are asking for (and more).
It is
cross-platform, shockwave safe, can handle text or HTML
email, can do
attachments, can use a mail server or not, and is really easy
to use.
The same company makes DirectFTP which you can get from:
http://www.directxtras.com/DFTP_home.asp?UUID=1217348
DirectFTP can put files onto an FTP site with a minimum of
fuss. I have
used both on quite a few occasions and they rock. You can
actually
write a full-fledged email or ftp program with those xtras
and Director.

How to send a report via e-mail

Hello All,
           I want to send a report via e-mail.
           What should I do for that?
            Please help me out...
Regards,
Ravi Khattar.

Hi,
Please check the below code....
data: t_objpack    like sopcklsti1 occurs 1 with header line,
        t_objhead    like solisti1   occurs 1 with header line,
        t_objtxt     like solisti1   occurs 0 with header line,
        t_objbin     like solisti1   occurs 1 with header line,
        t_reclist    like somlreci1 occurs 1 with header line,
        t_lobj       like abaplist   occurs 0 with header line,
        t_listobj    like abaplist   occurs 1 with header line.
data: v_tab_line1 type i,
        v_tab_line2 type i,
        v_docsize    type i,
        v_len        type i,
        v_line(1250) type c,
        v_subj(132) type c,
        v_cr(1)      type x value '0D',
        v_linefd(2) type x value '0D0A',
        v_docdata    like sodocchgi1.
clear: t_objpack[], t_objhead[], t_objtxt[], t_reclist[], t_listobj[].
concatenate 'This email is generated from a SAP' sy-sysid '-'
     sy-mandt '- batch environment.' into t_objtxt separated by ' '.
append t_objtxt.
t_objtxt = 'Please do not respond to this email.'. append t_objtxt.
v_docdata-obj_name = 'SAMPLE_TEST'.
concatenate 'Sales Order Status Attachment -' sy-datum '-' sy-uzeit
         into v_subj separated by ' '.
v_docdata-obj_descr = v_subj.
describe table t_objtxt lines v_tab_line1.
read table t_objtxt index v_tab_line1.
v_docdata-doc_size   = ( v_tab_line1 - 1 ) * 255 + strlen( t_objtxt ).
t_objpack-head_start = 1.
t_objpack-head_num   = 1.
t_objpack-body_start = 1.
t_objpack-body_num   = v_tab_line1.
t_objpack-doc_type   = 'RAW'.
append t_objpack.
clear v_line.
if p_type = '1'.
    loop at t_list.
      concatenate v_line t_list v_linefd into v_line.
      v_len = strlen( v_line ).
      do 4 times.
        if v_len ge 255.
          if v_line+254(1) = v_cr.
            v_line255     = v_line254.
            v_line+254(1) = ' '.
          endif.
          t_objtxt = v_line(255).
          v_line   = v_line+255.
          v_len    = v_len - 255.
          append t_objtxt.
        else.
          exit.
        endif.
      enddo.
    endloop.
    if v_line ne ' '.
      t_objtxt = v_line(255).
      append t_objtxt.
    endif.
    describe table t_objtxt lines v_tab_line2.
    t_objpack-doc_size   = ( v_tab_line2 - v_tab_line1 ) * 255.
    t_objpack-body_start = v_tab_line1 + 1.
    t_objpack-transf_bin = ' '.
    t_objpack-doc_type   = 'TXT'.
else.
    t_objbin[] = html[].
    describe table t_objbin lines v_tab_line2.
    t_objpack-doc_size   = v_tab_line2 * 255.
    t_objpack-body_start = 1.
    t_objpack-transf_bin = 'X'.
    t_objpack-doc_type   = 'HTM'.
endif.
t_objpack-head_start = 1.
t_objpack-head_num   = 1.
t_objpack-body_num   = v_tab_line2.
t_objpack-obj_name   = 'SAMPLE_TEST'.
t_objpack-obj_descr = 'Test'.
append t_objpack.
loop at s_email.
    t_reclist-receiver = s_email-low.
    t_reclist-rec_type = 'U'.
    append t_reclist.
endloop.
t_reclist-receiver   = sy-uname.
t_reclist-rec_type   = 'B'.
append t_reclist.
call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'
       EXPORTING
            document_data = v_docdata
            put_in_outbox = ' '
       TABLES
            packing_list = t_objpack
            object_header = t_objhead
            contents_bin = t_objbin
            contents_txt = t_objtxt
            receivers     = t_reclist.
if sy-subrc = 0.
   endif.
Cheers,
Bujji

Trying to send a photo via e-mail from iPhoto. But it says my e-mail and password are wrong and won't send and I don't know how to correct it. Where do I go?

Trying to send a photo via e-mail from iPhoto. But it says my e-mail and password are wrong and won't send and I don't know how to correct it. Where do I go?

In the iPhoto preferences ==> accounts delete the account and re-enter it
LN

I cannot use share on Pages to send a document via email. Used to be able to do this but upgraded to OSX Lion

I cannot use "share" on Pages to send a document via email. I used to be able to do this. Not sure what I have done. Can anyone help me out?

No. iDisk service is not available in iCloud. There are other third-party services like Picassa, MediaFire, Photobucket, Tumblr.
Basic Information About Moving From MobileMe to iCloud
Apple IDs and iCloud
Creating an iCloud account- Frequently Asked Questions
Frequently asked questions about the MobileMe transition and iCloud
MobileMe services that no longer sync after moving to iCloud
MobileMe- About moving to iCloud

Sending report output via E-mail (excel pivoted format)

Hi all,
i have a written a report where i need to send the report output to somebody via
E-mail.i am sending this report output via E-mail successfully.The receiver receives, my output in excel format.but this excel is not <b>pivoted</b>.
i want , the receiver should get my output in pivoted excel format.i.e my output data should be exactly fit in the excel sheet.
now the columns in excel sheet are overlapping.once i double clicked, the columns are getting separated.i do not want to double click.i want all the columns should come properly i.e excel field length should be adjusted as per the output field length.
i am giving my coding below.plz suggest how i can do the above thing .it's urgent.
any idea will be highly appreaciated.
Regards
if not p_email1 is initial.
     perform fill_report_csv.
     perform f_send_internet_mail.
endif.
FORM fill_report_csv.
   data :   l_text(232) type c,
           v_matnr1(21) type c,
           v_matnr(21) type c,
           v_matkl(14) type c,
           v_maktx(45) type c,
           v_ttlstk(14) type c,
           v_verpr(14) type c,
           v_werks(14) type c,
           v_lgort(14) type c,
           v_char(10) type c,
           v_stks type p ,
           v_po(40) type c,
           v_qty(13) type c,
            v_qty1 type sy-datum,
           v_date(15) type c,
           v_date1(15) TYPE C,
           v_name(35) type c,
           v_eknam(18) type c,
           v_lifnr(15) type c,
        l_po(40) type c,
        v_matnr(20) type c,
         l_rate(11) type p decimals 5,
         l_flag type c.
concatenate c_equal c_colon 'PO no.' c_colon
                into v_po.
concatenate c_equal c_colon 'Material no.' c_colon
                into v_matnr.
concatenate c_equal c_colon 'Description.' c_colon
                into v_maktx.
concatenate c_equal c_colon 'Due Qty.' c_colon
                into v_qty.
concatenate c_equal c_colon 'Del Date.' c_colon
                into v_date.
concatenate c_equal c_colon 'Vendor.' c_colon
                into v_name.
concatenate c_equal c_colon 'Buyer.' c_colon
                into v_eknam.
concatenate c_equal c_colon 'Vendor Code.' c_colon
                into v_lifnr.
concatenate
         v_po v_matnr v_maktx v_qty
         v_date v_name v_eknam v_lifnr
         into i_download
         SEPARATED BY con_tab.
append i_download .
clear : v_po,v_matnr, v_maktx, v_qty, v_date, v_name, v_eknam,v_lifnr .
clear wa_output.
loop at i_output into wa_output.
   on change of wa_output-ebeln.
     clear v_lines.
     loop at i_eket into wa_eket
             where ebeln = wa_output-ebeln.
       v_lines = v_lines + 1.
       clear wa_eket.
     endloop.
**-- Checking of page break
     v_lines = sy-linno + v_lines .
     if 55 < v_lines .
       write:/0(161) sy-uline.
       new-page.
     endif.
clear v_lines.
      loop at i_eket into wa_eket
              where ebeln = wa_output-ebeln.
        v_lines = v_lines + 1.
        clear wa_eket.
      endloop.
*-- Calculating the due qty.
    wa_output-dumng = wa_output-menge - wa_output-wemng.
*-- Writing the Line items of the PO.
    read table i_ekpo into wa_ekpo
          with key ebeln = wa_output-ebeln
                   ebelp = wa_output-ebelp.
     l_rate = wa_ekpo-netpr / wa_ekpo-peinh.
*-- Writing of PO detail
     if wa_output-dumng gt 0 .
     v_qty = wa_output-dumng.
    v_date1 = wa_output-eindt.
    v_maktx = wa_output-maktx.
     if wa_output-maktx+0(1) = '"' .
            concatenate c_equal wa_output-maktx
               into v_maktx .
         else .
            concatenate c_equal c_colon wa_output-maktx c_colon
               into v_maktx .
         endif .
   if wa_output-name1+0(1) = '"' .
            concatenate c_equal wa_output-name1
               into v_name .
         else .
            concatenate c_equal c_colon wa_output-name1 c_colon
               into v_name .
         endif .
    v_name = wa_output-name1.
    v_lifnr = wa_output-lifnr.
     write wa_output-eindt to v_date1 DD/MM/YYYY.
     concatenate '="' wa_output-ebeln '/'
            wa_output-ebelp '"' into v_po .
     concatenate '="' wa_output-matnr '"' into v_matnr .
         concatenate c_equal c_colon wa_output-maktx c_colon
           into v_maktx .
          concatenate c_equal c_colon wa_output-dumng c_colon
           into v_qty1 .
           concatenate c_equal c_colon wa_output-eindt c_colon
           into v_date1 .
          concatenate c_equal c_colon wa_output-name1 c_colon
           into v_name .
            concatenate c_equal c_colon wa_output-eknam c_colon
            into v_eknam .
          concatenate c_equal c_colon wa_output-lifnr c_colon
           into v_lifnr .
          concatenate c_equal c_colon wa_mard-werks '/'
           wa_mard-lgort c_colon
           into v_lgort .
             concatenate '="' wa_output-lifnr '"' into v_lifnr .
condense:v_po,v_matnr, v_maktx, v_qty, v_date, v_name, v_eknam,v_lifnr .
     concatenate
         v_po v_matnr v_maktx v_qty
         v_date1 v_name v_eknam v_lifnr
         into i_download
         SEPARATED BY con_tab.
    concatenate con_cret i_download INTO i_download .
    append i_download .
endif.
clear : v_po,v_matnr, v_maktx, v_qty, v_date, v_name, v_eknam,v_lifnr .
endloop.
ENDFORM.                    " fill_report_csv
*&      Form f_send_internet_mail
      text
--> p1        text
<-- p2        text
FORM f_send_internet_mail.
Variables
data:   it_packing_list like sopcklsti1 occurs 0 with header line,
        it_contents like solisti1 occurs 0 with header line,
        it_receivers like somlreci1 occurs 0 with header line,
        it_attachment like solisti1 occurs 0 with header line,
        gd_cnt type i,
        gd_sent_all(1) type c,
        gd_doc_data like sodocchgi1,
        gd_error type sy-subrc.
data:   it_message type standard table of SOLISTI1 initial size 0
                with header line.
data : found_receiver type c,
       v_title(80) type c,
       l_text(180) type c.
Fill the document data.
gd_doc_data-doc_size = 1.
Adds text to email text table
append 'Pls see attached open purchase order report.' to it_message.
append '' to it_message.
concatenate 'Note: This is system generated report'
              ', figures may subject to actual physical count.'
              into l_text separated by space.
append l_text to it_message.
Populate the subject/generic message attributes
CLEAR gd_doc_data.
READ TABLE i_download INDEX w_cnt.
gd_doc_data-doc_size =
     ( w_cnt - 1 ) * 255 + STRLEN( i_download ).
gd_doc_data-obj_langu = sy-langu.
gd_doc_data-obj_name   = 'SAPRPT'.
if p_asdate is initial .
     concatenate p_title ' '
              sy-datum sy-uzeit into v_title separated by space.
else .
    concatenate p_title ' '
             p_bldat p_cputm into v_title separated by space.
endif .
gd_doc_data-obj_descr = v_title .
gd_doc_data-sensitivty = 'F'.
CLEAR t_attachment.
REFRESH t_attachment.
t_attachment[] = i_download[].
Describe the body of the message
clear it_packing_list.
refresh it_packing_list.
it_packing_list-transf_bin = space.
it_packing_list-head_start = 1.
it_packing_list-head_num = 0.
it_packing_list-body_start = 1.
describe table it_message lines it_packing_list-body_num.
it_packing_list-doc_type = 'RAW'.
append it_packing_list.
Create attachment notification
it_packing_list-transf_bin = 'X'.
it_packing_list-head_start = 1.
it_packing_list-head_num   = 1.
it_packing_list-body_start = 1.
DESCRIBE TABLE t_attachment LINES it_packing_list-body_num.
it_packing_list-doc_type   = 'XLS'.
it_packing_list-obj_descr = 'OPEN PURCHASE ORDER' .
it_packing_list-obj_name   = 'PO.XLS' .
it_packing_list-doc_size   = it_packing_list-body_num * 255.
APPEND it_packing_list.
assign SAP user smtp address from successful retrieval.
loop at p_email.
Add the recipients email address
     found_receiver = 'X' .
     it_receivers-receiver = p_email-low.
     it_receivers-rec_type = 'U'.
     it_receivers-com_type = 'INT'.
     it_receivers-notif_del = ''.
     it_receivers-notif_ndel = 'X'.
     append it_receivers .
endloop .
Add default recipient email when unable to locate purc group email
   if found_receiver is initial .
       it_receivers-receiver = p_email.
       it_receivers-rec_type = 'U'.
       it_receivers-com_type = 'INT'.
       it_receivers-notif_del = ''.
       it_receivers-notif_ndel = 'X'.
      append it_receivers.
   endif .
Call the FM to post the message to SAPMAIL
call function 'SO_NEW_DOCUMENT_ATT_SEND_API1'
       exporting
            document_data              = gd_doc_data
            put_in_outbox              = 'X'
            commit_work                = 'X'
       importing
            sent_to_all                = gd_sent_all
       tables
            packing_list               = it_packing_list
            contents_bin               = t_attachment
            contents_txt               = it_message
            receivers                  = it_receivers
       exceptions
            too_many_receivers         = 1
            document_not_sent          = 2
            document_type_not_exist    = 3
            operation_no_authorization = 4
            parameter_error            = 5
            x_error                    = 6
            enqueue_error              = 7
            others                     = 8.
Store function module return code
gd_error = sy-subrc.
Get it_receivers return code
loop at it_receivers.
endloop.
Instructs mail send program for SAPCONNECT to send email.
wait up to 2 seconds.
if gd_error eq 0.
      submit rsconn01 with mode = 'INT'
                    with output = ' '
                    and return.
endif.
ENDFORM.                    " f_send_internet_mail

Hi,
go through this link,
http://www.sapdevelopment.co.uk/reporting/email/emailhome.htm
you have some sample programs.
Regards,
Raghavendra

Pdf extension changes to .dat when send a file via e-mail from adobe acrobat 9

to convert a file from microsoft word 2007 to PDF and send as an attachment via e-mail from adobe 9, the file is received with the extension changed to. dat, so recipients can not open it.
Can anyone help me with this.

What is the OS of the sending computer?
What mail client?
I receive plenty of files on my PC as .dat files, which come from Mac user(s), rename the extension to what I think they ought to be and have no further problem. (I cannot change the senders email settings where the problem originates)
If the receiver knows it is a pdf file, they can drag it into Acrobat, but renaming the extension serves future use.

Sending Payment Advices Via E-mail or Fax

SAP Gururs,
We recently implemented ACH payment method, we are sending ACH payment advices via e-mail or fax. However the need to maintain various e-mails or a combination of e-mail and fax is necessary.
Example #1
I have 2 e-mail address one for our purchase department and the other for the vendor I only want the vendor to receive payment advices, the other e-mail is use to send other information to vendor. How do I control this type of scenario.
Example #2,
I have a fax number and E-mail, but vendor wants payment advice to be send via fax and not e-mail. I did this testing by selecting the "Do Use Communication for e-mail" but I still got an e-mail and not a fax.
Example # 3,
I have various fax numbers 1 use for payment advices, the other to send other information to other users to the vendor such as matrixes, price disputes etc. how can I control this.
Does any one has any additional information on these topics I will truly appreciate.

Hello,
Go to transaction code FIBF
Settings ==> Process Modules ==> ... of an SAP Application
Process: 00002040
Ctr: Blank
Appl.: FI-FI
Function Module: SAMPLE_PROCESS_00002040
You can copy the function module to "Z" function module and modify it accordingly. Then you can use your customized FM here.
This triggers an email of payment advice, provided if you have maintained Email Address in the Vendor Master "Address" Tab and the Standard Communication Method is "INT - Email"
You can see the email that is being triggered / delivered in transaction code SOST.
To deliver the emails settings in SCOT are being completed by Basis consultants and the gateways must have been opened. Except production environment, normally the gateways are closed in development or QA environment in order to avoid sending wrong payment advices outside.
Thanks,
Ravi

ALV - is there a way to automatically send the ALV via e-mail

Hi,
I have a requirement to automatically send the ALV to an e-mail address.
Is this possible to do by just using the ALV methods available ?
Cheers
Colin.

Hi Colin,
Check the weblog:
/people/thomas.jung3/blog/2004/09/08/sending-e-mail-from-abap--version-610-and-higher--bcs-interface
Check these link..
http://www.sap-img.com/abap/sending-email-with-attachment.htm
https://www.sdn.sap.com/irj/sdn/weblogs?blog=/pub/wlg/789. [original link is broken] [original link is broken] [original link is broken] [original link is broken]
Have a look at below code:
REPORT ZSENDEXTERNAL.
DATA: OBJPACK LIKE SOPCKLSTI1 OCCURS 2 WITH HEADER LINE.
DATA: OBJHEAD LIKE SOLISTI1 OCCURS 1 WITH HEADER LINE.
DATA: OBJBIN LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
DATA: OBJTXT LIKE SOLISTI1 OCCURS 10 WITH HEADER LINE.
DATA: RECLIST LIKE SOMLRECI1 OCCURS 5 WITH HEADER LINE.
DATA: DOC_CHNG LIKE SODOCCHGI1.
DATA: TAB_LINES LIKE SY-TABIX.
Creation of the document to be sent
File Name
DOC_CHNG-OBJ_NAME = 'SENDFILE'.
Mail Subject
DOC_CHNG-OBJ_DESCR = 'Send External Mail'.
Mail Contents
OBJTXT = 'Minimum bid : $250000'.
APPEND OBJTXT.
OBJTXT = 'A representation of the pictures up for auction'.
APPEND OBJTXT.
OBJTXT = 'was included as attachment.'.
APPEND OBJTXT.
DESCRIBE TABLE OBJTXT LINES TAB_LINES.
READ TABLE OBJTXT INDEX TAB_LINES.
DOC_CHNG-DOC_SIZE = ( TAB_LINES - 1 ) * 255 + STRLEN( OBJTXT ).
Creation of the entry for the compressed document
CLEAR OBJPACK-TRANSF_BIN.
OBJPACK-HEAD_START = 1.
OBJPACK-HEAD_NUM = 0.
OBJPACK-BODY_START = 1.
OBJPACK-BODY_NUM = TAB_LINES.
OBJPACK-DOC_TYPE = 'RAW'.
APPEND OBJPACK.
Creation of the document attachment
(Assume that the data in OBJBIN is in BMP format)
*OBJBIN = ' O/ '. APPEND OBJBIN.
*OBJBIN = ' | '. APPEND OBJBIN.
*OBJBIN = ' / '. APPEND OBJBIN.
*DESCRIBE TABLE OBJBIN LINES TAB_LINES.
*OBJHEAD = 'PICTURE.BMP'.
*APPEND OBJHEAD.
Creation of the entry for the compressed attachment
*OBJPACK-TRANSF_BIN = 'X'.
*OBJPACK-HEAD_START = 1.
*OBJPACK-HEAD_NUM = 1.
*OBJPACK-BODY_START = 1.
*OBJPACK-BODY_NUM = TAB_LINES.
*OBJPACK-DOC_TYPE = 'BMP'.
*OBJPACK-OBJ_NAME = 'PICTURE'.
*OBJPACK-OBJ_DESCR = 'Representation of object 138'.
*OBJPACK-DOC_SIZE = TAB_LINES * 255.
*APPEND OBJPACK.
Completing the recipient list
RECLIST-RECEIVER = '[email protected]'.
RECLIST-REC_TYPE = 'U'.
APPEND RECLIST.
*RECLIST-RECEIVER = 'SAPUSERNAME'.
*RECLIST-REC_TYPE = 'P'.
*APPEND RECLIST.
Sending the document
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
EXPORTING
DOCUMENT_DATA = DOC_CHNG
PUT_IN_OUTBOX = 'X'
TABLES
PACKING_LIST = OBJPACK
OBJECT_HEADER = OBJHEAD
CONTENTS_BIN = OBJBIN
CONTENTS_TXT = OBJTXT
RECEIVERS = RECLIST
EXCEPTIONS
TOO_MANY_RECEIVERS = 1
DOCUMENT_NOT_SENT = 2
OPERATION_NO_AUTHORIZATION = 4
OTHERS = 99.
CASE SY-SUBRC.
WHEN 0.
WRITE: / 'Result of the send process:'.
LOOP AT RECLIST.
WRITE: / RECLIST-RECEIVER(48), ':'.
IF RECLIST-RETRN_CODE = 0.
WRITE 'The document was sent'.
ELSE.
WRITE 'The document could not be sent'.
ENDIF.
ENDLOOP.
WHEN 1.
WRITE: / 'No authorization for sending to the specified number',
'of recipients'.
WHEN 2.
WRITE: / 'Document could not be sent to any recipient'.
WHEN 4.
WRITE: / 'No send authorization'.
WHEN OTHERS.
WRITE: / 'Error occurred while sending'.
ENDCASE.
Reward points if this Helps.
Manish

I Tried to open a document via e-mail but it didn't work

I Tried to open a document I got via e-mail but it said upgrade to newest version of reader but I am running newest version.
I tried uninstalling reader and re-installing but still the same error message
this is the error message
Thanks 4 your help

OK,
I just solved this problem myself
what you do is just double click the error message
I did this using mail standard e-mail application of apple

Can't send query-alarms via e-mail in 8.8 PL15

Hi all,
I have 8.8 PL15. Made an alarm based on a query and am trying to send it via e-mail. The SBO Mailer is properly configured, but the alarm is not going out. The event viewer on the server shows:
MessageEntity::MarkOneRecordError::Query SQL AOB1 failed -2028
Note # 1440854 says that it's a product error and will be fixed in a later patch. When PL12 was released, the correction was included, as note # 1464641 states; but I already have PL15 and the error still persists.
Any ideas on how this can be solved??
Thanks for any help or advise,
Best regards,

Hi Emilio,
I have the same problem in pl17. Did you solve the problem?
Best regards,
Jan-willem Bruijsten

Send from gmail via iCloud mail?

I have set up forwarding of my Gmail to iPad no problem. But is there anyway I can send a reply to an email I have received from this forwarding setup from my Gmail account via iCloud mail either by way of tweeking the smtp server settings or adding new ones. I see from the mail settings in the icloud section in iOS 5, these settings are greyed out so you can't amend them. Is there any other way this can be done?
Thanks

Yep, exactly the same problem we are having, you managed to sum it up more neatly than I did compared to my long winded original post, lol.
Hopefully some tech messiah will be able to tell us of a way to make this happen? I hope anyhow, otherwise I won't use my iCloud mail at all.

PROBLEM SENDING AN XLS VIA E-MAIL FROM ABAP OVER 255 CHARS

Hi
I need some help.
I want to send a XLS attachment from a program via E-Mail.
The problem is I have a lot of columns so I have over 255 chars , I think 500 Chars.
When I send the email, I got it but it is truncate in the 255 position, all the rest doesn't appear
Somebody knows about a solution for this problem?

There was so many discussion about same topic.
Check the below link for more information
How to email an attachment with more than 255 characters?
Thanks
Seshu

Send Marketing Documents Via E-mail

Similar Messages

Maybe you are looking for