Custome FM to create Email with PDF attachment

Hi Experts,
I am working in Smart form. my requriment is to create a Custom Function module , for sending email with PDF attachment to the customer. PDF is nothing but which ever I create smart form.
How can I approach , please give me a suggestion or send me a sample code, if any one create.
1. This FM should work like : convert form to PDF and send Email to particular customer.

Hi,
Steps to convert Smartform to PDF,
1 Call smartform through FM SSF_FUNCTION_MODULE_NAME.
   CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
2 Converting Smartform to OTF and in turn to PDF
   Set Following parameter in order to convert Smartform into OTF.
gs_cparam-no_dialog = 'X'.   " Suppressing the dialog box
gs_cparam-preview = 'X'.     " for print preview
gs_cparam-getotf = 'X'.     " To get Output in OTF
    CALL FUNCTION g_fmodule
      EXPORTING
        control_parameters = gs_cparam
        output_options     = gs_outoptions
      IMPORTING
        job_output_info    = gt_otf_from_fm
      TABLES
        gt_final           = gt_final
     gt_otf[] = gt_otf_from_fm-otfdata [].
    CALL FUNCTION 'CONVERT_OTF'
      EXPORTING
        format                = 'PDF'
        max_linewidth         = 132
      IMPORTING
        bin_filesize          = g_bin_filesize
      TABLES
        otf                   = gt_otf
        lines                 = gt_pdf_tab
    CHECK sy-subrc = 0.
    g_bin_filesize = g_bin_filesize + 1.
Transfer the 132-long strings to 255-long strings
    LOOP AT gt_pdf_tab into gs_pdf_tab.
      TRANSLATE gs_pdf_tab USING ' ~'.
      CONCATENATE g_buffer gs_pdf_tab INTO g_buffer.
    ENDLOOP.
    TRANSLATE g_buffer USING '~ '.
    DO.
      gs_mess_att = g_buffer.
      APPEND gs_mess_att to gt_mess_att.
      SHIFT g_buffer LEFT BY 255 PLACES.
      IF g_buffer IS INITIAL.
        EXIT.
      ENDIF.
    ENDDO.
3 For Sending Mail use following mail,
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
    EXPORTING
      document_data              = ls_doc_data
      put_in_outbox              = 'X'
      sender_address             = l_sender_address
      sender_address_type        = l_sender_address_type
      commit_work                = 'X'
    TABLES
      packing_list               = lt_packing_list
      contents_bin               = lt_attachment
      contents_txt               = lt_message
      receivers                  = lt_receivers
I hope this could help you,
Please let me know if any issue.
Thanks & regards,
ShreeMohan
Edited by: ShreeMohan Pugalia on Jul 18, 2009 8:02 AM
Edited by: ShreeMohan Pugalia on Jul 18, 2009 8:03 AM
Edited by: ShreeMohan Pugalia on Jul 18, 2009 8:05 AM

Similar Messages

Send Invoice email with pdf attachement through DI?

Hi all,
is it possible to send an Invoice email with pdf attachement through DI as it can be done through UI?
Best Regards,
Vangelis

Hi Vangelis,
I Don't think that the DI API has that functionality (but I am not sure).
However with .Net's System.Net.Mail it should be quite easy to build.
Good luck,
Johan

How do I add text message to this email with PDF attachment?

Good day, everyone!
Okay, we have a "z"-version of program RFFOUS_T and some of its include codes. One include code, RFFORIO6, has a form called MAIL_PDF_ADVICE. It is in this form that we are emailing a remittance advice form. The actual form is attached as a PDF file.
Unfortunately, there's no text in the body of the email -- it's just the attachment -- so the users would like us to add a couple basic lines in the body of the email that explain the attachment. I'm pretty new to using this particular FM and emailing the PDF attachment, and I've gotten stuck in my research trying to find out exactly how to do this. I'm guessing this shouldn't be all that difficult, but I'm not finding the right solution. Here's the form:
*& Form mail_pdf_advice
 E-mail PDF advice
 -->IT_ADVICE PDF form (output from Adobe server)
 -->I_PDF_LEN length of PDF advice in bytes
FORM mail_pdf_advice USING it_advice TYPE solix_tab
 i_pdf_len TYPE i.
DATA:
 lt_receivers TYPE TABLE OF somlreci1 WITH HEADER LINE,
 l_user LIKE soextreci1-receiver,
 ls_send_doc LIKE sodocchgi1,
 lt_pdf_attach TYPE TABLE OF sopcklsti1 WITH HEADER LINE.
