在ibm i (os/400)中发送邮件的示例代码

本示例代码演示了如何使用email_toolbox习惯的方式向IBM i (OS/400)发送电子邮件。

       /free

       // 电子邮件的配置信息
       dcl-ds email_configs;
         smtp_server varchar(30);
         email_from varchar(75);
         email_to varchar(75) dim(10);
         email_cc varchar(75) dim(10);
         email_subject varchar(120);
       end-ds;

       // 电子邮件正文和附件
       dcl-ds email_message;
         email_body varchar(4000);
         email_attachment varchar(80) dim(10);
       end-ds;

       // 邮件发送结果
       dcl-ds email_result;
         success ind;
         message varchar(500);
       end-ds;

       executercl('CALL QZO_SEND_EMAIL', email_configs, email_message, email_result);

       // 说明：   executercl是一个公共函数，用于通过exec sql调用CL命令。
       //       QZO_SEND_EMAIL 是IBM提供的发送电子邮件的CL程序。

       *inlr = *on;
       /end-free

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com