Trigger alert with attachment

Hi,
I know we can trigger an alert which will send an email to a recipient on some condition, just want to know can we send an attachment with that, or if not possible then a link to URL to directly open the attachment in webui ?
Rgds,
Shobhit

Hi,
now i am getting alerts from Event Linkage.
Here i take the scenario Sales order change.
BOR object : BUS2032
Event          : Changed
Receiver type : <my alert>
Receiver call  : Function Module
Receiver Functiona Module : SALRT_CREATE_VIA_EVENT
Linkage is activated.
when a sales order is changed receiver function module triggering the alert which is defined in Receiver type. That i am getting in my alert inbox. Upto this.. it is cleared.
Now the scenario is.. about Alert Container
in alert container i take element is BOR Object type BUS2032.
the questions are..
1. Is it correct to defined BOR object here to get data when Sales order has been changed.
2. What are the properties i have to take in Properties tab?
3. How to use alert container parameters in short and long text?
Here my clear intention is when a sales order is changed.. i have to get the data related to that sales order and it has to show in Alert.

Similar Messages

  • How to trigger Alert with Event Linkage?

    Hi,
    Can any one tell me the process how to trigger alerts with event linkage? I am successul in triggering by calling function module SALRT_CREATE_API.
    my scenario is...
    when a purchase order is cancelled, i have to trigger an alert to the concerned department head throgh Alert Inbox and external mail also.
    Plese guide me..
    Regards,
    Dhanunjaya Reddy

    Hi,
    now i am getting alerts from Event Linkage.
    Here i take the scenario Sales order change.
    BOR object : BUS2032
    Event          : Changed
    Receiver type : <my alert>
    Receiver call  : Function Module
    Receiver Functiona Module : SALRT_CREATE_VIA_EVENT
    Linkage is activated.
    when a sales order is changed receiver function module triggering the alert which is defined in Receiver type. That i am getting in my alert inbox. Upto this.. it is cleared.
    Now the scenario is.. about Alert Container
    in alert container i take element is BOR Object type BUS2032.
    the questions are..
    1. Is it correct to defined BOR object here to get data when Sales order has been changed.
    2. What are the properties i have to take in Properties tab?
    3. How to use alert container parameters in short and long text?
    Here my clear intention is when a sales order is changed.. i have to get the data related to that sales order and it has to show in Alert.

  • Trigger alert for open service orders

    Hi,
    We are using CRM 7.0. We have a need where we wan to trigger an alert on BP confirm to say " <customer name> has <#> open service orders". This alert should only be triggered if the customer has at least one open service orders.
    Thanks
    Dan

    Hello Dan,
    This process is descibed also in the RKT material for CRM 7.0, but here is a quick overview of the main steps:
    Create an alert in the Alert Editor that contains the attribute Fact Base - Service Order/Ticket ID, which will show up in the alert editor as [FACTBASE$BT_CURR_OBJ_ID]. At runtime this attribute will be replaced by the ID of the actual open service ticket. Make sure that you also specify the navigation object: type/action BT116_SRVTK:B (Service Ticket:Display).
    Then create a rule in the Rule Modeler using context Intent-Driven Interaction. You would have a condition like, "If current event = BP Confirmed" and an action Trigger Alert, with the ID of your alert above in the parameter.
    One alert will then show up for each open service ticket/order. If there are no open tickets/orders for that customer, no alert will be triggered. Clicking on any alert will navigate to that specifc order/ticket mentioned in the alert.
    Best regards,
    John

  • Alert management mail with attachment

    I have to send an email from a custommer application, what I realize by a new alert category in tr. ALRTCATDEF. I trigger an email using F.M. SALRT_CREATE_API.
    However, I have to send an email with an attachment. Is there any possibility to add an attachment for email that is generated from alert management framework ?
    Please, advise.

    hi
    good
    This program will allowed you to send email with attachment.
    First, specify the attachment file from your local hardisk and execute.
    Next, specify the sender email address and click the send button.
    report y_cr17_mail.
    data method1 like sy-ucomm.
    data g_user like soudnamei1.
    data g_user_data like soudatai1.
    data g_owner like soud-usrnam.
    data g_receipients like soos1 occurs 0 with header line.
    data g_document like sood4 .
    data g_header like sood2.
    data g_folmam like sofm2.
    data g_objcnt like soli occurs 0 with header line.
    data g_objhead like soli occurs 0 with header line.
    data g_objpara  like selc occurs 0 with header line.
    data g_objparb  like soop1 occurs 0 with header line.
    data g_attachments like sood5 occurs 0 with header line.
    data g_references like soxrl occurs 0 with header line.
    data g_authority like sofa-usracc.
    data g_ref_document like sood4.
    data g_new_parent like soodk.
    data: begin of g_files occurs 10 ,
      text(4096) type c,
       end of g_files.
    data : fold_number(12) type c,
           fold_yr(2) type c,
           fold_type(3) type c.
    parameters ws_file(4096) type c default 'c:\debugger.txt'.
    Can me any file fromyour pc ....either xls or word or ppt etc ...
    g_user-sapname = sy-uname.
    call function 'SO_USER_READ_API1'
    exporting
       user                            = g_user
       PREPARE_FOR_FOLDER_ACCESS       = ' '
    importing
       user_data                       = g_user_data
    EXCEPTIONS
       USER_NOT_EXIST                  = 1
       PARAMETER_ERROR                 = 2
       X_ERROR                         = 3
       OTHERS                          = 4
    if sy-subrc <> 0.
    MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
            WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
    endif.
    fold_type = g_user_data-outboxfol+0(3).
    fold_yr = g_user_data-outboxfol+3(2).
    fold_number =  g_user_data-outboxfol+5(12).
    clear g_files.
    refresh : g_objcnt,
      g_objhead,
      g_objpara,
      g_objparb,
      g_receipients,
      g_attachments,
      g_references,
      g_files.
    method1 = 'SAVE'.
    g_document-foltp  = fold_type.
    g_document-folyr   = fold_yr.
    g_document-folno   = fold_number.
    g_document-objtp   = g_user_data-object_typ.
    *g_document-OBJYR   = '27'.
    *g_document-OBJNO   = '000000002365'.
    *g_document-OBJNAM = 'MESSAGE'.
    g_document-objdes   = 'sap-img.com testing by program'.
    g_document-folrg   = 'O'.
    *g_document-okcode   = 'CHNG'.
    g_document-objlen = '0'.
    g_document-file_ext = 'TXT'.
    g_header-objdes =  'sap-img.com testing by program'.
    g_header-file_ext = 'TXT'.
    call function 'SO_DOCUMENT_REPOSITORY_MANAGER'
      exporting
        method             = method1
       office_user        = sy-uname
       ref_document       = g_ref_document
       new_parent         =  g_new_parent
    importing
       authority          =  g_authority
    tables
       objcont            = g_objcnt
       objhead            = g_objhead
       objpara            = g_objpara
       objparb            = g_objparb
       recipients         = g_receipients
       attachments        = g_attachments
       references         = g_references
       files              = g_files
      changing
        document           = g_document
       header_data        = g_header
      FOLMEM_DATA        =
      RECEIVE_DATA       =
    File from the pc to send...
    method1 = 'ATTCREATEFROMPC'.
    g_files-text = ws_file.
    append g_files.
    call function 'SO_DOCUMENT_REPOSITORY_MANAGER'
      exporting
        method             = method1
       office_user        = g_owner
       ref_document       = g_ref_document
       new_parent         =  g_new_parent
    importing
       authority          =  g_authority
    tables
       objcont            = g_objcnt
       objhead            = g_objhead
       objpara            = g_objpara
       objparb            = g_objparb
       recipients         = g_receipients
       attachments        = g_attachments
       references         = g_references
       files              = g_files
      changing
        document           = g_document
       header_data        = g_header
    method1 = 'SEND'.
    g_receipients-recnam = 'MK085'.
    g_receipients-recesc = 'B'.
    g_receipients-sndex = 'X'.
    append  g_receipients.
    call function 'SO_DOCUMENT_REPOSITORY_MANAGER'
      exporting
        method             = method1
       office_user        = g_owner
       ref_document       = g_ref_document
       new_parent         =  g_new_parent
    importing
       authority          =  g_authority
    tables
       objcont            = g_objcnt
       objhead            = g_objhead
       objpara            = g_objpara
       objparb            = g_objparb
       recipients         = g_receipients
       attachments        = g_attachments
       references         = g_references
       files              = g_files
      changing
        document           = g_document
       header_data        = g_header.
    *-- End of Program
    thanks
    mrutyun^

  • How to trigger alerts from UDF for file to file scenario

    Hi,
       My scenario is something like this.......
    I have lookup in which there exists more than one output value corresponding to this one input value.In such cases i need to raise an exception and trigger an alert from UDF so as to inform the functional team.
    Now this entire procedure has to be implemeted for file to file scenario.
    I am not using any RFC nor do i need a BPM.
    Entire scenario should be excuted without BPM and RFC.
    Can anyone kindly suggest me as to how to proceed for this so as to trigger alerts
    from UDF.
    Thanks in advance
    Madhu

    HI,
    Please see the below links
    Triggering XI Alerts from a User Defined Function - /people/bhavesh.kantilal/blog/2006/07/25/triggering-xi-alerts-from-a-user-defined-function
    Alerts with variables from the messages payload (XI) - UPDATED - /people/michal.krawczyk2/blog/2005/03/13/alerts-with-variables-from-the-messages-payload-xi--updated
    /people/michal.krawczyk2/blog/2005/09/09/xi-alerts--step-by-step - Alert Configuration
    /people/michal.krawczyk2/blog/2005/09/09/xi-alerts--troubleshooting-guide - Trouble shoot alert config
    Regards
    Chilla

  • Proxy with attachment

    How to use proxy along with attachment...

    HI,
    Proxies communicate with the XI server by means of native SOAP calls over HTTP .RFC does not, so you have to convert from SOAP to RFC calls and vice versa. So XML conversion is required.
    please refer these links
    /people/michal.krawczyk2/blog/2006/04/19/xi-rfc-or-abap-proxy-abap-proxies-with-attachments
    Regarding Receiver proxy
    JAVA Proxies:
    https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/a068cf2f-0401-0010-2aa9-f5ae4b2096f9
    https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/f272165e-0401-0010-b4a1-e7eb8903501d
    ABAP Proxies:
    /people/sap.user72/blog/2005/12/13/integration-builders-through-proxy-server-part--2
    /people/ravikumar.allampallam/blog/2005/03/14/abap-proxies-in-xiclient-proxy
    /people/arulraja.ma/blog/2006/08/18/xi-reliable-messaging-150-eoio-in-abap-proxies
    /people/stefan.grube/blog/2006/07/28/xi-debug-your-inbound-abap-proxy-implementation
    /people/michal.krawczyk2/blog/2006/04/19/xi-rfc-or-abap-proxy-abap-proxies-with-attachments
    /people/sukumar.natarajan/blog/2007/01/07/how-to-raise-alerts-from-abap-proxy
    /people/sravya.talanki2/blog/2006/07/28/smarter-approach-for-coding-abap-proxies
    ON SDN TV
    https://www.sdn.sap.com/irj/sdn/advancedsearch?query=abap%20proxy%20xi&cat=sdn_all&start=11#
    If you use ABAP Proxy , you can reduce the overhead calling the function again and again.
    /people/vijaya.kumari2/blog/2006/01/26/how-do-you-activate-abap-proxies - Activate Proxy
    /people/siva.maranani/blog/2005/04/03/abap-server-proxies - ABAP Server Proxy
    /people/ravikumar.allampallam/blog/2005/03/14/abap-proxies-in-xiclient-proxy - ABAP Client Proxy
    Re: JDBC Sender select/update problem
    regards
    Aashish Sinha
    PS : reward points if helpful

  • Don't want to trigger alert in mapping failure

    Hi Experts,
    I have defined one alert category and corresponding rule in RWB to trigger alert for any failure like Receiver determination error, mapping error etc for all interfaces like Create order, cost center, shipments etc.
    I have done complete configuration and getting alerts email in mail box if any interface fails with any reason.
    But, Now, I came up with requirement that for one particular interface the alert should not trigger for mapping failure only and other interface should also not affect.
    Need your help to configure the same.
    Thanks in advance for your help.
    Regards,
    Shele.

    Thanks a lot for replies.
    the solution achived by defining as suggested.
    u2022 Created alert rule for interface specific with u201CNo Restrictionu201D to handle all types of error instead of one generic rule to handle all interfaces.
    u2022 Created Multiple Rules ( Like Receiver determination error, IDOC Adapter errors etc) instead of "No Restriction" for required interface to handle errors excluding mapping error. It had sucessfully suppressed the alerts only if u201Cmapping Erroru201D occurs.
    Thanks,
    Shele.

  • Alerting with Content Master Conversion Agent via Email Adapter

    Hi all,
    my question is: is it somehow possible to have the alerting also with EMail Scenario and Content Master? i am on SP 14 and in my alert rule there is no restriction. But when i make a restriction on adapter, the mail adapter is not available.
    So, Alerting with Email Adapter is not possible??
    Thanx a lot, folx,
    Felix

    Hi Felix,
    I have been trying to configure alerts using NO RESTRICTION. When i try to trigger my alerts using the report RSALERTEST, message is sent to my alert inbox.
    But, when any error occurs on my Integration Engine or Adapter Engine, the alert is not triggered.I am on SP14.
    Is there any additional configuration that needs to be done for the same?? Are you able to get ALERTS in your inbox whenever anything fails in your Integration Engine or Adapter Engine.
    It would be very helpful if you could answer this query.
    regards,
    bhavesh

  • Could not trigger alert in rz20

    Hi,gurus:
         I want to add alert function in my scenario(file to file).I did it with the help of the blog "Configuring scenario specific E-mail alerts in XI-CCMS: Part 2",and I have set the threshold values,but the value of Average Processing time was still 0 msec and no alert existed.Are there any operation I missed?
    Any help will be appreciated!

    Hi:
        I can see the alert now by choosing the option like :trigger alert when the transporting time is lower than the threshold value.
        But now  another problem occured.I want to mail the internet address after the alert trigger,but it throws exception "CL_SMTP_RESPONSE ESMTP " and the error "530 530 5.7.0 No AUTH  command".I think it is the cause of the authentication of the mail server.What do you think of that? In the blog "FAQ in Business Communication area" I saw this problem:
    Q4. How does the R/3 System authenticate at the Mail Server.
    A4. The R/3 System can only use domain based authentication. Authentication with username + password is not possible. /* It is also not planned to implement this feature. */
    Workaround: You can install an additional SMTP hop, what only accepts mail from the SAP System, and sends these mails to your "productive" SMTP Server. /* With authentication */
    So is the problem the same to mine?
    I have configured relavant work in scot,sicf,su01...
    Any help will be appreciated!Thanks in advance.

  • Trigger Alert E-Mail When messages were in To Be delivered Status

    Hello all,
    Is it possible to trigger an Alert E-mail if a message struck up in 'To be delivered' status ??
    I Know this status is not an error status with AE to trigger alert automatically. We are facing this problem often and when we restart XI AF messaging system, all messages were processed.
    We would like to know if messages were struck up with that status more than 15mins.
    Any thoughts??
    Regards

    Hi,
    Standard Alert Frame work will not support sending an Alert for To Be delivered status.
    you have to do some work around,
    check below blog and apply this design
    /people/shweta.walaskar2/blog/2011/05/12/trigger-alerts-for-messages-in-to-be-delivered-status-monitoring-adapter-queue-lock
    Regards,
    Raj

  • Email with Attachment

    Hi All
    We are successfully able to send email with attachment on sql prompt. The problem is when we are trying to send the attachment through Application Express after submit process its showing the attached file but without its content.
    We hav created two such processes. Process one attachs the file as below
    declare
    file_id number;
    begin
    delete from dumy_file;
    select nvl(max(id),0)+1 into file_id from dumy_file;
    insert into dumy_file(id,name,file_obj_id,mime_type,blob_content)
    select file_id, filename, id ,mime_type,blob_content
    from htmldb_application_files where name = :P2_FILE;
    :P2_X := file_id;
    end;
    And process two send the email with attachment:
    declare
    file_name varchar2(100);
    mim_typ varchar2(50);
    begin
    select name into file_name from dumy_file where id = :P2_X;
    select MIME_TYPE into mim_typ from dumy_file where id = :P2_X;
    email_files(from_name => 'Aashu' ,
    to_names => :P2_EMAIL,
    subject => 'A test from APEX',
    message => 'A test message from APEX',
    html_message => 'A test message from APEX',
    filename1 => file_name,
    filetype1 => mim_typ);
    end;
    Here dumy_file is a custom table.
    Any help would be highly appreciated.
    Thanks
    saurabh

    [rem Purpose: Sends e-mail (text and/or html, either as a string or from a file)
    rem to one or more recipients (including cc and/or bcc recipients), along with
    rem up to 3 file attachments (text and/or binary; default is text/plain), using
    rem the UTL_SMTP package to send the e-mail, the DBMS_LOB package to read
    rem binary file attachments, and the UTL_ENCODE package to convert the binary
    rem attachments to BASE64 for character string (non-binary) transmission.
    rem BE AWARE THAT A COMMIT MAY BE DONE BY THIS ROUTINE (see HOWEVER... below).
    rem
    rem The complete parameter list for the email_files procedure is shown below:
    rem    from_name - name and e-mail address to put in the From field
    rem    to_names - names and e-mail addresses for the To field (separated by
    rem       commas or semicolons)
    rem    subject - text string for Subject field
    rem    message - text string or text file name for Message, if any
    rem    html_message - html string or html file name for Message, if any
    rem    cc_names - names and e-mail addresses for the Cc field, if any
    rem       (separated by commas or semicolons)
    rem    bcc_names - names and e-mail addresses for the Bcc field, if any
    rem       (separated by commas or semicolons)
    rem    filename1 - first file pathname to attach, if any
    rem    filetype1 - mime type of first file (defaults to 'text/plain')
    rem    filename2 - second file pathname to attach, if any
    rem    filetype2 - mime type of second file (defaults to 'text/plain')
    rem    filename3 - third file pathname to attach, if any
    rem    filetype3 - mime type of third file (defaults to 'text/plain')
    rem
    rem Sample names and e-mail addresses are: srea (attaches @<localhost> or
    rem @<mail domain>), [email protected], <[email protected]>, Steve Rea <[email protected]>,
    rem and "Steve Rea" <[email protected]> (e-mail addresses must be valid - validity
    rem checking is not done on them).
    rem
    rem A sample call in PL/SQL is shown below, which sends a text and html message,
    rem plus a text file and two binary files (note: the slash after "end;" must be
    rem the first character on it's line):
    rem
    rem    begin
    rem       email_files(from_name    => 'oracle' ,
    rem                   to_names     => '[email protected]',
    rem                   subject      => 'A test',
    rem                   message      => 'A test message',
    rem                   html_message => '<h2>A <u><i>test</i></u> message</h2>',
    rem                   filename1    => '/tmp/web_ptrbdca.txt',
    rem                   filename2    => '/tmp/password_standards.pdf',
    rem                   filetype2    => 'application/pdf',
    rem                   filename3    => '/tmp/wb703.jpg',
    rem                   filetype3    => 'image/jpeg');
    rem    end;
    rem    /
    rem
    rem If the message or html_message string has a file name in it (starting with
    rem a forward slash for unix or starting with '<drive letter>:\' or '\\' for
    rem Windows/DOS), the text or html file is copied into the e-mail as the message
    rem or html message; otherwise, the message or html_message is copied into the
    rem e-mail as-is.
    rem
    rem Attachment file types (mime types) that I've tested include:
    rem    text/plain, text/html, image/jpeg, image/gif, application/pdf,
    rem    application/msword
    rem A list of mime types can be seen at:
    rem    http://www.webmaster-toolkit.com/mime-types.shtml
    rem If the mime type does not begin with "text", it is assumed to be a binary
    rem file that will be encoded as base64 before transmission.
    rem
    rem This was derived from several sources, including:
    rem    Dave Wotton (Cambridge UK) - mail_files.sql at
    rem       http://home.clara.net/dwotton/dba/oracle_smtp.htm
    rem    Oracle Technology Network - maildemo.sql (demo_mail) at
    rem       http://www.oracle.com/technology/sample_code/tech/pl_sql/htdocs/Utl_Smtp_Sample.html
    rem    Akadia's "Read a file word by word using DBMS_LOB" Tip at
    rem       http://www.akadia.com/services/read_file_with_dbms_lob.html
    rem    Tom Kyte of Oracle's AskTom site (http://AskTom.oracle.com) -
    rem       answer to "File Exists which is not a BFILE" and others.
    rem
    rem NOTE: The user running this must have "create any directory" and "drop any
    rem directory" privileges ("create directory" was introduced in Oracle 9iR2),
    rem which must be granted from a system or dba account, such as:
    rem    grant create any directory to scott;
    rem    grant drop any directory to scott;
    rem  then:
    rem    connect / as sysdba
    rem    grant select on dba_directories to scott;
    rem or, for everyone to have directory privileges:
    rem    grant create any directory to public;
    rem    grant drop any directory to public;
    rem  then:
    rem    connect / as sysdba
    rem    grant select on dba_directories to public;
    rem Any file in any directory accessible to the user can be attached (not just
    rem the directories listed for the utl_file_dir parameter in the init.ora file).
    rem HOWEVER, if you are using this to send e-mail's with attached files (or
    rem reading the message text or message html from a file) from a trigger or
    rem from some other SQL that you can't or don't want to have a commit done,
    rem you will first need to create an Oracle directory entry for the directory
    rem containing the attached files and grant read access to it to public, such
    rem as:
    rem    create directory CESDIR_COMMON as '/home/common';
    rem    grant read on directory CESDIR_COMMON to public;
    rem
    rem You may also want to create a public synonym for this procedure, from the
    rem procedure's owner:
    rem    create or replace public synonym email_files for email_files;
    rem    grant execute on email_files to public;
    rem
    rem FYI: I tried using the utl_file package to read binary files:
    rem    utl_file.get_raw(v_file_handle,data,57);
    rem but got "ORA-29284: file read error" on .pdf files, so, I switched to use
    rem the dbms_lob package to read binary files:
    rem    dbms_lob.read(v_bfile_handle,read_bytes,v_pos,data);
    rem
    rem Author: Stephen Rea <[email protected]>
    rem    University of Arkansas Cooperative Extension Service
    rem Initial release: 12/21/04
    rem
    rem Updates:
    rem 1/31/05 - Fixed for triggers and other SQL that can't have a commit by
    rem    checking for and using already-defined Oracle directories ("create
    rem    directory" is a DDL statement that does a commit).
    rem 9/23/05 - Put exception handler in to handle the SMTP server being
    rem    down or unavailable.  (Solution from Ed Siegle at Swarthmore.)
    rem 7/14/06 - Additional changes to detect and handle Windows/DOS file names
    rem    (second and third characters ':\' for paths with drive letters, or
    rem    first and second characters '\\' for UNC paths).
    rem 8/25/06 - Some SMTP interfaces may require angle brackets (<>) around the
    rem    e-mail addresses, so, add them before returning results from get_address.
    rem    Also, they may not attach the host if relayed through a non-localhost,
    rem    so, attach the mail domain part (last two components) of the relay host
    rem    to the address if the mail domain is not specified in the address.
    rem
    create or replace procedure email_files(from_name varchar2,
                          to_names varchar2,
                          subject varchar2,
                          message varchar2 default null,
                          html_message varchar2 default null,
                          cc_names varchar2 default null,
                          bcc_names varchar2 default null,
                          filename1 varchar2 default null,
                          filetype1 varchar2 default 'text/plain',
                          filename2 varchar2 default null,
                          filetype2 varchar2 default 'text/plain',
                          filename3 varchar2 default null,
                          filetype3 varchar2 default 'text/plain')
    is
       -- Change the SMTP host name and port number below to your own values,
       -- if not localhost on port 25:
       smtp_host          varchar2(256) := 'localhost';
       smtp_port          number := 25;
       -- Change the boundary string, if needed, which demarcates boundaries of
       -- parts in a multi-part email, and should not appear inside the body of
       -- any part of the e-mail:
       boundary           constant varchar2(256) := 'CES.Boundary.DACA587499938898';
       recipients         varchar2(32767);
       directory_path     varchar2(256);
       file_name          varchar2(256);
       crlf               varchar2(2):= chr(13) || chr(10);
       mesg               varchar2(32767);
       conn               UTL_SMTP.CONNECTION;
       type varchar2_table is table of varchar2(256) index by binary_integer;
       file_array         varchar2_table;
       type_array         varchar2_table;
       i                  binary_integer;
       my_code            number;
       my_errm            varchar2(32767);
       -- Function to return the next email address in the list of email addresses,
       -- separated by either a "," or a ";".  From Oracle's demo_mail.  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 IS
             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;
          i := lookup_unquoted_char(addr, '@');
          IF (i = 0 and smtp_host != 'localhost') THEN
             i := instr(smtp_host, '.', -1, 2);
             addr := addr || '@' || substr(smtp_host, i + 1);
          END IF;
          addr := '<' || addr || '>';
          RETURN addr;
       END;
       -- Procedure to split a file pathname into its directory path and file name
       -- components.
       PROCEDURE split_path_name(file_path IN VARCHAR2, directory_path OUT VARCHAR2,
          file_name OUT VARCHAR2) IS
          pos number;
       begin
          -- Separate the filename from the directory name
          pos := instr(file_path,'/',-1);
          if pos = 0 then
             pos := instr(file_path,'\',-1);
          end if;
          if pos = 0 then
             directory_path := null;
          else
             directory_path := substr(file_path,1,pos - 1);
          end if;
          file_name := substr(file_path,pos + 1);
       end;
       -- Procedure to append a file's contents to the e-mail
       PROCEDURE append_file(directory_path IN VARCHAR2, file_name IN VARCHAR2,
          file_type IN VARCHAR2, conn IN OUT UTL_SMTP.CONNECTION) IS
          generated_name  varchar2(30) := 'CESDIR' || to_char(sysdate,'HH24MISS');
          directory_name  varchar2(30);
          file_handle     utl_file.file_type;
          bfile_handle    bfile;
          bfile_len       number;
          pos             number;
          read_bytes      number;
          line            varchar2(1000);
          data            raw(200);
          my_code         number;
          my_errm         varchar2(32767);
       begin
          begin
             -- Grant access to the directory, unless already defined, and open
             -- the file (as a bfile for a binary file, otherwise as a text file).
             begin
                line := directory_path;
                select dd.directory_name into directory_name from dba_directories dd
                   where dd.directory_path = line and rownum = 1;
             exception
                when no_data_found then
                   directory_name := generated_name;
             end;
             if directory_name = generated_name then
                execute immediate 'create or replace directory ' || directory_name ||
                   ' as ''' || directory_path || '''';
                execute immediate 'grant read on directory ' || directory_name ||
                   ' to public';
             end if;
             if substr(file_type,1,4) != 'text' then
                bfile_handle := bfilename(directory_name,file_name);
                bfile_len := dbms_lob.getlength(bfile_handle);
                pos := 1;
                dbms_lob.open(bfile_handle,dbms_lob.lob_readonly);
             else
                file_handle := utl_file.fopen(directory_name,file_name,'r');
             end if;
             -- Append the file contents to the end of the message
             loop
                -- If it is a binary file, process it 57 bytes at a time,
                -- reading them in with a LOB read, encoding them in BASE64,
                -- and writing out the encoded binary string as raw data
                if substr(file_type,1,4) != 'text' then
                   if pos + 57 - 1 > bfile_len then
                      read_bytes := bfile_len - pos + 1;
                   else
                      read_bytes := 57;
                   end if;
                   dbms_lob.read(bfile_handle,read_bytes,pos,data);
                   utl_smtp.write_raw_data(conn,utl_encode.base64_encode(data));
                   pos := pos + 57;
                   if pos > bfile_len then
                      exit;
                   end if;
                -- If it is a text file, get the next line of text, append a
                -- carriage return / line feed to it, and write it out
                else
                   utl_file.get_line(file_handle,line);
                   utl_smtp.write_data(conn,line || crlf);
                end if;
             end loop;
          -- Output any errors, except at end when no more data is found
          exception
             when no_data_found then
                null;
             when others then
                my_code := SQLCODE;
                my_errm := SQLERRM;
                dbms_output.put_line('Error code ' || my_code || ': ' ||
                   my_errm);
          end;
          -- Close the file (binary or text)
          if substr(file_type,1,4) != 'text' then
             dbms_lob.close(bfile_handle);
          else
             utl_file.fclose(file_handle);
          end if;
          if directory_name = generated_name then
             execute immediate 'drop directory ' || directory_name;
          end if;
       end;
    begin
       -- Load the three filenames and file (mime) types into an array for
       -- easier handling later
       file_array(1) := filename1;
       file_array(2) := filename2;
       file_array(3) := filename3;
       type_array(1) := filetype1;
       type_array(2) := filetype2;
       type_array(3) := filetype3;
       -- Open the SMTP connection and set the From and To e-mail addresses
       conn := utl_smtp.open_connection(smtp_host,smtp_port);
       utl_smtp.helo(conn,smtp_host);
       recipients := from_name;
       utl_smtp.mail(conn,get_address(recipients));
       recipients := to_names;
       while recipients is not null loop
          utl_smtp.rcpt(conn,get_address(recipients));
       end loop;
       recipients := cc_names;
       while recipients is not null loop
          utl_smtp.rcpt(conn,get_address(recipients));
       end loop;
       recipients := bcc_names;
       while recipients is not null loop
          utl_smtp.rcpt(conn,get_address(recipients));
       end loop;
       utl_smtp.open_data(conn);
       -- Build the start of the mail message
       mesg := 'Date: ' || TO_CHAR(SYSDATE,'dd Mon yy hh24:mi:ss') || crlf ||
          'From: ' || from_name || crlf ||
          'Subject: ' || subject || crlf ||
          'To: ' || to_names || crlf;
       if cc_names is not null then
          mesg := mesg || 'Cc: ' || cc_names || crlf;
       end if;
       if bcc_names is not null then
          mesg := mesg || 'Bcc: ' || bcc_names || crlf;
       end if;
       mesg := mesg || 'Mime-Version: 1.0' || crlf ||
          'Content-Type: multipart/mixed; boundary="' || boundary || '"' ||
          crlf || crlf ||
          'This is a Mime message, which your current mail reader may not' || crlf ||
          'understand. Parts of the message will appear as text. If the remainder' || crlf ||
          'appears as random characters in the message body, instead of as' || crlf ||
          'attachments, then you''ll have to extract these parts and decode them' || crlf ||
          'manually.' || crlf || crlf;
       utl_smtp.write_data(conn,mesg);
       -- Write the text message or message file, if any
       if message is not null then
          mesg := '--' || boundary || crlf ||
             'Content-Type: text/plain; name="message.txt"; charset=US-ASCII' ||
              crlf ||
             'Content-Disposition: inline; filename="message.txt"' || crlf ||
             'Content-Transfer-Encoding: 7bit' || crlf || crlf;
          utl_smtp.write_data(conn,mesg);
          if instr(message,'/') = 1 or instr(message,':\') = 2 or
             instr(message,'\\') = 1 then
             split_path_name(message,directory_path,file_name);
             append_file(directory_path,file_name,'text',conn);
             utl_smtp.write_data(conn,crlf);
          else
             utl_smtp.write_data(conn,message || crlf);
          end if;
       end if;
       -- Write the HTML message or message file, if any
       if html_message is not null then
          mesg := '--' || boundary || crlf ||
             'Content-Type: text/html; name="message.html"; charset=US-ASCII' ||
             crlf ||
             'Content-Disposition: inline; filename="message.html"' || crlf ||
             'Content-Transfer-Encoding: 7bit' || crlf || crlf;
          utl_smtp.write_data(conn,mesg);
          if instr(html_message,'/') = 1 or instr(html_message,':\') = 2 or
             instr(html_message,'\\') = 1 then
             split_path_name(html_message,directory_path,file_name);
             append_file(directory_path,file_name,'text',conn);
             utl_smtp.write_data(conn,crlf);
          else
             utl_smtp.write_data(conn,html_message || crlf);
          end if;
       end if;
       -- Append the files
       for i in 1..3 loop
          -- If the filename has been supplied ...
          if file_array(i) is not null then
             split_path_name(file_array(i),directory_path,file_name);
             -- Generate the MIME boundary line according to the file (mime) type
             -- specified.
             mesg := crlf || '--' || boundary || crlf;
             if substr(type_array(i),1,4) != 'text' then
                mesg := mesg || 'Content-Type: ' || type_array(i) ||
                   '; name="' || file_name || '"' || crlf ||
                   'Content-Disposition: attachment; filename="' ||
                   file_name || '"' || crlf ||
                   'Content-Transfer-Encoding: base64' || crlf || crlf ;
             else
                mesg := mesg || 'Content-Type: application/octet-stream; name="' ||
                   file_name || '"' || crlf ||
                   'Content-Disposition: attachment; filename="' ||
                   file_name || '"' || crlf ||
                   'Content-Transfer-Encoding: 7bit' || crlf || crlf ;
             end if;
             utl_smtp.write_data(conn,mesg);
             -- Append the file contents to the end of the message
             append_file(directory_path,file_name,type_array(i),conn);
             utl_smtp.write_data(conn,crlf);
          end if;
       end loop;
       -- Append the final boundary line
       mesg := crlf || '--' || boundary || '--' || crlf;
       utl_smtp.write_data(conn,mesg);
       -- Close the SMTP connection
       utl_smtp.close_data(conn);
       utl_smtp.quit(conn);
    exception
       when utl_smtp.transient_error or utl_smtp.permanent_error then
          my_code := SQLCODE;
          my_errm := SQLERRM;
          begin
             utl_smtp.quit(conn);
          exception
             when utl_smtp.transient_error or utl_smtp.permanent_error then
                null;
          end;
          raise_application_error(-20000,
             'Failed to send mail - SMTP server down or unavailable: Error code ' ||
                my_code || ': ' || my_errm);
       when others then
          my_code := SQLCODE;
          my_errm := SQLERRM;
          raise_application_error(-20000,
             'Failed to send mail: Error code ' || my_code || ': ' || my_errm);
    end;
    Above is the code as required by you.In my original mail I have explained that how I'm calling this procedure.
    Thanks
    Saurabh

  • Send email with attachment from Q2 notification to external email

    Hi,
    Whenever I create a Q2 notification, I want to send the vendor, details of the notification as attachment. Now it is copying the "coordinator" from partner function. But not copying vendor data in select partner function. Here I have to manually select the vendor. Another question here is that, this email should trigger to the email id of vendor maintained in the vendor master. This email address will be an external id. Please suggest the best way to send email to vendor along with attachment.
    Thanks
    Vineeth

    Hi
    Check with this sap note 208271 "Sending Notification email with Print function"
    and required basis configuration.
    Regards
    Shiva

  • Sending an E-mail with attachment with PHP from Flex

    Hey,
    I've made a custom compontent wich mails your own drawings to you. But I have a problem to send an e-mail with attachment.
    I use the HttpService to send the data to the php-file, but I always get the Fault message (form phpFault()).
    This is my code in Flex:
    <mx:Script>
        <![CDATA[
            import mx.rpc.events.FaultEvent;
            import mx.rpc.events.ResultEvent;
            import mx.graphics.codec.PNGEncoder;
            import mx.events.ValidationResultEvent;
            import mx.controls.Alert;
            [Bindable]
            private var byteArray:ByteArray;
            private function mailImage(comp:DisplayObject):void
                var emailValidation:ValidationResultEvent = validEmail.validate();
                if(emailValidation.type == ValidationResultEvent.INVALID)
                    Alert.show("Invalid E-mail");
                else
                    var bitmapData:BitmapData = new BitmapData(comp.width, comp.height);
                    bitmapData.draw(comp);
                    var png:PNGEncoder = new PNGEncoder();
                    byteArray = png.encode(bitmapData);
                    httpMail.send();
            private function phpResult(evt:ResultEvent):void
                Alert.show("You've got mail.");
            private function phpFault(evt:FaultEvent):void
                Alert.show("Something went wrong. /n" + evt.message.toString());
        ]]>
    </mx:Script>
    <mx:EmailValidator id="validEmail" source="{ipEmail}" property="text"/>
    <mx:HTTPService id="httpMail" url="php/byte-receiver.php" method="POST" result="phpResult(event)" fault="phpFault(event)">
        <mx:request>
            <img>{byteArray}</img>
            <mail>{ipEmail.text}</mail>
        </mx:request>
    </mx:HTTPService>
    <mx:Label text="draw your own image" styleName="h1" x="10" y="0" width="493" height="60"/>
    <mx:Canvas
        id="drawCanvas"
        x="10" y="77"
        width="561" height="245"
        borderStyle="solid" borderColor="#A6A6A6">
    </mx:Canvas>
    <mx:Label x="10" y="329" text="Your e-mail:" styleName="text"/>
    <mx:TextInput
        id="ipEmail"
        x="86" y="324" width="417"/>   
    <mx:Label
        id="lblMailImage"
        x="10" y="383"
        text="Mail my image"
        click="mailImage(drawCanvas)"
        mouseOver="lblMailImage.setStyle('color',  '#00067b')"
        mouseOut="lblMailImage.setStyle('color',  '#717171')"
        styleName="button"/>
    </mx:Canvas>
    This is my PHP code
    <?php                 
    $fileatt_type = "application/octet-stream"; // File Type
    $fileatt_name = "ImgContact.png"; // Filename that will be used for the file as the attachment
    $email_from = "[email protected]"; //Who the email is from
    $email_subject = "Contact Winckelmans.net"; // The Subject of the email
    $email_message = "Mail send by winckelmans.net. Your drawing is in the attachment"; // Message that the email has in it
    $email_to = $_POST['mail']; // Who the email is too
    $headers = "From: $email_from";  
    $data= $_POST['img'];
    $semi_rand = md5(time());  
    $mime_boundary = "==Multipart_Boundary_x{$semi_rand}x";  
    $headers .= "\nMIME-Version: 1.0\n" .  
                "Content-Type: multipart/mixed;\n" .  
                " boundary=\"{$mime_boundary}\"";  
    $email_message = "This is a multi-part message in MIME format.\n\n" .  
                    "--{$mime_boundary}\n" .  
                    "Content-Type:text/html; charset=\"iso-8859-1\"\n" .  
                   "Content-Transfer-Encoding: 7bit\n\n" .  
    $email_message . "\n\n";  
    $email_message .= "--{$mime_boundary}\n" .  
                      "Content-Type: {$fileatt_type};\n" .  
                      " name=\"{$fileatt_name}\"\n" .  
                      //"Content-Disposition: attachment;\n" .
                      //" filename=\"{$fileatt_name}\"\n" .
                      "Content-Transfer-Encoding: base64\n\n" .  
                     $data . "\n\n" .  
                      "--{$mime_boundary}--\n";  
    $mailsend = mail($email_to, $email_subject, $email_message, $headers);  
    echo $mailsend;
    ?>
    This is the error I get in an Alert:
    (mx.messaging.messages::ErrorMessage)#0
      body = ""
      clientId = "DirectHTTPChannel0"
      correlationId = "F3C16CE1-65CF-E690-1907-D28293FD6BB9"
      destination = ""
      extendedData = (null)
      faultCode = "Server.Error.Request"
      faultDetail = "Error: [IOErrorEvent type="ioError" bubbles=false cancelable=false eventPhase=2 text="Error #2032: Stream Error. URL: php/byte-receiver.php"]. URL: php/byte-receiver.php"
      faultString = "HTTP request error"
      headers = (Object)#1
        DSStatusCode = 0
      messageId = "7A1DCDBE-0358-7E39-3AF8-D282945A7748"
      rootCause = (flash.events::IOErrorEvent)#2
        bubbles = false
        cancelable = false
        currentTarget = (flash.net::URLLoader)#3
          bytesLoaded = 0
          bytesTotal = 0
          data = ""
          dataFormat = "text"
        eventPhase = 2
        target = (flash.net::URLLoader)#3
        text = "Error #2032: Stream Error. URL: php/byte-receiver.php"
        type = "ioError"
      timestamp = 0
      timeToLive = 0
    Thanks in advance
    Vincent

    Hi
    I'm having the same issue, except my application actually sends the email but the attachment is 0 octet and it doesn't even give me an error... Any chance you found a solution for this and could share it ?
    Thanks

  • Alert with email

    Hi,
    when I want to send an alert with email, is it necessary to configure smtp-server in transaction "SCOT"?
    Which are the necessary steps for this?
    Thanks in advance.
    Regards
    Stefan

    Hi Stefan,
    If you have already configured the alert rules then you just need to configure SAP connect and maintain the e-mail address for all the users attached to your alert category. You can go to transaction SU01 and maintain e-mail address for the each user attached to the alert category and the e-mails will automatically be sent if SAP connect is configured.
    Refere the link below for SAP connect configuration.
    http://help.sap.com/saphelp_nw04/helpdata/en/2b/d925bf4b8a11d1894c0000e8323c4f/frameset.htm
    You will need to set the flag under the RWB for e-mail as well.  You will need to login the RWB for each user and go to Alert Inbox - Personalization. Under the Time-Independent Delivery you will to check the box "Mail" as well.
    Also check Michal's blog on Alert Config:-
    /people/michal.krawczyk2/blog/2005/03/13/alerts-with-variables-from-the-messages-payload-xi--updated
    Hope this provides you a solution.
    Regards.
    Praveen

  • HOW TO SEND A HEBREW EMAIL WITH ATTACHMENT USING DEMO_MAIL

    Hello All,
    This is Not a question , just attaching something I've implemented and might be interesting for few of us,
    This package I'm attaching allows to send Hebrew Language email + attaching files to it.
    This package is based on demo_mail package (combined here but you can search at google for more example information if needed).
    My Package is supplied as is , for any specific information regarding it , please contact me directly at : [email protected] or POST here.
    * Please also note , that this package allow file to be attach via URL (meaning you will have to define a link to this file, if you would like to implement a link to a local file , e.g : c:\temp\myfile , you will have to customize the package your self with database directories option etc ...)
    First I will attach an example of how to use it :
    ==================================
    begin
    demo_mail_heb.send_html_mail_attach(p_sender => '[email protected]',
    p_recipients => '[email protected]',
    p_subject => 'שלום וברכה עולם',
    p_data => '<hr><b>בוקר טוב</b><hr>',
    p_file_name => 'but_choose_file.gif',
    p_file_mime_type => 'application/pdf',
    p_file_URL => 'http://10.172.246.160:7777/i/but_choose_file.gif');
    end;
    Second Here is the Package (please note you will have to modify few settings in order to enable it , such as mail server address ..etc)
    ======================================================================================
    CREATE OR REPLACE PACKAGE demo_mail_heb IS
    ----------------------- Customizable Section -----------------------
    -- Customize the SMTP host, port and your domain name below.
    smtp_host VARCHAR2(256) := 'mail.oracle.com';
    smtp_port PLS_INTEGER := 25;
    smtp_domain VARCHAR2(256) := 'oracle.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;
    -- Sent clear Html Email
    procedure send_html_mail (p_sender in varchar2 default null,
    p_recipients in varchar2 default null,
    p_subject in varchar2 default null,
    p_data in varchar2 default null,
    p_mime_type in varchar2 default 'text/html; charset=windows-1255');
    -- Sent Html Email with Attachment
    procedure send_html_mail_attach (p_sender in varchar2 default null,
    p_recipients in varchar2 default null,
    p_subject in varchar2 default null,
    p_data in varchar2 default '<b>áå÷ø èåá òåìí - áãé÷ä</b',
    p_mime_type in varchar2 default demo_mail_heb.MULTIPART_MIME_TYPE,
    p_file_name in varchar2 default 'but_choose_file.gif',
    p_file_mime_type in varchar2 default 'application/pdf',
    p_file_URL in varchar2 default 'http://10.172.246.160:7777/i/but_choose_file.gif');
    -- 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; charset=windows-1255',
              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_heb IS
    -- Sent clear Html Email
    procedure send_html_mail (p_sender in varchar2 default null,
    p_recipients in varchar2 default null,
    p_subject in varchar2 default null,
    p_data in varchar2 default null,
    p_mime_type in varchar2 default 'text/html; charset=windows-1255')
    Is
    conn utl_smtp.connection;
    BEGIN
    conn := demo_mail_heb.begin_mail(
    sender => p_sender,
    recipients => p_recipients,
    subject => p_subject,
    mime_type => p_mime_type);
    demo_mail_heb.write_text(
    conn => conn,
    message => p_data);
    demo_mail_heb.end_mail( conn => conn );
    END;
    -- Sent Html Email with Attachment
    procedure send_html_mail_attach (p_sender in varchar2 default null,
    p_recipients in varchar2 default null,
    p_subject in varchar2 default null,
    p_data in varchar2 default '<b>áå÷ø èåá òåìí - áãé÷ä</b',
    p_mime_type in varchar2 default demo_mail_heb.MULTIPART_MIME_TYPE,
    p_file_name in varchar2 default 'but_choose_file.gif',
    p_file_mime_type in varchar2 default 'application/pdf',
    p_file_URL in varchar2 default 'http://10.172.246.160:7777/i/but_choose_file.gif')
    is
    conn utl_smtp.connection;
    req utl_http.req;
    resp utl_http.resp;
    data RAW(200);
    begin
    conn := demo_mail_heb.begin_mail(
    sender => p_sender,
    recipients => p_recipients,
    subject => p_subject,
    mime_type => p_mime_type);
    demo_mail_heb.attach_text(
    conn => conn,
    data => p_data,
    mime_type => 'text/html');
    demo_mail_heb.begin_attachment(
    conn => conn,
    mime_type => p_file_mime_type,
    inline => TRUE,
    filename => p_file_name,
    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_heb.MAX_BASE64_LINE_WIDTH
    -- (76 / 4 * 3 = 57) is the maximum length (in bytes) of each chunk
    -- of data before encoding.
    Utl_Http.set_proxy('www-proxy.us.oracle.com', 'oracle.com');
    req := utl_http.begin_request(p_file_URL);
    resp := utl_http.get_response(req);
    BEGIN
    LOOP
    utl_http.read_raw(resp, data, demo_mail_heb.MAX_BASE64_LINE_WIDTH);
    demo_mail_heb.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_heb.end_attachment( conn => conn );
    demo_mail_heb.end_mail( conn => conn );
    end;
    -- 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);
    utl_smtp.write_raw_data(conn, UTL_RAW.CAST_TO_RAW(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_raw_data(conn, utl_raw.cast_to_raw(CONVERT(message,'IW8ISO8859P8')));
    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',
                   --     mime_type IN VARCHAR2 DEFAULT 'text/plain; charset=windows-1255',
                        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;

    Hello All,
    Small modification - use this package and not the above
    HERE IS A WORKING CODE FOR SENDING HEBREW MESSAGES (INCLUDING SUBJECT IN UTF-8 APPEAR IN ALL EMAIL CLIENTS I HAVE CHECKED) + ATTACHMENTS
    Code attached below is supplied as is with no support. anyhow if help is needed , please contact me via [email protected]
    ============================================================================
    CREATE OR REPLACE PACKAGE demo_mail_heb IS
    ----------------------- Customizable Section -----------------------
    -- Customize the SMTP host, port and your domain name below.
    smtp_host VARCHAR2(256) := pst_ajax.getParameter('EMAIL_SMTP_HOST');
    smtp_port PLS_INTEGER := pst_ajax.getParameter('EMAIL_SMTP_PORT');
    smtp_domain VARCHAR2(256) := pst_ajax.getParameter('EMAIL_SMTP_DOMAIN');
    -- 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;
    -- Sent clear Html Email
    procedure send_html_mail (p_sender in varchar2 default null,
    p_recipients in varchar2 default null,
    p_subject in varchar2 default null,
    p_data in varchar2 default null,
    p_mime_type in varchar2 default 'text/html; charset=windows-1255');
    -- Sent Html Email with Attachment
    procedure send_html_mail_attach (p_sender in varchar2 default null,
    p_recipients in varchar2 default null,
    p_subject in varchar2 default null,
    p_data in varchar2 default '<b>áå÷ø èåá òåìí - áãé÷ä</b',
    p_mime_type in varchar2 default 'text/html; charset=windows-1255',
    p_file_name in varchar2 default 'but_choose_file.gif',
    p_file_mime_type in varchar2 default 'application/pdf',
    p_file_URL in varchar2 default 'http://10.172.246.160:7777/i/but_choose_file.gif');
    -- 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;
    -- Handling the Email Subject Line
    function mimeheader_encode(
    p_str varchar2
    , p_charset varchar2 := 'UTF-8') return varchar2;
    -- 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; charset=windows-1255',
              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_heb IS
    -- Sent clear Html Email
    procedure send_html_mail (p_sender in varchar2 default null,
    p_recipients in varchar2 default null,
    p_subject in varchar2 default null,
    p_data in varchar2 default null,
    p_mime_type in varchar2 default 'text/html; charset=windows-1255')
    Is
    conn utl_smtp.connection;
    BEGIN
    conn := demo_mail_heb.begin_mail(
    sender => p_sender,
    recipients => p_recipients,
    subject => p_subject,
    mime_type => 'text/html; charset=UTF-8');--p_mime_type);
    demo_mail_heb.write_text(
    conn => conn,
    message => p_data);
    demo_mail_heb.end_mail( conn => conn );
    END;
    -- Sent Html Email with Attachment
    procedure send_html_mail_attach (p_sender in varchar2 default null,
    p_recipients in varchar2 default null,
    p_subject in varchar2 default null,
    p_data in varchar2 default '<b>áå÷ø èåá òåìí - áãé÷ä</b',
    p_mime_type in varchar2 default 'text/html; charset=windows-1255',
    p_file_name in varchar2 default 'but_choose_file.gif',
    p_file_mime_type in varchar2 default 'application/pdf',
    p_file_URL in varchar2 default 'http://10.172.246.160:7777/i/but_choose_file.gif')
    is
    conn utl_smtp.connection;
    req utl_http.req;
    resp utl_http.resp;
    data RAW(200);
    v_mime_type varchar2(32767):=demo_mail.MULTIPART_MIME_TYPE;
    begin
    conn := demo_mail_heb.begin_mail(
    sender => p_sender,
    recipients => p_recipients,
    subject => p_subject,
    mime_type => v_mime_type);
    demo_mail_heb.attach_text(
    conn => conn,
    data => p_data,
    mime_type => 'text/html');
    demo_mail_heb.begin_attachment(
    conn => conn,
    mime_type => p_file_mime_type,
    inline => TRUE,
    filename => p_file_name,
    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_heb.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(p_file_URL);
    resp := utl_http.get_response(req);
    BEGIN
    LOOP
    utl_http.read_raw(resp, data, demo_mail_heb.MAX_BASE64_LINE_WIDTH);
    demo_mail_heb.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_heb.end_attachment( conn => conn );
    demo_mail_heb.end_mail( conn => conn );
    end;
    -- 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);
    utl_smtp.write_raw_data(conn, UTL_RAW.CAST_TO_RAW(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_raw_data(conn, utl_raw.cast_to_raw(CONVERT(message,'IW8ISO8859P8')));
    -- utl_smtp.write_raw_data(conn, utl_raw.cast_to_raw(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;
    -- Handling the Email Subject Line
    function mimeheader_encode(
    p_str varchar2
    , p_charset varchar2 := 'UTF-8') return varchar2 is
    l_str varchar2(2000);
    begin
    l_str:=utl_raw.cast_to_varchar2(utl_encode.quoted_printable_encode(utl_raw.cast_to_raw(p_str)));
    l_str:=replace(l_str,'='||chr(13)||chr(10),''); --unfold the data
    l_str:=replace(l_str,'?','=3f'); --quote question marks
    l_str:=replace(l_str,' ','=20'); --quote spaces
    l_str:='=?'||p_charset||'?Q?'||l_str||'?='; -- add prefix and suffix
    return l_str;
    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',
    -- mime_type IN VARCHAR2 DEFAULT 'text/plain; charset=windows-1255',
    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 "Content-Type" MIME header
    write_mime_header(conn, 'Content-Type', mime_type);
    -- write_mime_header(conn, 'Content-Type', 'text/html; charset=UTF-8');
    -- Set "Subject" MIME header
    -- write_mime_header(conn, 'Subject', subject);
    -- write_mime_header(conn, 'Subject', CONVERT(subject,'IW8ISO8859P8'));
    write_mime_header(conn, 'Subject',mimeheader_encode(p_str => subject,p_charset => 'UTF-8'));
    -- write_mime_header(conn, 'Subject',CONVERT(subject,'IW8MSWIN1255'));
    -- 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;

Maybe you are looking for

  • Message: When opening itunes it says Multiple users on computer log out

    I recently bought an ipod and while transferring my cd's I noticed the tab that usually says my ipod has disappeared.I'm getting an error message that's telling me to log out since there are multiple users on the computer. I only have one account and

  • Checks in Case statement

    Need help in checking one status among all other columns Emp BonusStatus A Remove A Accepted Select  Emp, Case when BonusStatus is 'Accepted'  then ' issue bonus' ELSE ' No bonus' End as bonus_res From #temp  o/p : EMp    Bonus_Res A No bonus A Issue

  • Mattes For Final Cut Pro

    Hey I would like to know if there are some sort of motion mattes that I could have at a low opacity on during the video. Such things as leaves and vines. Anything like that. And it would be moving around on the sides of the video. Id like to know if

  • What is multi threading?

    Hi all, What is multi threading? How to implement multi threading in ABAP? Regards, Bryan

  • Journaled encrypteded partition on Windows

    Hi, Is it possible to mount and read and write data to journaled encrypted partition under Windows?