TIPTOP JavaMail邮件通知功能
来源:互联网 发布:163邮箱域名是什么 编辑:程序博客网 时间:2024/05/22 13:10
系统 TIPTOP GP 3.0
对于一些需要审核的单据,可以采用【邮件通知】的功能,知会审核人,详细介绍如下:
将发送邮件的处理写成一个共享函数,以便调用
***************************************************************************************************
目录:/u1/topprod/topcust/clib/4gl/ cl_javamail_notice.4gl
共享函数名称:cl_javamail_notice
Descriptions...: JavaMail 通知简讯
Input parameter: cl_javamail_notice(p_str1,p_str2,p_str3)
p_str1,p_str2,p_str3 暂时写三个参数,第一个单号,后两个可以为空
***************************************************************************************************
<1>在要使用的程序中修改4gl文件,_menu()与_pb()函数中加入按钮信息,
并且在p_link中将此共享函数引用进去
EX: aqct4100程序中#menu()函数********** WHEN 'l_javamail' IF cl_chk_act_auth() AND l_ac != 0 THEN IF NOT cl_null(g_qci.qci01) AND NOT cl_null(g_qci.qci02) AND NOT cl_null(g_qci.qci03) THEN CALL cl_javamail_notice(g_qci.qci01,g_qci.qci02,g_qci.qci03) END IF END IF#END#BP()函数********** ON ACTION l_javamail LET g_action_choice="l_javamail" EXIT DISPLAY#END
<2>在aooi998中设置需要使用邮件通知的程序,如图
<3>对于发件人,需要维护p_zx里面的邮件地址(zx09字段)或者是基础资料aooi040中的(gen06字段)
<4>点【邮件通知】按钮,在outLook中可以查看收到的邮件:如下图(附件的内容是txt文件)
收到邮件如下图所示:
附件task.txt 内容:
******************************************************************************************************************************************
==== Till good is better, but better best
====“我的努力不会停止,敬请期待吧!”My trying hard will go on!Please wait and see!
******************************************************************************************************************************************
- TIPTOP JavaMail邮件通知功能
- 邮件功能开发--JavaMail
- JavaMail发送邮件功能
- JavaMail邮件发送功能
- 邮件功能开发--JavaMail
- SVN邮件通知功能
- JavaMail发送邮件功能实现
- javaMail实现发邮件功能
- javamail邮件提醒通知的实现
- javamail发送邮件、下载邮件核心功能
- discuz增加邮件通知功能
- 用webservice和javamail实现邮件功能
- java利用JavaMail实现邮件功能
- Spring实现JavaMail邮件发送功能
- 使用javamail 开发邮件发送功能
- javaMail实现邮件发送,群发功能
- Spring实现JavaMail邮件发送功能
- JavaMail发送邮件找回密码的功能
- java访问XML文件:
- assert()函数用法总结
- μC/OS-II
- 五大Android布局方式浅析
- 8051接口定义
- TIPTOP JavaMail邮件通知功能
- 数据库方言
- 生命是如此的多彩
- java web 项目中通过session 统计在线访问人数
- delphi中遍历枚举类型的方法
- Runtime.exec()执行linux shell
- 那时,我们正年轻
- C51中断
- TCP 和 UDP 协议发送数据包的大小