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

核心提示： 代码2显示带有重载Send过程的EmailUtils规格， 我们可以看到，使用Oracle来实现实时通信的过程(4)，Send过程的代码相当简单， UTL_SMTP包不提供用于格式化消息内容的应用编程接口， 一旦你试用这个简单的操作，我相信你会发现它很有用， 而是由用户负责格式化消息， 这

代码2显示带有重载Send过程的EmailUtils规格。 我们可以看到，Send过程的代码相当简单。 UTL_SMTP包不提供用于格式化消息内容的应用编程接口。 而是由用户负责格式化消息。 这就是为什么下列程序块要被包含到每个Send过程中以便格式化电子邮件的头部。

　　vMessage　:=　'Date:　'　||
　　to_char(sysdate,　'fmDy,　DD　Mon　YYYY　fxHH24:MI:SS')　||
　　utl_tcp.crlf　||
　　'From:　'　||　pSender　||　utl_tcp.crlf　||
　　'Subject:　'　||　pSubject　||　utl_tcp.crlf　||
　　'To:　'　||　pRecipient　||　utl_tcp.crlf;

同时,如果消息长度超过2000字符的话，你可能得到一个错误( ORA - 06502 : PL/SQL : numeric or value error)。 所以为了避免出现这个错误，我们使用下面的程序块,不允许消息超过2000个字符：

　　if　length(vMessage)　>　2000
　　then
　　vMessage　:=　substr(vMessage,　1,　2000);
　　end　if;

如果需要发送带有超过2000字的电子邮件，那么可以使用另三个UTL_SMTP应用程序编程接口，提供比DATA()过程更加精细的控制。 首先, OPEN_DATA()发送数据命令。 然后WRITE_DATA()添加数据到你要发送的字符串中。 你可以调用WRITE_DATA()任意多次，这样你就可以一次写2000个字符以克服字数的限制。 最后, CLOSE_DATA()通过发送一个封装在CRLF中的终止周期结束电子邮件消息。

实时消息使你的生活更加舒适

从数据库发送电子邮件就是那么容易。 一旦你试用这个简单的操作，我相信你会发现它很有用，便于你的数据库操作,例如调试、远程的数据库监控和输出数据库数据。