CHECK NOT finaa-intad IS INITIAL.
CHECK finaa-nacha EQ 'I'.
*--- determine E-Mail sender and recipient
IF fsabe-usrnam EQ space.
 l_user = sy-uname.
ELSE.
 l_user = fsabe-usrnam. "Office-User des Sachbearb.
ENDIF.
lt_receivers-receiver = finaa-intad.
lt_receivers-rec_type = 'U'. "E-mail address
APPEND lt_receivers.
ls_send_doc-obj_descr = itcpo-tdtitle.
lt_pdf_attach-transf_bin = 'X'.
lt_pdf_attach-doc_type = 'PDF'.
lt_pdf_attach-obj_langu = reguh-zspra.
lt_pdf_attach-body_start = 1.
lt_pdf_attach-doc_size = i_pdf_len.
DESCRIBE TABLE it_advice LINES lt_pdf_attach-body_num.
APPEND lt_pdf_attach.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
 EXPORTING
 document_data = ls_send_doc
 sender_address = l_user
 TABLES
 packing_list = lt_pdf_attach
 contents_hex = it_advice
 receivers = lt_receivers
 EXCEPTIONS
 too_many_receivers = 1
 document_not_sent = 2
 document_type_not_exist = 3
 operation_no_authorization = 4
 parameter_error = 5
 x_error = 6
 enqueue_error = 7
 OTHERS = 8.
<error checking code snipped>
Does someone know how to do this? <REMOVED BY MODERATOR> Thanks so much in advance!
Dave
Message was edited by:
 Alvaro Tejada Galindo

Hi Dave,
Table contents_bin is used to pass attachment file and contents_txt is used to pass mail body contents. You need to declare one more int table to give contents for mail body.
For reference check the code below
ut_message is for message body
and ut_attach is having attachement file.
FORM send_file_as_email_attachment TABLES ut_message
 ut_attach
 USING uv_email
 uv_mtitle
 uv_format
 uv_filename
 uv_attdescription
 uv_sender_address
 uv_sender_addres_type
 CHANGING uc_error
 uc_reciever.
DATA: l_error TYPE sy-subrc,
 l_reciever TYPE sy-subrc,
 l_mtitle LIKE sodocchgi1-obj_descr,
 l_email LIKE somlreci1-receiver,
 l_format TYPE so_obj_tp ,
 l_attdescription TYPE so_obj_nam ,
 l_attfilename TYPE so_obj_des ,
 l_sender_address LIKE soextreci1-receiver,
 l_sender_address_type LIKE soextreci1-adr_typ,
 l_receiver LIKE sy-subrc.
DATA: lt_packing_list LIKE sopcklsti1 OCCURS 0 WITH HEADER LINE,
 lt_contents LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 lt_receivers LIKE somlreci1 OCCURS 0 WITH HEADER LINE,
 lt_attachment LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 lt_object_header LIKE solisti1 OCCURS 0 WITH HEADER LINE,
 l_cnt TYPE i,
 l_sent_all(1) TYPE c,
 lw_doc_data LIKE sodocchgi1.
l_email = uv_email.
l_mtitle = uv_mtitle.
l_format = uv_format.
l_attdescription = uv_attdescription.
l_attfilename = uv_filename.
l_sender_address = uv_sender_address.
l_sender_address_type = uv_sender_addres_type.
Fill the document data.
lw_doc_data-doc_size = 1.
Populate the subject/generic message attributes
lw_doc_data-obj_langu = sy-langu.
lw_doc_data-obj_name = 'SAPRPT'.
lw_doc_data-obj_descr = l_mtitle.
lw_doc_data-sensitivty = 'F'.
Fill the document data and get size of attachment
CLEAR lw_doc_data.
READ TABLE ut_attach INDEX l_cnt.
lw_doc_data-doc_size =
 ( l_cnt - 1 ) * 255 + STRLEN( ut_attach ).
