TIPTOP JavaMail邮件通知功能

系统  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!

******************************************************************************************************************************************