Question

在Oracle Forms 11g上，我调用了一个过程，该过程通过电子邮件发送表单中显示的数据。它复制电子邮件中的文本，以及创建相同数据的.TXT附件。电子邮件工作正常。但现在我希望将相同的数据作为PDF文件而不是.TXT文件附加。

以下是我调用的程序代码。

create or replace procedure send4 (p_sender IN VARCHAR2, p_recipient IN VARCHAR2, p_subject IN VARCHAR2, p_message IN VARCHAR2)
IS
crlf         VARCHAR2(2)  := chr(13)||chr(10);
l_mailhost VARCHAR2(255) := <IP ADDRESS>;
v_connection             UTL_SMTP.connection;

BEGIN
V_CONNECTION := utl_smtp.open_connection(l_mailhost, 25);
utl_smtp.Helo(V_CONNECTION, l_mailhost);
utl_smtp.Mail(V_CONNECTION, p_sender);
utl_smtp.Rcpt(V_CONNECTION, p_recipient);
utl_smtp.Data(V_CONNECTION,
'Date: '   || to_char(sysdate, 'Dy, DD Mon YYYY hh24:mi:ss') || crlf ||
'From: '   || p_sender || crlf ||
'Subject: '|| p_subject || crlf ||
'To: '     || p_recipient || crlf ||
'MIME-Version: 1.0'|| crlf ||   -- Use MIME mail standard
'Content-Type: multipart/mixed;'|| crlf ||
' boundary="-----SECBOUND"'|| crlf ||
crlf ||
'-------SECBOUND'|| crlf ||
'Content-Type: text/plain;'|| crlf ||
'Content-Transfer_Encoding: 7bit'|| crlf ||
crlf ||
p_message|| crlf ||
crlf ||
'-------SECBOUND'|| crlf ||
'Content-Type: text/plain;'|| crlf ||
' name="file.txt"'|| crlf ||
'Content-Transfer_Encoding: 8bit'|| crlf ||
'Content-Disposition: attachment;'|| crlf ||
' filename="attachment.txt"'|| crlf ||
crlf ||
p_message|| crlf || -- Content of attachment
crlf ||
'-------SECBOUND--'         -- End MIME mail
);
UTL_SMTP.quit(v_connection);
EXCEPTION
WHEN utl_smtp.Transient_Error OR utl_smtp.Permanent_Error then
raise_application_error(-20000, 'Unable to send mail', TRUE);
END;

有人可以告诉我在哪里进行更改，以便创建PDF文件而不是TXT。我尝试调整代码，但每当我尝试打开PDF文件时都会收到错误。

Answer 1

创建Oracle报告
将报告作业提交到报告引擎
返回报告对象并将其附加到电子邮件

创建报告允许您通过将block where子句传递给报告来设置布局并使用屏幕上的相同数据填充它。报告引擎将返回报告的jobid，然后您可以通过使用表单级别计时器触发器进行轮询来检查完成情况。报告完成后，将其添加为电子邮件的附件。

Oracle Forms 11g - 将文件电子邮件发送为PDF而不是TXT

1 个答案: