-- encode to base64 mimeword

      FUNCTION MIMEHEADER_ENCODE(s#string VARCHAR2) RETURN VARCHAR2 IS

            BEGIN

               RETURN '=?UTF-8?B?' ||

                    UTL_RAW.CAST_TO_VARCHAR2(UTL_ENCODE.base64_encode(UTL_RAW.CAST_TO_RAW(s#string /* convert(s#string, 'CL8MSWIN1251') ? */ )))

                    ||'?=';

            END;



      -- encode subject, split to mimewords

      FUNCTION subject_encode(subj in varchar2) return varchar2 is

            enc_size  CONSTANT number(2) := 30;

            l_subject  varchar2(300) := subj;

            enc_subj   varchar2(400);

            begin

                 while length (l_subject) > 0 loop



                    if enc_subj is not null then  enc_subj := enc_subj || UTL_TCP.CRLF ||'    '; end if;

                    enc_subj := enc_subj || mimeheader_encode( substr (l_subject,1,enc_size) );



                    l_subject := substr (l_subject,enc_size+1);

                 end loop;

                 return enc_subj;

            end;