lw_doc_data-obj_langu = sy-langu.
lw_doc_data-obj_name = 'SAPRPT'.
lw_doc_data-obj_descr = l_mtitle.
lw_doc_data-sensitivty = 'F'.
CLEAR lt_attachment.
REFRESH lt_attachment.
lt_attachment[] = ut_attach[].
Describe the body of the message
CLEAR lt_packing_list.
REFRESH lt_packing_list.
lt_packing_list-transf_bin = space.
lt_packing_list-head_start = 1.
lt_packing_list-head_num = 0.
lt_packing_list-body_start = 1.
DESCRIBE TABLE ut_message LINES lt_packing_list-body_num.
lt_packing_list-doc_type = 'RAW'.
APPEND lt_packing_list.
Create attachment notification
lt_packing_list-transf_bin = 'X'.
lt_packing_list-head_start = 1.
lt_packing_list-head_num = 1.
lt_packing_list-body_start = 1.
DESCRIBE TABLE lt_attachment LINES lt_packing_list-body_num.
lt_packing_list-doc_type = l_format.
lt_packing_list-obj_descr = l_attdescription.
lt_packing_list-obj_name = l_attfilename.
lt_packing_list-doc_size = lt_packing_list-body_num * 255.
APPEND lt_packing_list.
Add the recipients email address
CLEAR lt_receivers.
REFRESH lt_receivers.
lt_receivers-receiver = l_email.
lt_receivers-rec_type = 'U'.
lt_receivers-com_type = 'INT'.
lt_receivers-notif_del = 'X'.
lt_receivers-notif_ndel = 'X'.
APPEND lt_receivers.
CALL FUNCTION 'SO_DOCUMENT_SEND_API1'
 EXPORTING
 document_data = lw_doc_data
 put_in_outbox = 'X'
 commit_work = 'X'
 IMPORTING
 sent_to_all = l_sent_all
 TABLES
 packing_list = lt_packing_list
 contents_bin = lt_attachment
 contents_txt = ut_message
 receivers = lt_receivers
 EXCEPTIONS
 too_many_receivers = 1
 document_not_sent = 2
 document_type_not_exist = 3
 operation_no_authorization = 4
 parameter_error = 5
 x_error = 6
 enqueue_error = 7
 OTHERS = 8.
Message was edited by:
 Amit Kumar

Sending an email with pdf attachment in Ecc6

we were in 4.6 c and recentely upgraded to ECC6. we have a program which we are sending email with pdf attachments. now it is breaking, we are able to display the pdf in the screen, but once it became the attachment , it is not going.
we are running the program in forground and not reading the spool and sending it. any idea

http://www.sap-img.com/abap/sending-email-with-attachment.htm
Sending mail to an external maild with PDF attachment.
Creating a PDF attachment and send it via Email
Sending E-Mail from ABAP - Version 610 and Higher - BCS Interface
How to send a ttachment with email.
https://www.sdn.sap.com/irj/sdn/wiki?path=/display/snippets/abap-Sendthespooldatatoanemail+address.
https://www.sdn.sap.com/irj/sdn/wiki?path=/display/snippets/convertSpoolrequesttoPDFandsendase-mail
Friend just have a look in the forum itself, there are many posts for ur query, you definetly get exact solution no need to wait for answers/solutions.
All the best

External Send PO as email with PDF attachment not working

hi,
we are using ECC6, and in txn NACT, Processing routine we can use Sapscript External send > SAPFM06P > ENTRY_NEU > MEDRUCK > PDF and in MN04/5 i create Output record, and in SCOT my PO is ready for transmission from either ME21N/2 and ME9F - works well - email sent with pdf PO attached.
HOWEVER, we have just created a SMARTFORM PO, and with similar settings, i cannot create External send OUTPUT!!! (Output failed in ME9F/ME23N) NACT settings External Send > /SMB40/FM06P > Z_MMPO_A > PDF
In SCOT > SMTP > Internet X > Sapscript/SmartForm = PDF.
Does special code need to be entered into Smartform to generate PDF email similar to Sapscript? Any code would be appreciated.
regards Adam

Hi,
You need to build a code to create the Spool OTF output into PDF.
This can be done in Print program, which converts the spool into PDF & sends a mail with PDF attachment.
Please refer this sample program:
http://www.sapdevelopment.co.uk/reporting/rep_spooltopdf.htm
Best regards,
Prashant

Edit invoice smartform to email with pdf attachment

Hi,
I need to send the invoice details by mail that are currently only printed through the edit function.
When i go to VF02 enter invoice number and then edit, is it possible to send this message through email with the invoice as pdf attachment?
Also it would be necessary to enter receivers email at that time.
Maybe there is an exit before the sending that could raise a popup...
Do you think this can be done this way?
Thanks,
Laurent.

Hi Laurent
I have done this succesfully in a different way:
1) Create a Z Table for the email ID per Bill to party - this table accomodates up to 999 email ids per customer and also has a column for CC
2) Create a new output type for EMAIL purposes with the Transmission medium as 1 -
assign the output program and form to this.
In the program, add new code to refer to the new Z table for getting the email ids of respective Bill to parties
In the program add code to convert the form to PDF format and attach to the email craeted.
Your ABAPPER should be able to assist in this code writing - in my case it took some time to get the desired result but the customers are very happy with the end result -
best wishes
Nandu

