oracle ·¢Óʼþ´íÎó

ÏÂÃæ´æ´¢¹ý³ÌÖ´ÐкóÓдíÎó£¬
create or replace procedure test_mail(msg_subject in varchar2,
                            mes_context in varchar2,to_user in varchar2)
                       
is

        Mail_Conn Utl_Smtp.Connection;
        Msg      Varchar2(4000);
        Msg_Raw  Raw(32767);
     
        v_User Varchar2(20) :='user';
        v_Pass Varchar2(20) :='pass';
       
        v_Mailhost Varchar2(50) := 'stmp.126.com';
        v_Mailport Integer := 25;

     
        --Óʼþ·¢ËͲÎÊý
     
      v_Senduser Varchar2(50) := 'fff_911@126.com';
Begin

        Msg := 'Date:' || To_Char(Sysdate, 'dd mon yy hh24:mi:ss') || Utl_Tcp.Crlf;
        Msg := Msg || 'from: ' || v_Senduser || ' <' || v_Senduser || '>' || Utl_Tcp.Crlf;
        Msg := Msg || 'To: ' || to_user ||