Send email with body in a specific template

Hello
I want to send an email from an ABAP program with the message body in a specified template with borders. Is it possible to do this?? I had used class BCS in one of my previous program in which the message body was in text and it worked. Can my current requirement be met with class BCS.
Can anyone please help me
Regards
Sathar

Hi,
Here is an example to give you an idea. In the html file saved in the webrepository (tcode SMW0) you placed placeholders like !reden!.
regards,
Bert
form DO_SEND_MAIL changing LV_SEND type XFELD.
data: TEXTLINE type SOLI.
data: SMTPADR type AD_SMTPADR,
 SEND_REQUEST type ref to CL_BCS,
 TEXT type BCSY_TEXT,
 DOCUMENT type ref to CL_DOCUMENT_BCS,
 SENDER type ref to CL_SAPUSER_BCS,
 RECIPIENT type ref to IF_RECIPIENT_BCS,
 SENT_TO_ALL type BOOLEAN.
data: LT_TEXT type table of SOLI.
data: LT_MAIL type table of SOLI.
data: LW_MAIL type SOLI.
data: LV_SUBJECT type SO_OBJ_DES.
data: LV_HEADER type SO_OBJ_DES.
data: LS_VBAK type VBAK.
data: LS_KUAGV type KUAGV.
data: LS_KURGV type KURGV.
data: LS_KUWEV type KUWEV.
data: LV_DATUM type STRING.
data: LV_PLANNERDESCR type DSNAM.
data: LV_PROJECTVERANT_DESCR type PS_VERNA.
data: LV_NWP_DESCR type AUFTEXT.
data: LW_PROJ type PROJ.
data: LV_VALUE3 type CHAR255.
data: LV_VALUE2 type CHAR255.
data: LS_APPOBJECT type BORIDENT.
type-pools: SWWW.
data: LV_TEMPLATE type W3OBJID.
data: LT_H type table of W3HTML.
data: LW_H type W3HTML.
data: LT_M type SWWW_T_MERGE_TABLE.
data: LW_M type SWWW_T_MERGE_ITEM.
if GS_DATA-EMAIL1 is initial and GS_DATA-EMAIL2 is initial.
 message 'Geen emailadressen opgegeven, Mail verzenden mislukt' type 'S'.
else.
* voorbereidende acties
* actie 1: Mail onderwerp instellen
 if GS_DATA-STATUS = '900'.
 concatenate 'Aanvraag is afgewezen:' GS_DATA-XBLNR into LV_SUBJECT separated by SPACE.
 else.
 concatenate 'Projectplandata aanvraag:' GS_DATA-XBLNR into LV_SUBJECT separated by SPACE.
 endif.
* actie 2: Aanhef(header) instellen
 call function 'SD_SALES_DOCUMENT_READ'
 exporting
 DOCUMENT_NUMBER = GS_DATA-VBELN
 I_BLOCK = ''
 I_NO_AUTHORITY_CHECK = 'X'
 importing
 EKUAGV = LS_KUAGV
 EKURGV = LS_KURGV
 EKUWEV = LS_KUWEV
 EVBAK = LS_VBAK.
 concatenate 'Beste' LS_KUAGV-NAME1 into LV_HEADER separated by SPACE.
* actie 3
* create persistent send request
 SEND_REQUEST = CL_BCS=>CREATE_PERSISTENT( ).
* html template uit web repository halen !! zie SMW0
 if GS_DATA-STATUS = '900'.
 refresh LT_H.
 clear: LW_H, LW_M.
 LV_TEMPLATE = 'ZMAIL_AANVRAAG_GEWEIGERD'.
 LW_M-NAME = '!reden!'.
 LW_M-COMMAND = 'R'.
 LW_H-LINE = GS_DATA-STATUSTEXT.
 append LW_H to LT_H.
 append lines of LT_H to LW_M-HTML.
 append LW_M to LT_M.
 refresh LT_H.
 clear: LW_H, LW_M.
 LW_M-NAME = '!uwaanvraagnummer!'.
 LW_M-COMMAND = 'R'.
 LW_H-LINE = GS_DATA-XBLNR.
 append LW_H to LT_H.
 append lines of LT_H to LW_M-HTML.
 append LW_M to LT_M.
 refresh LT_H.
 clear: LW_H, LW_M.
 LV_TEMPLATE = 'ZMAIL_AANVRAAG_VERWERKT_KCO'.
 call function 'WWW_HTML_MERGER'
 exporting
 TEMPLATE = LV_TEMPLATE
 importing
 HTML_TABLE = LT_H[]
 changing
 MERGE_TABLE = LT_M[].
 loop at LT_H into LW_H.
 LW_MAIL = LW_H.
 append LW_MAIL to LT_MAIL.
 endloop.
 DOCUMENT = CL_DOCUMENT_BCS=>CREATE_DOCUMENT(
 I_TYPE = 'HTM'
 I_TEXT = LT_MAIL
 I_SUBJECT = LV_SUBJECT ).
* add document to send request
 call method SEND_REQUEST->SET_DOCUMENT( DOCUMENT ).
* --------- set sender -------------------------------------------
* note: this is necessary only if you want to set the sender
* different from actual user (SY-UNAME). Otherwise sender is
* set automatically with actual user.
 SENDER = CL_SAPUSER_BCS=>CREATE( SY-UNAME ).
 call method SEND_REQUEST->SET_SENDER
 exporting
 I_SENDER = SENDER.
* --------- add recipient (e-mail address) -----------------------
* create recipient
 if GS_DATA-EMAIL1 is not initial.
 SMTPADR = GS_DATA-EMAIL1.
 RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS( SMTPADR ).