Problem with package that create mail with PDF attachment

Hola,
I've this problem when I use the Oracle Package called "demo_mail",
that I have download from this forum en september.
The code of the Package, I post bottom, now I
write the records of the Package,
that I believe is the core of the problem:
demo_mail.begin_attachment( conn => conn,
mime_type => 'application/pdf',
inline => TRUE, filename => ''|| VC_NOMEFILE ||'',
transfer_enc => 'base64');
The mime_type is correct?
Why when I open the attachment of the mail, it say me that file type
is not correct or the file has been damneged? I need help!
Thank's
*********************************************************The steps that I've done:
1. PACKAGE demo_mail
2. PACKAGE BODY demo_mail
3. procedure P_SPEDMAILSERVATTA (that call package) this
Cannot write the code, because this the result. :(((
thank's
CREATE OR REPLACE PACKAGE demo_mail IS
-- Customize the SMTP host, port and your domain name below.
smtp_host VARCHAR2(256) := 'XXX.YYYY.IT';
smtp_port PLS_INTEGER := 25;
smtp_domain VARCHAR2(256) := 'YYYY.it';
-- 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
 -- After upgrade to Oracle 9i, replace demo_base64.encode with the
 -- native utl_encode.base64_encode for better performance:
 -- utl_smtp.write_raw_data(conn,
-- utl_encode.base64_encode(utl_raw.substr(data, i,
 -- MAX_BASE64_LINE_WIDTH)));
 utl_smtp.write_raw_data(conn,
utl_encode.base64_encode(utl_raw.substr(data, i,
 MAX_BASE64_LINE_WIDTH)));
ELSE
 -- After upgrade to Oracle 9i, replace demo_base64.encode with the
 -- native utl_encode.base64_encode for better performance:
 -- utl_smtp.write_raw_data(conn,
 -- utl_encode.base64_encode(utl_raw.substr(data, i)));
 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;
PROMPT **********************************************************
PROMPT CREAZIONE PROCEDURA P_SPEDMAILSERVATTA
PROMPT **********************************************************
create or replace procedure P_SPEDMAILSERVATTA( VC_DESCDENOAZIE IN VARCHAR2,
 VC_DESCINDIEMAI IN VARCHAR2,
 VC_NUMEBOLL IN VARCHAR2,
 VC_PATHFILE IN VARCHAR2,
 VC_NOMEFILE IN VARCHAR2,
 VC_DESCINDIEMAIMITT IN VARCHAR2)
IS
conn utl_smtp.connection;
req utl_http.req;
resp utl_http.resp;
data RAW(200);
BEGIN
conn := demo_mail.begin_mail(
sender => 'SIAG srl <'|| VC_DESCINDIEMAIMITT ||'>',
recipients => ''|| VC_DESCDENOAZIE ||' '||'<'|| VC_DESCINDIEMAI ||'>'||'',
subject => 'Invio Bollettino n.'|| VC_NUMEBOLL ||'',
mime_type => demo_mail.MULTIPART_MIME_TYPE);
demo_mail.attach_text(
conn => conn,
data => 'Spett.le '|| VC_DESCDENOAZIE ||' in allegato Le invio il Bollettino n. '|| VC_NUMEBOLL ||'. Distinti Saluti <hr align="left" width="20%"> ',
mime_type => 'text/html');
demo_mail.begin_attachment(
conn => conn,
mime_type => 'application/pdf',
inline => TRUE,
filename => ''|| VC_NOMEFILE ||'',
transfer_enc => 'base64');
-- In writing Base-64 encoded text following the MIME format below,
-- the MIME format requires that a long piece of data must be splitted
-- into multiple lines and each line of encoded data cannot exceed
-- 80 characters, including the new-line characters. Also, when
-- splitting the original data into pieces, the length of each chunk
-- of data before encoding must be a multiple of 3, except for the
-- last chunk. The constant demo_mail.MAX_BASE64_LINE_WIDTH
-- (76 / 4 * 3 = 57) is the maximum length (in bytes) of each chunk
-- of data before encoding.
req := utl_http.begin_request('http://localhost/'|| VC_PATHFILE ||'/'|| VC_NOMEFILE ||'');
resp := utl_http.get_response(req);
BEGIN
LOOP
utl_http.read_raw(resp, data, demo_mail.MAX_BASE64_LINE_WIDTH);
demo_mail.write_raw(
conn => conn,
message => utl_encode.base64_encode(data));
END LOOP;
EXCEPTION
WHEN utl_http.end_of_body THEN
utl_http.end_response(resp);
END;
demo_mail.end_attachment( conn => conn );
demo_mail.end_mail( conn => conn );
END;
Message was edited by:
mosquito70
Message was edited by:
mosquito70

Hola, I've this problem when I use the Oracle Package called "demo_mail",
that I have download from this forum en september.
The code of the Package, I post bottom, now I
write the records of the Package,
that I believe is the core of the problem:
demo_mail.begin_attachment( conn => conn,
mime_type => 'application/pdf',
inline => TRUE, filename => ''|| VC_NOMEFILE ||'',
transfer_enc => 'base64');
The mime_type is correct?
Why when I open the attachment of the mail, it say me that file type
is not correct or the file has been damneged? I need help!
Thank's
The steps that I've done:
1. PACKAGE demo_mail
2. PACKAGE BODY demo_mail
3. procedure P_SPEDMAILSERVATTA (that call package)
I cannot post the code :((

Send email with PDF attachements (Smartform/SAP script)

Hello All,
I have 3 existing programs A, B & C whose output is in SAP Script/Smartform. Now I need to create new program D which needs to execute program A, B & C and then convert their smartform/SAP script output into PDF format and send email with attachements (PDF files). Any pointers how I can proceed. Thanks a lot.

hi Sarita,
v_ctrlparams-no_dialog = 'X'.
v_ctrlparams-getotf = 'X'.
CALL FUNCTION 'SSF_FUNCTION_MODULE_NAME'
    EXPORTING
      formname = 'Smartform name'
    IMPORTING
      fm_name = v_func_mod.
CALL FUNCTION v_func_mod
    EXPORTING
      control_parameters = v_ctrlparams
    IMPORTING
      job_output_info    = v_joboutput
    TABLES
      t_nonsigner        = t_nonsigner.
fill the document
doc_chng-obj_name = 'Descriptoipn'.
Fill the subject line
doc_chng-obj_descr = 'Manpowe'.
doc_chng-obj_descr = 'Reminder .
doc_chng-sensitivty = 'P'.
Fill the content of the mail
objcont = 'Dear all,'.
APPEND objcont.
CLEAR objcont.
APPEND objcont.
CLEAR objcont.
objcont =
'The manpower sign-off is pending for the list of employees as per th' &
'e attached sheet.'
APPEND objcont.
CLEAR objcont.
APPEND objcont.
CLEAR objcont.
objcont =
'Please click on the following link for the manpower sign-off:'.
APPEND objcont.
CLEAR objcont.
APPEND objcont.
CLEAR objcont.
DESCRIBE TABLE objcont LINES entries.
READ TABLE objcont INDEX entries.
doc_chng-doc_size = ( entries - 1 ) * 255 + STRLEN( objcont ).
Creating 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   = entries.
objpack-doc_type   = 'RAW'.
APPEND objpack.
Creating the document attachment
(Assume the data in OBJBIN are given in BMP format)
LOOP AT v_joboutput-otfdata INTO wa_otfdata.
    APPEND wa_otfdata TO objbin.
    CLEAR wa_otfdata.
ENDLOOP.
DESCRIBE TABLE objbin LINES tab_lines.
objhead = 'NonSignerDetails.otf'. APPEND objhead.
Creating 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   = 'OTF'.
objpack-obj_name   = 'ATTACHMENT'.
objpack-obj_descr = 'NonSignerDetails'.
objpack-doc_size   = tab_lines * 255.
APPEND objpack.
Sending the document
CALL FUNCTION 'SO_NEW_DOCUMENT_ATT_SEND_API1'
    EXPORTING
      document_data              = doc_chng
      put_in_outbox              = 'X'
      commit_work                = 'X'
    TABLES
      packing_list               = objpack
      object_header              = objhead
      contents_bin               = objbin
      contents_txt               = objcont
      receivers                  = reclist
    EXCEPTIONS
      too_many_receivers         = 1
      document_not_sent          = 2
      operation_no_authorization = 4
      OTHERS                     = 99.
hope this will help u..
regards,
Santosh Thorat

Emails with PDF attachment rejected?

I'm having an issue sending emails to one organization with a PDF attachement. I can email them with any other attachments - I zipped the PDFs and they went through fine - and I can send the PDFs to other people. The emails are rejected with "The e-mail system had a problem processing this message. Microsoft Exchange will not try to redeliver this message for you." It's a government agency so talking to their IT dept hasn't been an option so far. Has anyone encountered this and/or have a fix?
I'm using Acrobat Pro 9.2.0, Mac Snow Leopard 10.6.2.
Thanks
Mark

If they are having a problem when the file is zipped, it's doubful that it's an Acrobat problem if you can open it without issue before zipping it.
alaskagrown wrote:
New developments...
Now I'm having issues where people can receive my emails, but when they try to open the PDF attachment it says it's a corrupt file and won't open. I tried zipping it first and sending and that seemed to work a couple times, but now they're still saying corrupt. This is with several different files sent to several different people. I doubted that it was an Acrobat problem, but these new developments make me wonder.

How do I setup an automatic daily email with PDF attachment?

I would like to setup an automatic daily e-mail (that will send every day around 6 AM), with an PDF attachment retrieved from a web URL. The web URL is constant (that is the PDF file name never changes). Any ideas? I've messed around with automator with poor results at best. Thanks in advance!
P.S..... Apologies if this is in the wrong forum!

Just one specific email addres... myself.
There is an online report that is updated every morning at 5:30 AM MST. The ideal solution would email that document to myself every morning.; thus when I wake up, it's sitting in my inbox (iPhone/Macbook/Gmail, etc.)

Email with pdf attachment

Hi all,
Please tell me the steps to send a mail with a pdf attachment.
Regards,
Sabu.

Hi,
Use the following function modules to send a PDF as an attachment
Once you have a spool, you can convert it to PDF by using function module
"CONVERT_ABAPSPOOLJOB_2_PDF"
For sending emails with attachments use:
"SO_NEW_DOCUMENT_ATT_SEND_API1"
here you need to pass
1) DOCUMENT_DATA - For Document Attributes. Here you mainly specifies your list title, description
2) PUT_IN_OUTBOX = SPACE -> If you do not want to save an email.
3) CONTENTS_TXT -> text to be written in email
4) CONTENTS_BIN - > for attachment
5) RECEIVERS -> Recepients of Mail
Regards,
Raj.

