在Apex Oracle Application Express中,你可以通过使用PL/SQL代码将电子邮件放入队列中,然后由后台进程发送它们。以下是一个包含代码示例的解决方法:
CREATE OR REPLACE PROCEDURE enqueue_email (
p_recipient IN VARCHAR2,
p_sender IN VARCHAR2,
p_subject IN VARCHAR2,
p_body IN VARCHAR2
) AS
BEGIN
-- 将邮件插入队列
DECLARE
l_job_id NUMBER;
BEGIN
l_job_id := sys.dbms_scheduler.create_job(
job_name => 'SEND_EMAIL',
job_type => 'PLSQL_BLOCK',
job_action => 'BEGIN send_email(:p_recipient, :p_sender, :p_subject, :p_body); END;',
start_date => SYSTIMESTAMP,
auto_drop => FALSE,
enabled => TRUE
);
-- 设置作业参数
sys.dbms_scheduler.set_job_argument_value(job_name => 'SEND_EMAIL', argument_position => 1, argument_value => p_recipient);
sys.dbms_scheduler.set_job_argument_value(job_name => 'SEND_EMAIL', argument_position => 2, argument_value => p_sender);
sys.dbms_scheduler.set_job_argument_value(job_name => 'SEND_EMAIL', argument_position => 3, argument_value => p_subject);
sys.dbms_scheduler.set_job_argument_value(job_name => 'SEND_EMAIL', argument_position => 4, argument_value => p_body);
-- 提交作业
sys.dbms_scheduler.run_job(job_name => 'SEND_EMAIL');
END;
END;
/
CREATE OR REPLACE PROCEDURE send_email (
p_recipient IN VARCHAR2,
p_sender IN VARCHAR2,
p_subject IN VARCHAR2,
p_body IN VARCHAR2
) AS
l_mail_conn UTL_SMTP.CONNECTION;
l_boundary VARCHAR2(50);
l_message VARCHAR2(32767);
BEGIN
-- 建立与SMTP服务器的连接
l_mail_conn := UTL_SMTP.OPEN_CONNECTION('your_smtp_server', 25);
-- 发送邮件头
UTL_SMTP.HELO(l_mail_conn, 'your_domain');
UTL_SMTP.MAIL(l_mail_conn, p_sender);
UTL_SMTP.RCPT(l_mail_conn, p_recipient);
-- 开始邮件内容
l_boundary := '----=Multipart_Boundary_' || TO_CHAR(SYSTIMESTAMP, 'YYYYMMDDHH24MISSFF6');
l_message := 'To: ' || p_recipient || UTL_TCP.CRLF;
l_message := l_message || 'From: ' || p_sender || UTL_TCP.CRLF;
l_message := l_message || 'Subject: ' || p_subject || UTL_TCP.CRLF;
l_message := l_message || 'MIME-Version: 1.0' || UTL_TCP.CRLF;
l_message := l_message || 'Content-Type: multipart/alternative; boundary="' || l_boundary || '"' || UTL_TCP.CRLF || UTL_TCP.CRLF;
l_message := l_message || '--' || l_boundary || UTL_TCP.CRLF;
l_message := l_message || 'Content-Type: text/plain; charset=us-ascii' || UTL_TCP.CRLF || UTL_TCP.CRLF;
l_message := l_message || p_body || UTL_TCP.CRLF || UTL_TCP.CRLF;
l_message := l_message || '--' || l_boundary || '--';
-- 发送邮件内容
UTL_SMTP.DATA(l_mail_conn, l_message);
-- 结束邮件发送
UTL_SMTP.QUIT(l_mail_conn);
END;
/
BEGIN
enqueue_email('recipient@example.com', 'sender@example.com', 'Test Email', 'This is a test email from Apex Oracle Application Express');
END;
/
通过以上步骤,你可以将电子邮件放入队列中,并由后台进程