* add recipient with its respective attributes to send request
 call method SEND_REQUEST->ADD_RECIPIENT
 exporting
 I_RECIPIENT = RECIPIENT
 I_EXPRESS = 'X'. "This message was sent with High Importance
 endif.
 if GS_DATA-AUGRU = 'Z02'.
 if GS_DATA-EMAIL2 is not initial.
 SMTPADR = GS_DATA-EMAIL2.
 RECIPIENT = CL_CAM_ADDRESS_BCS=>CREATE_INTERNET_ADDRESS( SMTPADR ).
* add recipient with its respective attributes to send request
 call method SEND_REQUEST->ADD_RECIPIENT
 exporting
 I_RECIPIENT = RECIPIENT
 I_EXPRESS = 'X'. "This message was sent with High Importance
 endif.
 endif.
 try.
 move GS_DATA-VBELN to LS_APPOBJECT-OBJKEY.
 move 'BUS2030' to LS_APPOBJECT-OBJTYPE.
 call method SEND_REQUEST->CREATE_LINK
 exporting
 I_APPL_OBJECT = LS_APPOBJECT.
 catch CX_SEND_REQ_BCS .
 endtry.
* ---------- send document ---------------------------------------
 call method SEND_REQUEST->SET_SEND_IMMEDIATELY
 exporting
 I_SEND_IMMEDIATELY = 'X'.
* Possible statuses in field I_REQUESTED_STATUS:
* N = No status is to be returned
* E = Only error statuses are to be returned
* A = Return all statuses
 call method SEND_REQUEST->SEND(
 exporting
 I_WITH_ERROR_SCREEN = 'X'
 receiving
 RESULT = SENT_TO_ALL ).
 if SENT_TO_ALL <> 'X'.
 LV_SEND = SPACE.
 else.
 LV_SEND = 'X'.
 commit work.
 endif.
endif.
endform. " DO_SEND_MAIL

Similar Messages

Function that would send email with body of select output

Hello support,
I want to create a function which would send an email of such type
BEGIN
flows_030100.wwv_flow_mail.send(
p_subj => 'test'
,p_body => I WANT A SELECT OUTPUT HERE :)))
,p_from => 'sender@mail'
,p_to => 'recepient@mail'
flows_030100.wwv_flow_mail.push_queue_background();
END;
I need a select output to be a body of an email.
Thank you in advance.

Hi,
In our WMS system we use the demo_mail package to send emails when we get system errors, you can write content to the body within a cursor or for i in (select ....) loop
conn utl_smtp.connection;
begin
conn := demo_mail.begin_mail(
 sender => 'Helpdesk <[email protected]>',
 recipients => V_Recipients,
 subject => 'A WMS error has occurred!',
 mime_type => demo_mail.MULTIPART_MIME_TYPE);
demo_mail.write_text(
 conn => conn,
 message => 'A system error has occurred at ' || I_Origin || ' while being operated by user ' || I_Username);
utl_smtp.write_data(conn, utl_tcp.CRLF);
utl_smtp.write_data(conn, utl_tcp.CRLF);
demo_mail.write_text(
 conn => conn,
 message => 'The error details are: ' || I_Notes);
for i in (SELECT STATEMENT HERE..) loop
 demo_mail.write_text(
 conn => conn,
 message => i.field_name;
 utl_smtp.write_data(conn, utl_tcp.CRLF);
end loop;
utl_smtp.write_data(conn, utl_tcp.CRLF);
demo_mail.write_text(
 conn => conn,
 message => V_Insert_Error);
demo_mail.end_mail( conn => conn );Hope this helps.
Graham.

Sending emails with both body and attachment to multiple recipients

I have a requirement to send email with body and attachment to multiple recipients.
Body of the email is a standard text. It is a proxy-to-mail scenario.
Here is what I've done: (I'm using PI 7.11)
One mapping from Source to Target structure (format of the attachment text file)
Second mapping from Target Structure to Mail Package format.
In the second mapping I'm concatenating the output of first step into "Content" of the Mail Package.
"XIPAYLOAD" is the message protocol used.
The "Keep attachments" option in the Mail adapter allows only to send "Content" as attachment or as body of the email.
How to send an email with both content and text?
The other problem is even with using ASMA, I can't send email to multiple recipients. I can only do CC and TO for 1 person each - a total of 2. Although I can resolve this by creating mailing lists, it is better if this can be addressed in PI.
Thanks for any input you can provide!
Edited by: crazylad on Jan 18, 2012 3:39 PM

Thank you for your response Mikael.
For the first question, I was able to find the solution in the following blog:
XI Mail Adapter : Dynamically building attachment and message body content using a simple UDF
(I just needed to search with the right set of key words )
The key is to set the "Content Encoding" as "None" in the mail adapter. If this is not done, the mail will be sent with an attachment - untitled.bin containing both the mail body and the attachment text. Also, don't forget to check the "Keep Attachments" checkbox in the mail adapter.
Multiple recipients could be added by separating the email IDs with a Comma. I have used ASMA to set the recipients.

Sending email with multiple attachments

Hi forum,
I am able to send email with a single attachment using maildemo.sql from: http://www.oracle.com/technology/sample_code/tech/pl_sql/htdocs/Utl_Smtp_Sample.html
But now I am trying to send email with more than 1 attachment and it does not work. My code that calls the above mentioned package is as follows:
<code>
PROCEDURE send (
psender VARCHAR2,
precipients VARCHAR2,
pcc VARCHAR2,
pbcc VARCHAR2,
psubject VARCHAR2,
pmessage VARCHAR2,
pnumattach NUMBER) -- The number of attachments that need to be sent
IS
p_blob BLOB;
p_filename VARCHAR2(200);
p_filetype VARCHAR2(200);
p_currSeq NUMBER;
conn utl_smtp.CONNECTION;
i NUMBER;
j NUMBER;
len NUMBER;
BEGIN
IF pnumattach > 1
THEN
conn := SEND_EMAIL_HELPER.begin_mail(
 sender => psender,
 recipients => precipients,
 subject => psubject,
 mime_type => send_email_helper.MULTIPART_MIME_TYPE);
