使用Oracle来实现实时通信的过程

核心提示： 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;
　　/