oracle存储过程迁移，发送邮件

  PROCEDURE write_data(p_conn   IN OUT NOCOPY utl_smtp.connection,
                       p_name   IN VARCHAR2,
                       p_value  IN VARCHAR2,
                       p_splite VARCHAR2 DEFAULT ':',
                       p_crlf   VARCHAR2 DEFAULT l_crlf) IS
  BEGIN
    /* utl_raw.cast_to_raw 对解决中文乱码问题很重要*/
    utl_smtp.write_raw_data(p_conn,
                            utl_raw.cast_to_raw(convert(p_name || p_splite || p_value || p_crlf,
                                                        'ZHS16GBK')));
  END;

以发送邮件为例，可能需要等价改写，下面是一个在DM中，用plsql发送邮件的例子：

                <<retry>>
                begin 
                        UTL_MAIL.INIT( 'SMTP.163.COM', 25, //端口
                        'xxxx@163.com', 'xxxxPasswordxxx' ); 
                        /*发送不带附件的邮件*/
                        UTL_MAIL.SEND( 'xxxx@163.COM', 'xxxx@xxxx.com', '', '', '@##stock--', a,
                        --'TEXT/PLAIN; CHARSET=US-ASCII',
                        'TEXT/PLAIN; CHARSET=GBK', 3 );
                exception
                when others then
                        sleep(5);
                        print('sleep 5: '||sqlcode||' '||sqlerrm);
                        if email_times>0 then
                        	email_times:=email_times-1;
                			goto retry;
                		end if;
                end;

关于，UTL_MAIL.SEND，等方法用法，请参考：
UTL_MAIL 包 | 达梦技术文档 https://eco.dameng.com/document/dm/zh-cn/pm/utl_mail-package.html