j := 0;
SELECT seq_attach_transact_id.CURRVAL INTO p_currSeq FROM dual; -- seq_attach_transact_id is a primary key that identifies every single attachment in the table
WHILE (j < pnumattach) LOOP
p_currSeq := p_currSeq - j;
SELECT blob_content INTO p_blob FROM wwdoc_document WHERE transaction_id = p_currSeq;
SELECT name INTO p_filename FROM wwdoc_document WHERE transaction_id = p_currSeq;
SELECT mime_type INTO p_filetype FROM wwdoc_document WHERE transaction_id = p_currSeq;
SEND_EMAIL_HELPER.begin_attachment(
conn => conn,
mime_type => p_filetype,
inline => TRUE,
filename => p_filename,
transfer_enc => 'base64');
-- split the Base64 encoded attachment into multiple lines
i := 1;
len := DBMS_LOB.getLength(p_blob);
WHILE (i < len) LOOP
IF(i + SEND_EMAIL_HELPER.MAX_BASE64_LINE_WIDTH < len)THEN
UTL_SMTP.Write_Raw_Data (conn,
UTL_ENCODE.Base64_Encode(
DBMS_LOB.SUBSTR(p_blob, SEND_EMAIL_HELPER.MAX_BASE64_LINE_WIDTH, i)));
ELSE
UTL_SMTP.Write_Raw_Data (conn,
UTL_ENCODE.Base64_Encode(
DBMS_LOB.SUBSTR(p_blob, (len - i)+1, i)));
END IF;
UTL_SMTP.Write_Data(conn, UTL_TCP.CRLF);
i := i + SEND_EMAIL_HELPER.MAX_BASE64_LINE_WIDTH;
END LOOP;
SEND_EMAIL_HELPER.end_attachment(conn => conn);
END LOOP;
SEND_EMAIL_HELPER.attach_text(
conn => conn,
data => pmessage,
mime_type => 'text/html');
SEND_EMAIL_HELPER.end_mail( conn => conn );
ELSE
utl_mail.send(psender,precipients,pcc,pbcc,psubject,pmessage);
END IF;
END send;
</code>
Can anyone please tell me where am i going wrong.
Message was edited by:
Monk

The easiest is to send an e-mail with multiple attachments to yourself and then view the message in raw to see how it is formatted - how the boundaries work. what the boundary headers are, etc.
Then you use that as a template for your PL/SQL code to generate a MIME body for an e-mail that has multiple attachments.
To debug.. have your PL/SQL code send sample e-mails with multiple attachment to your account, view it in raw format and compare that to the original format you've based your template on.
And none of this is really a PL/SQL issue.. it is all about formatting a valid MIME message for an e-mail.

Sending Emails With Java

I'm trying to find out how to send emails with java - without using the java mail api - i've been told there is a way to do it but i cant seem to find it - any help on this would be gratefully recieved as i'm totally stuck! :(

Ok, I expanded on it a little bit. Still probably isnt totally correct.
String localhost="yourdomain.com";
String sendMailHost=�mail.domain.com�;
int portNo=25;
String from="[email protected]";
String to="[email protected]";
String message=�Message Body.�;
Socket s = new Socket(SendMailHost,portNo);
DataInputStream in = new DataInputStream(s.getInputStream() ) ;
PrintStream out = new PrintStream(s.getOutputStream() ) ;
out.println("HELO " + locahost);
out.flush() ;
in.readLine(); //ignore response
out.println("MAIL FROM: " + from);
out.flush() ;
in.readLine(); //ignore response
out.println("RCPT TO: " + to);
out.flush() ;
in.readLine(); //ignore response
out.println("DATA");
out.println(message);
out.println(�.�);
s.close();

Send Email with HTML format in Outlook Macro

I can use the following to send email with HTML format in VBA. I also have created an HTML file. Is there a way to load the file into .HTMLBody to send it as HTML format message?
 Set OutlookApp = CreateObject("Outlook.Application")
 Set objMail = OutlookApp.CreateItem(olMailItem)
 With objMail
 .BodyFormat = olFormatHTML
 .HTMLBody = "<HTML><BODY>Enter the message text here. </BODY></HTML>"
 .Display
 End With

Try:
Dim fso As Scripting.FileSystemObject
Dim htmlFile As Scripting.TextStream
Set fso = New Scripting.FileSystemObject
Set htmlFile = fso.OpenTextFile("C:\path\to\my-html-file.htm")
strInsert = htmlFile.ReadAll
then change:
.htmlbody = strInsert
oh, and you need to set a reference to the Scripting runtime in Tools, References.
Diane Poremsky [MVP - Outlook]
Outlook & Exchange Solutions Center
Outlook Tips
Subscribe to Exchange Messaging Outlook weekly newsletter

When i send email with 2 account 3G and wi-fi it take 15 minutes help

when i send email with 2 account 3G and wi-fi it take 15 minutes help

