怎样从Oracle 8i中直接发送电子邮件

核心提示： loadjava -user sys/password@database -resolve plsql/jlib/plsql.jarUTL_SMTP API:本文的代码中使用了下列UTL_SMTP包中的API：OPEN_CONNECTION()：打开到简单邮件传送协议服务器的连接，HELO

loadjava -user sys/password@database -resolve plsql/jlib/plsql.jar
UTL_SMTP API:

本文的代码中使用了下列UTL_SMTP包中的API：

OPEN_CONNECTION()：打开到简单邮件传送协议服务器的连接。

HELO()：执行连接之后建立与简单邮件传送协议服务器初始的收发关系功能，它能识别发送到服务器的“信使”。

MAIL()：初始化与服务器的邮件交换，但是事实上不发送消息。

RCPT()：识别消息的接受者。为了把一条消息发送到多个接受者，你必须多次调用这个过程。

DATA()：指定电子邮件的内容。

QUIT()：终止一个SMTP会话并且断开与服务器的连接。

为了利用应用程序编程接口，把下面的调用按照给定的顺序放入程序中：

调用 OPEN_CONNECTION；

调用 HELO；

调用 MAIL；

调用 RCPT for each recipient；

格式化电子邮件的内容然后调用MAIL；

调用 QUIT。

EmailUtils包规范

EmailUtils包包括下列API：

SetSender/GetSender-设置/取得发送者；

SetRecipient/GetRecipient -设置/取得接受者；

SetCcrecipient/GetCcrecipient -设置/取得抄件接受者；

SetMailHost/GetMailHost -设置/取得邮件主机；

SetSubject/GetSubject -设置/取得主题；

Send-发送邮件。

代码1说明了EmailUtils包的规范：

create or replace package EmailUtils as
procedure SetSender(pSender in varchar2);
function GetSender
return varchar2;
procedure SetRecipient(pRecipient in varchar2);
function GetRecipient
return varchar2;
procedure SetCcRecipient(pCcRecipient in varchar2);
function GetCcRecipient
return varchar2;
procedure SetMailHost(pMailHost in varchar2);
function GetMailHost
return varchar2;
procedure SetSubject(pSubject in varchar2);
function GetSubject
return varchar2;
procedure Send(pMessage in varchar2);
procedure Send(pSender in varchar2,
pRecipient in varchar2,
pMailHost in varchar2,
pCcRecipient in varchar2 := null,
pSubject in varchar2 := null,
pMessage in varchar2 := null);
end EmailUtils;
/