IPhone: Create email with file attachment

I've been thinking of how to backup application data, and decided I might have my App export data as a .csv file and email it to the user. While I could include the .csv data within the body of the email message, I would like to save the user having to cut/paste, by creating the .csv and attaching it (programmatically) to the email.
Creating and sending the email, and creating/saving the .csv is no problem,.. but having my App create the email and attach the .csv data file is...
Anyone know how I could [begin to] accomplish this?

the iPhone SDK doesn't allow for direct attachments to emails via the built in email URL scheme (for details of the mail URL Scheme see: http://www.ietf.org/rfc/rfc2368.txt ).
You can choose to embed your own SMTP client inside your app which would let you send an attachment, but then the user would have to enter their mail server information again for your app (because you can't access the keychain with their mail credentials in it).
rob.

Sending email with pdf attachment

I have a need to save several screens from within my flash
projector into a
multi page pdf document and then email the pdf to an address
that the user
types in.
Is this at all possible?
Many thanks
dave

hi
can u provide any sample code to send attachment from oracle mail
any attachment html/text/pdf..
is java mailnecessary for that or object should me stored in database

Email with pdf attached..

Can you please post sample code how to send email using pl/sql proc with password protected pdf attched.
I am using SMTP setting with DEMOmail.

any update

PO output by email with PDF attachment

Dear Friends,
The moment a PO is made the mail shud trigger to the vendor in he shud receive the PO output form in PDF format.
How to configure this. What are the steps.
Looking forward for your co-operation

Hi,
Refer SAPNote 191470 - Purchase order as an e-mail
Follow these steps fro configuring email output -
1. Maintain email address in Vendor Master.
2. Maintain output condition records in MN04 with Medium = 5 and in the communication data enter communication strategy CS01and also enter printer.
3. Check configuration in SPRO MM -> Purchasing -> Messages -> Output Control - > Message Type -> Define Message Type for Outline Agreement. Mainain configuration for External Send. Use standard program 'SAPFM06P', FORM routine 'ENTRY_NEU' and form 'MEDRUCK' ( if not contomized) as the processing routines.
4.You can use Transaction SCOT to trigger the output manually.
5. To be able to display, for example, the e-mail in Outlook, enter PDF as the format in the node.

Custome FM to create Email with PDF attachment

Similar Messages

Maybe you are looking for