Welcome to Apple Support Communities.
It's probably quite simple, and nothing to do with your Address Book group.
It is a matter of 'junk mail' or 'spam' filtering on the recipient end, I think.
1. Apparently not everyone in your Address Book group (12 of 15 apparently?) has your current email address among their 'permitted email addresses', so, your original email message ends up in their 'junk mail' or 'spam filter' or whatever it is called by their email provider. Some businesses and schools also filter incoming messages for subject, language, content, or by sender's address (one company I dealt with prohibited all incoming email from Hotmail, for example), so it could be filtered at that level. In that case, the recipient might have to specifically ask the IT department to add your email address to a 'permitted' list.
2. When someone else in the group hits 'reply all', THEIR email address IS among the 'permitted email addresses' for everyone else, and they are in effect 'forwarding' your message from their email address, so the filtering affecting your email address does not affect their re-sending of your message.

How i can send email with attachment ?

any body can help me ..............??????????????????

Hello,
please, use "Search" utility in the forum before ask something like this...
I've just tried with :
"send email with attachment"
and ... you have the solution in the first result...
Regards,
Jose.

Can I use DeliveryManager just to send email with no document?

Can I use "oracle.apps.xdo.delivery.DeliveryManager" to just send email without any document attached? or
Is this only used to deliver the documents by email?
I just want to use DeliveryManager just to send email with content in the body of the email. I am using BI Publisher API.
Can any of you provide sample input for the above?

Hi,
You can use iMovie to record the message and save it as an email sized item and send the file as email like before.
For those iChat AV users without a Cam and the AIM users without a cam you can do One-Way Viedo chats.
Once you have a recorded Video file you can also drop the file on any Buddies name in you iChat Buddy list rather than using email.
For those using other services you can set up a Jabber account and enable the required Transport/Gateways and send the files that way.
http://www.jabber.org.au/ichat = Australian Page
AllForces
These are the two main information pages on how iChat can connect to the other IM services.
Jabber Public Server list
That would appear to be everybody.
Ralph

How to send Email with attachments

Hi im Trying to send a file as attachment using EMail Activity operator.
Can we do it using Email activity? If yes, then how can we do it? If no, then please tell me about any other method using which i can send a email with attachments.
Regards
Vibhuti

Better late than never, a comprehensive demo on the topic:
REM
REM maildemo.sql - A PL/SQL package to demonstrate how to use the UTL_SMTP
REM package to send emails in ASCII and non-ASCII character sets, emails
REM with text or binary attachments.
REM
REM Note: this package relies on the UTL_ENCODE PL/SQL package in Oracle 9i.
CREATE OR REPLACE PACKAGE demo_mail IS
----------------------- Customizable Section -----------------------
-- Customize the SMTP host, port and your domain name below.
smtp_host VARCHAR2(256) := 'smtp-server.some-company.com';
smtp_port PLS_INTEGER := 25;
smtp_domain VARCHAR2(256) := 'some-company.com';
-- Customize the signature that will appear in the email's MIME header.
-- Useful for versioning.
MAILER_ID CONSTANT VARCHAR2(256) := 'Mailer by Oracle UTL_SMTP';
--------------------- End Customizable Section ---------------------
-- A unique string that demarcates boundaries of parts in a multi-part email
-- The string should not appear inside the body of any part of the email.
-- Customize this if needed or generate this randomly dynamically.
BOUNDARY CONSTANT VARCHAR2(256) := '-----7D81B75CCC90D2974F7A1CBD';
FIRST_BOUNDARY CONSTANT VARCHAR2(256) := '--' || BOUNDARY || utl_tcp.CRLF;
LAST_BOUNDARY CONSTANT VARCHAR2(256) := '--' || BOUNDARY || '--' ||
 utl_tcp.CRLF;
-- A MIME type that denotes multi-part email (MIME) messages.
MULTIPART_MIME_TYPE CONSTANT VARCHAR2(256) := 'multipart/mixed; boundary="'||
 BOUNDARY || '"';
MAX_BASE64_LINE_WIDTH CONSTANT PLS_INTEGER := 76 / 4 * 3;
-- A simple email API for sending email in plain text in a single call.
-- The format of an email address is one of these:
-- someone@some-domain
-- "Someone at some domain" <someone@some-domain>
-- Someone at some domain <someone@some-domain>
-- The recipients is a list of email addresses separated by
-- either a "," or a ";"
PROCEDURE mail(sender IN VARCHAR2,
 recipients IN VARCHAR2,
 subject IN VARCHAR2,
 message IN VARCHAR2);
-- Extended email API to send email in HTML or plain text with no size limit.
-- First, begin the email by begin_mail(). Then, call write_text() repeatedly
-- to send email in ASCII piece-by-piece. Or, call write_mb_text() to send
-- email in non-ASCII or multi-byte character set. End the email with
-- end_mail().
FUNCTION begin_mail(sender IN VARCHAR2,
 recipients IN VARCHAR2,
 subject IN VARCHAR2,
 mime_type IN VARCHAR2 DEFAULT 'text/plain',
 priority IN PLS_INTEGER DEFAULT NULL)
 RETURN utl_smtp.connection;
-- Write email body in ASCII
PROCEDURE write_text(conn IN OUT NOCOPY utl_smtp.connection,
 message IN VARCHAR2);
-- Write email body in non-ASCII (including multi-byte). The email body
-- will be sent in the database character set.
PROCEDURE write_mb_text(conn IN OUT NOCOPY utl_smtp.connection,
 message IN VARCHAR2);
-- Write email body in binary
PROCEDURE write_raw(conn IN OUT NOCOPY utl_smtp.connection,
 message IN RAW);
-- APIs to send email with attachments. Attachments are sent by sending
-- emails in "multipart/mixed" MIME format. Specify that MIME format when
-- beginning an email with begin_mail().
-- Send a single text attachment.
PROCEDURE attach_text(conn IN OUT NOCOPY utl_smtp.connection,
 data IN VARCHAR2,
 mime_type IN VARCHAR2 DEFAULT 'text/plain',
 inline IN BOOLEAN DEFAULT TRUE,
 filename IN VARCHAR2 DEFAULT NULL,
 last IN BOOLEAN DEFAULT FALSE);
