如何在Oracle中发送Email
在Oracle中发送email,以下是Oracle提供的例子,供参考。 itpub link: http://www。itpub。net/showthread。php?threadid=2260861。 CREATE PACKAGECREATE OR REPLACE PACKAGE demo_mail IS----------------------- Customizable Section ------------------------- Customize the SMTP host, port and your domain name below。 smtp_h...全部
在Oracle中发送email,以下是Oracle提供的例子,供参考。 itpub link: http://www。itpub。net/showthread。php?threadid=2260861。
CREATE PACKAGECREATE OR REPLACE PACKAGE demo_mail IS----------------------- Customizable Section ------------------------- Customize the SMTP host, port and your domain name below。
smtp_host VARCHAR2(256) := 'smtp。eygle。com';smtp_port PLS_INTEGER := 25;smtp_domain VARCHAR2(256) := 'eygle。
com';-- Customize the signature that will appear in the email's MIME header。-- Useful for versioning。
MAILER_ID CONSTANT VARCHAR2(256) := 'Mailer by Eygle';--------------------- 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 at 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;
完成 丢弃。收起