• 博客园logo
  • 会员
  • 周边
  • 新闻
  • 博问
  • 闪存
  • 众包
  • 赞助商
  • Chat2DB
    • 搜索
      所有博客
    • 搜索
      当前博客
  • 写随笔 我的博客 短消息 简洁模式
    用户头像
    我的博客 我的园子 账号设置 会员中心 简洁模式 ... 退出登录
    注册 登录
whu9919202@hotmail.com
博客园    首页    新随笔    联系   管理    订阅  订阅

oracle 发邮件遇收信人不存在处理

loop
                OPEN get_mailid;
                    M_MAILID_W:=null;
                    LOOP
                    FETCH get_mailid INTO m_mail_id;
                       EXIT WHEN get_mailid%NOTFOUND;
                       if M_MAILID_W is null then
                          M_MAILID_W:=m_mail_id;
                       else
                           M_MAILID_W:=M_MAILID_W || ',' || m_mail_id;
                       end if;
                    END LOOP;   
                close get_mailid;
                begin
                    SM('TTMC_GRP@CPT',M_MAILID_W,M_Title,M_CONTENT);
                    exit;---when i>0;
                    exception
                  when others then
                    M_sqlcode:=sqlcode;
                    M_sqlerrm:=sqlerrm;
                    if M_sqlcode=-29279 then         ---No such user
                      M_MAILID_W:=substr(m_sqlerrm,instr(m_sqlerrm,'...',1)-8,8);
                      delete mes_mail where mail_Id=M_MAILID_W;
                      commit;
                    ELSE
                      EXIT;
                    end if;
                 end;
            end loop;
posted @ 2009-04-24 09:17  whu9919202@hotmail.com  阅读(264)  评论(1)    收藏  举报
刷新页面返回顶部
博客园  ©  2004-2026
浙公网安备 33010602011771号 浙ICP备2021040463号-3