-- Send a binary attachment. The attachment will be encoded in Base-64
-- encoding format.
PROCEDURE attach_base64(conn IN OUT NOCOPY utl_smtp.connection,
 data IN RAW,
 mime_type IN VARCHAR2 DEFAULT 'application/octet',
 inline IN BOOLEAN DEFAULT TRUE,
 filename IN VARCHAR2 DEFAULT NULL,
 last IN BOOLEAN DEFAULT FALSE);
-- Send an attachment with no size limit. First, begin the attachment
-- with begin_attachment(). Then, call write_text repeatedly to send
-- the attachment piece-by-piece. If the attachment is text-based but
-- in non-ASCII or multi-byte character set, use write_mb_text() instead.
-- To send binary attachment, the binary content should first be
-- encoded in Base-64 encoding format using the demo package for 8i,
-- or the native one in 9i. End the attachment with end_attachment.
PROCEDURE begin_attachment(conn IN OUT NOCOPY utl_smtp.connection,
 mime_type IN VARCHAR2 DEFAULT 'text/plain',
 inline IN BOOLEAN DEFAULT TRUE,
 filename IN VARCHAR2 DEFAULT NULL,
 transfer_enc IN VARCHAR2 DEFAULT NULL);
-- End the attachment.
PROCEDURE end_attachment(conn IN OUT NOCOPY utl_smtp.connection,
 last IN BOOLEAN DEFAULT FALSE);
-- End the email.
PROCEDURE end_mail(conn IN OUT NOCOPY utl_smtp.connection);
-- Extended email API to send multiple emails in a session for better
-- performance. First, begin an email session with begin_session.
-- Then, begin each email with a session by calling begin_mail_in_session
-- instead of begin_mail. End the email with end_mail_in_session instead
-- of end_mail. End the email session by end_session.
FUNCTION begin_session RETURN utl_smtp.connection;
-- Begin an email in a session.
PROCEDURE begin_mail_in_session(conn IN OUT NOCOPY utl_smtp.connection,
 sender IN VARCHAR2,
 recipients IN VARCHAR2,
 subject IN VARCHAR2,
 mime_type IN VARCHAR2 DEFAULT 'text/plain',
 priority IN PLS_INTEGER DEFAULT NULL);
