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

核心提示： begin EmailUtils.SetSender('WayneZ@MyCompany.com'); EmailUtils.SetRecipient('waynezheng@vip.sina.com'); EmailUtils.SetCcRecipient

　　begin
　　EmailUtils.SetSender('WayneZ@MyCompany.com');
　　EmailUtils.SetRecipient('waynezheng@vip.sina.com');
　　EmailUtils.SetCcRecipient('WayneZ@MyCompany.com');
　　EmailUtils.SetMailHost('MyServer.MyCompany.com');
　　EmailUtils.SetSubject('DeleteClassifications　procedure:　Run　1');
　　end;
　　/

一个实际的电子邮件消息将在每个Send过程调用中被指定。 我们可以把所用的EmailUtils.Send()调用插入到我们调试的代码中，我们以前为了得到同样的调试结果使用的是DBMS_OUTPUT.PUT_LINE()调用。:

　　vMessage　:=　'Point　1.'　||　utl_tcp.crlf　||
　　'Rows　processed:　'　||　to_char(vRows)　||　utl_tcp.crlf　||
　　'Elapsed　time:　'　||　vTime;
　　EmailUtils.Send(vMessage);
　　vMessage　:=　'Point　3.'　||　utl_tcp.crlf　||
　　'Rows　processed:　'　||　to_char(vRows)　||　utl_tcp.crlf　||
　　'Elapsed　time:　'　||　vTime;
　　EmailUtils.Send(vMessage);

代码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;