-- End an email in a session.
PROCEDURE end_mail_in_session(conn IN OUT NOCOPY utl_smtp.connection);
-- End an email session.
PROCEDURE end_session(conn IN OUT NOCOPY utl_smtp.connection);
END;
CREATE OR REPLACE PACKAGE BODY demo_mail IS
-- Return the next email address in the list of email addresses, separated
-- by either a "," or a ";". The format of mailbox may be in one of these:
-- someone@some-domain
-- "Someone at some domain" <someone@some-domain>
-- Someone at some domain <someone@some-domain>
FUNCTION get_address(addr_list IN OUT VARCHAR2) RETURN VARCHAR2 IS
 addr VARCHAR2(256);
 i pls_integer;
 FUNCTION lookup_unquoted_char(str IN VARCHAR2,
 chrs IN VARCHAR2) RETURN pls_integer AS
 c VARCHAR2(5);
 i pls_integer;
 len pls_integer;
 inside_quote BOOLEAN;
 BEGIN
 inside_quote := false;
 i := 1;
 len := length(str);
 WHILE (i <= len) LOOP
 c := substr(str, i, 1);
 IF (inside_quote) THEN
 IF (c = '"') THEN
 inside_quote := false;
 ELSIF (c = '\') THEN
 i := i + 1; -- Skip the quote character
 END IF;
 GOTO next_char;
 END IF;
 IF (c = '"') THEN
 inside_quote := true;
 GOTO next_char;
 END IF;
 IF (instr(chrs, c) >= 1) THEN
 RETURN i;
 END IF;
 <<next_char>>
 i := i + 1;
 END LOOP;
 RETURN 0;
 END;
BEGIN
 addr_list := ltrim(addr_list);
 i := lookup_unquoted_char(addr_list, ',;');
 IF (i >= 1) THEN
 addr := substr(addr_list, 1, i - 1);
 addr_list := substr(addr_list, i + 1);
 ELSE
 addr := addr_list;
 addr_list := '';
 END IF;
 i := lookup_unquoted_char(addr, '<');
 IF (i >= 1) THEN
 addr := substr(addr, i + 1);
 i := instr(addr, '>');
 IF (i >= 1) THEN
 addr := substr(addr, 1, i - 1);
 END IF;
 END IF;
 RETURN addr;
END;
-- Write a MIME header
PROCEDURE write_mime_header(conn IN OUT NOCOPY utl_smtp.connection,
 name IN VARCHAR2,
 value IN VARCHAR2) IS
BEGIN
 utl_smtp.write_data(conn, name || ': ' || value || utl_tcp.CRLF);
END;
-- Mark a message-part boundary. Set <last> to TRUE for the last boundary.
PROCEDURE write_boundary(conn IN OUT NOCOPY utl_smtp.connection,
 last IN BOOLEAN DEFAULT FALSE) AS
BEGIN
 IF (last) THEN
 utl_smtp.write_data(conn, LAST_BOUNDARY);
 ELSE
 utl_smtp.write_data(conn, FIRST_BOUNDARY);
 END IF;
END;
PROCEDURE mail(sender IN VARCHAR2,
 recipients IN VARCHAR2,
 subject IN VARCHAR2,
 message IN VARCHAR2) IS
 conn utl_smtp.connection;
BEGIN
 conn := begin_mail(sender, recipients, subject);
 write_text(conn, message);
 end_mail(conn);
END;
FUNCTION begin_mail(sender IN VARCHAR2,
 recipients IN VARCHAR2,
 subject IN VARCHAR2,
 mime_type IN VARCHAR2 DEFAULT 'text/plain',
 priority IN PLS_INTEGER DEFAULT NULL)
 RETURN utl_smtp.connection IS
 conn utl_smtp.connection;
BEGIN
 conn := begin_session;
 begin_mail_in_session(conn, sender, recipients, subject, mime_type,
 priority);
 RETURN conn;
END;
PROCEDURE write_text(conn IN OUT NOCOPY utl_smtp.connection,
 message IN VARCHAR2) IS
BEGIN
 utl_smtp.write_data(conn, message);
END;
PROCEDURE write_mb_text(conn IN OUT NOCOPY utl_smtp.connection,
 message IN VARCHAR2) IS
BEGIN
 utl_smtp.write_raw_data(conn, utl_raw.cast_to_raw(message));
END;
PROCEDURE write_raw(conn IN OUT NOCOPY utl_smtp.connection,
 message IN RAW) IS
BEGIN
 utl_smtp.write_raw_data(conn, message);
END;
PROCEDURE attach_text(conn IN OUT NOCOPY utl_smtp.connection,
 data IN VARCHAR2,
 mime_type IN VARCHAR2 DEFAULT 'text/plain',
 inline IN BOOLEAN DEFAULT TRUE,
 filename IN VARCHAR2 DEFAULT NULL,
 last IN BOOLEAN DEFAULT FALSE) IS
BEGIN
 begin_attachment(conn, mime_type, inline, filename);
 write_text(conn, data);
 end_attachment(conn, last);
END;
PROCEDURE attach_base64(conn IN OUT NOCOPY utl_smtp.connection,
 data IN RAW,
 mime_type IN VARCHAR2 DEFAULT 'application/octet',
 inline IN BOOLEAN DEFAULT TRUE,
 filename IN VARCHAR2 DEFAULT NULL,
 last IN BOOLEAN DEFAULT FALSE) IS
 i PLS_INTEGER;
 len PLS_INTEGER;
BEGIN
 begin_attachment(conn, mime_type, inline, filename, 'base64');
 -- Split the Base64-encoded attachment into multiple lines
 i := 1;
 len := utl_raw.length(data);
 WHILE (i < len) LOOP
 IF (i + MAX_BASE64_LINE_WIDTH < len) THEN
 utl_smtp.write_raw_data(conn,
 utl_encode.base64_encode(utl_raw.substr(data, i,
 MAX_BASE64_LINE_WIDTH)));
 ELSE
 utl_smtp.write_raw_data(conn,
 utl_encode.base64_encode(utl_raw.substr(data, i)));
 END IF;
 utl_smtp.write_data(conn, utl_tcp.CRLF);
 i := i + MAX_BASE64_LINE_WIDTH;
 END LOOP;
 end_attachment(conn, last);
END;
PROCEDURE begin_attachment(conn IN OUT NOCOPY utl_smtp.connection,
 mime_type IN VARCHAR2 DEFAULT 'text/plain',
 inline IN BOOLEAN DEFAULT TRUE,
 filename IN VARCHAR2 DEFAULT NULL,
 transfer_enc IN VARCHAR2 DEFAULT NULL) IS
BEGIN
 write_boundary(conn);
 write_mime_header(conn, 'Content-Type', mime_type);
 IF (filename IS NOT NULL) THEN
 IF (inline) THEN
 write_mime_header(conn, 'Content-Disposition',
 'inline; filename="'||filename||'"');
 ELSE
 write_mime_header(conn, 'Content-Disposition',
 'attachment; filename="'||filename||'"');
 END IF;
 END IF;
 IF (transfer_enc IS NOT NULL) THEN
 write_mime_header(conn, 'Content-Transfer-Encoding', transfer_enc);
 END IF;
 utl_smtp.write_data(conn, utl_tcp.CRLF);
END;
PROCEDURE end_attachment(conn IN OUT NOCOPY utl_smtp.connection,
 last IN BOOLEAN DEFAULT FALSE) IS
BEGIN
 utl_smtp.write_data(conn, utl_tcp.CRLF);
 IF (last) THEN
 write_boundary(conn, last);
 END IF;
END;
PROCEDURE end_mail(conn IN OUT NOCOPY utl_smtp.connection) IS
BEGIN
 end_mail_in_session(conn);
 end_session(conn);
END;
FUNCTION begin_session RETURN utl_smtp.connection IS
 conn utl_smtp.connection;
BEGIN
 -- open SMTP connection
 conn := utl_smtp.open_connection(smtp_host, smtp_port);
 utl_smtp.helo(conn, smtp_domain);
 RETURN conn;
END;
PROCEDURE begin_mail_in_session(conn IN OUT NOCOPY utl_smtp.connection,
 sender IN VARCHAR2,
 recipients IN VARCHAR2,
 subject IN VARCHAR2,
 mime_type IN VARCHAR2 DEFAULT 'text/plain',
 priority IN PLS_INTEGER DEFAULT NULL) IS
 my_recipients VARCHAR2(32767) := recipients;
 my_sender VARCHAR2(32767) := sender;
BEGIN
 -- Specify sender's address (our server allows bogus address
 -- as long as it is a full email address ([email protected]).
 utl_smtp.mail(conn, get_address(my_sender));
 -- Specify recipient(s) of the email.
 WHILE (my_recipients IS NOT NULL) LOOP
 utl_smtp.rcpt(conn, get_address(my_recipients));
 END LOOP;
 -- Start body of email
 utl_smtp.open_data(conn);
 -- Set "From" MIME header
 write_mime_header(conn, 'From', sender);
 -- Set "To" MIME header
 write_mime_header(conn, 'To', recipients);
 -- Set "Subject" MIME header
 write_mime_header(conn, 'Subject', subject);
 -- Set "Content-Type" MIME header
 write_mime_header(conn, 'Content-Type', mime_type);
 -- Set "X-Mailer" MIME header
 write_mime_header(conn, 'X-Mailer', MAILER_ID);
 -- Set priority:
 -- High Normal Low
 -- 1 2 3 4 5
 IF (priority IS NOT NULL) THEN
 write_mime_header(conn, 'X-Priority', priority);
 END IF;
 -- Send an empty line to denotes end of MIME headers and
 -- beginning of message body.
 utl_smtp.write_data(conn, utl_tcp.CRLF);
 IF (mime_type LIKE 'multipart/mixed%') THEN
 write_text(conn, 'This is a multi-part message in MIME format.' ||
 utl_tcp.crlf);
 END IF;
END;
PROCEDURE end_mail_in_session(conn IN OUT NOCOPY utl_smtp.connection) IS
BEGIN
 utl_smtp.close_data(conn);
END;
PROCEDURE end_session(conn IN OUT NOCOPY utl_smtp.connection) IS
BEGIN
 utl_smtp.quit(conn);
END;
END;
/

Send Email with Attachment in BSP?

Hello,
 I have trouble about sending Email in BSP .
 I don't know how to Send Email with attachment in BSP . Please give me some advice .
 Thank you very much!

Here is a sample application..
Layout
<%@page language="abap" %>
<%@extension name="htmlb" prefix="htmlb" %>
<htmlb:content design="design2003" >
<htmlb:page title="Send Mail with Attachment " >
 <htmlb:form id = "form1"
 encodingType = "multipart/form-data" >
 <htmlb:label for = "MAILTO"
 text = "Mail to" />
 <htmlb:inputField id = "MAILTO"
 size = "20"
 value = "<%= mail_to %>"
 type = "string" />
 <htmlb:fileUpload id = "myUpload"
 onUpload = "HandleUpload"
 upload_text = "Attach"
 size = "90" />
 </htmlb:form>
</htmlb:page>
</htmlb:content>
Page attributes:
mail_to TYPE ADR6-SMTP_ADDR E-Mail Address
 Event handler OnInputprocessing..
DATA: fileUpload TYPE REF TO CL_HTMLB_FILEUPLOAD,
 file_content TYPE XSTRING,
 file_length TYPE STRING,
 file_mime_type TYPE STRING,
 file_name TYPE STRING.
fileUpload ?= CL_HTMLB_MANAGER=>GET_DATA(
 request = request
 id = 'myUpload'
 name = 'fileUpload' ).
if fileUpload is not INITIAL.
file_name = fileUpload->file_name.
file_mime_type = fileUpload->file_content_type.
file_length = fileUpload->file_length.
file_content = fileUpload->file_content.
mail_to = request->get_form_field( `MAILTO` ).
* Send mail part..
CLASS cl_bcs DEFINITION LOAD.
DATA:
 lo_send_request TYPE REF TO cl_bcs VALUE IS INITIAL.
lo_send_request = cl_bcs=>create_persistent( ).
* Message body and subject
DATA:
 lt_message_body TYPE bcsy_text VALUE IS INITIAL,
 lt_att_content_hex type solix_tab,
 lo_document TYPE REF TO cl_document_bcs VALUE IS INITIAL.
APPEND 'Dear Vendor,' TO lt_message_body.
append ' ' to lt_message_body.
APPEND 'Please find the attached report.'
TO lt_message_body.
append ' ' to lt_message_body.
APPEND 'Thank You,' TO lt_message_body.
lo_document = cl_document_bcs=>create_document(
i_type = 'RAW'
i_text = lt_message_body
i_subject = 'Visit report' ).
data: data_tab type solix_tab,
p_data type XSTRING.
* Pass the data of the document we have uploaded..
p_data = file_content.
call function 'SCMS_XSTRING_TO_BINARY'
 EXPORTING
 buffer = p_data
 TABLES
 binary_tab = data_tab.
DATA: lx_document_bcs TYPE REF TO cx_document_bcs VALUE IS INITIAL.
TRY.
 lo_document->add_attachment(
 EXPORTING
 i_attachment_type = 'PDF'
 i_attachment_subject = 'Visit Report'
 i_att_content_hex = data_tab ).
 CATCH cx_document_bcs INTO lx_document_bcs.
ENDTRY.
* Add attachment
* Pass the document to send request
lo_send_request->set_document( lo_document ).
* Create sender
DATA:
lo_sender TYPE REF TO if_sender_bcs VALUE IS INITIAL,
l_send type ADR6-SMTP_ADDR value '[email protected]'.
* Set sender
l_send = mail_to.
lo_sender = cl_cam_address_bcs=>create_internet_address( l_send ).
lo_send_request->set_sender(
EXPORTING
i_sender = lo_sender ).
* Create recipient
DATA:
lo_recipient TYPE REF TO if_recipient_bcs VALUE IS INITIAL.
lo_recipient = cl_sapuser_bcs=>create( sy-uname ).
** Set recipient
lo_send_request->add_recipient(
EXPORTING
i_recipient = lo_recipient
i_express = 'X' ).
lo_send_request->add_recipient(
EXPORTING
i_recipient = lo_recipient
i_express = 'X' ).
* Send email
DATA: lv_sent_to_all(1) TYPE c VALUE IS INITIAL.
lo_send_request->send(
EXPORTING
i_with_error_screen = 'X'
RECEIVING
result = lv_sent_to_all ).
COMMIT WORK.
endif.
Hope this will be helpful.
Raja T

Office 365 json api | send emails with inline attachments

I send the description my team is having with the json integration with Office API 365.
We want to send an email with inline attachments through the JSON API.
With that objective, what we are doing:
1. Create an empty draft message;
2. Send the several inline attachments;
3. Update the body of the draft message (with cid images inline);
4. Send the message;
What is are our issue with the API?
We are unable to set the "ContentType" properties when we submit the attachments to the Office API 365.
Despite the "ContentType" we send, it is always null.
We are using the following API: POST https://outlook.office365.com/api/v1.0/me/messages/{message_id}/attachments
That's the reason we think that despite the inline image then it is found in the body, it cannot be displayed because the contenttype it is not set correctly.
Please give us some direction.
Best Regards,

Answered here:
http://stackoverflow.com/questions/27377376/how-do-i-send-email-with-inline-attachments

Program To Send Email with attachemnts in PDF / Excel with Subject

Hi All,
I have been given an Object to Develop a report to Send Email with attachemnts in PDF / Excel with Subject.
Please provide the way to go about.
Regards,
Mohsin

REPORT ZREPORT_TO_EMAIL NO STANDARD PAGE HEADING LINE-SIZE 200.
DATA : BEGIN OF ITAB OCCURS 0,
PERNR LIKE PA0001-PERNR,
ENAME LIKE PA0001-ENAME,
END OF ITAB.
DATA: message_content LIKE soli OCCURS 10 WITH HEADER LINE,
receiver_list LIKE soos1 OCCURS 5 WITH HEADER LINE,
packing_list LIKE soxpl OCCURS 2 WITH HEADER LINE,
listobject LIKE abaplist OCCURS 10,
compressed_attachment LIKE soli OCCURS 100 WITH HEADER LINE,
w_object_hd_change LIKE sood1,
compressed_size LIKE sy-index.
START-OF-SELECTION.
SELECT PERNR ENAME
INTO CORRESPONDING FIELDS OF TABLE ITAB
FROM PA0001
WHERE PERNR < 50.
LOOP AT ITAB.
WRITE :/02 SY-VLINE , ITAB-PERNR, 15 SY-VLINE , ITAB-ENAME, 50
SY-VLINE.
ENDLOOP.
Receivers
receiver_list-recextnam = 'type your email address here'. "-->
EMAIL ADDRESS
RECEIVER_list-RECESC = 'E'. "<-
RECEIVER_list-SNDART = 'INT'."<-
RECEIVER_list-SNDPRI = '1'."<-
APPEND receiver_list.
General data
w_object_hd_change-objla = sy-langu.
w_object_hd_change-objnam = 'Object name'.
w_object_hd_change-objsns = 'P'.
Mail subject
w_object_hd_change-objdes = 'Message subject'.
Mail body
APPEND 'Message content' TO message_content.
Attachment
CALL FUNCTION 'SAVE_LIST'
EXPORTING
list_index = '0'
TABLES
listobject = listobject.
CALL FUNCTION 'TABLE_COMPRESS'
IMPORTING
compressed_size = compressed_size
TABLES
in = listobject
out = compressed_attachment.
DESCRIBE TABLE compressed_attachment.
CLEAR packing_list.
packing_list-transf_bin = 'X'.
packing_list-head_start = 0.
packing_list-head_num = 0.
packing_list-body_start = 1.
packing_list-body_num = sy-tfill.
packing_list-objtp = 'ALI'.
packing_list-objnam = 'Object name'.
packing_list-objdes = 'Attachment description'.
packing_list-objlen = compressed_size.
APPEND packing_list.
CALL FUNCTION 'SO_OBJECT_SEND'
EXPORTING
object_hd_change = w_object_hd_change
object_type = 'RAW'
owner = sy-uname
TABLES
objcont = message_content
receivers = receiver_list
packing_list = packing_list
att_cont = compressed_attachment.
Hope it helps,
regards,
kushagra

TS3899 Cannot send email with new iPad air. Works fine with old iPad and iPhone.

Cannot send email with new iPad air. Works fine with old iPad and iPhone. I have deleted account and reinstalled.

Thanks. I got the problem fixed. Spent time with the Apple folks and was kicked up to a senior advisor. It seems the problem was with my internet provider - Tmie Warner. Remember I could use the old ipad and the iphone to send mail. I checked all the specifics between the three units. It seems that TW is changing over from the RR.com to TWC.com. Since the new ipad air was just set up, it fell under the new TWC mail specifics.

How do I use my iPhone's hot spot to send email with Mail ?

Hi,
My land line is dead ... so no phone nor internet at home. But I can use my iPhone'hot spot to get on the web from my iMac. Great ... it works !
Oups ! I cannot send email from my computer using my iPhone's hot spot with Mail.
How do I do that ?
Regards.
Robert Lespérance

Hi Templeton Peck,
Thanks for droping in my thread ...
Doesn't the fact that I can surf the web with my iPhone's hot spot and that I cannot use Mail normally has I normally do give you a clue what the problem could be ?
What other information can I give you other than normally I can surf and send email with my regular ISP. Now that my ISP is dead I am using my iPhone's hotspot to surf the web awaiting that my ISP's connoection returns. Surfing is OK but I cannot send emails with through Mail.
When I want to send an email from my computer, I get a message asking me to select the the SMTP server. Then I select my usual ISP server, but the message comes back telling me it does not work.
Is there any other configuration to do ?

Send email with body in a specific template

Similar Messages

Maybe you are looking for