使用RPG IV在IBM i上发送电子邮件

本示例展示了如何使用RPG IV在IBM i (OS/400)上发送电子邮件。这可以在需要自动发送电子邮件的业务应用程序中使用。

H dftactgrp(*no) actgrp('EMAIL')        
       D Email           pr                  extpgm('SNDDST')                 
       D  MlToAddr                      256a   const   options(*varsize)        
       D  MlCcAddr                      256a   const   options(*varsize)        
       D  MlBccAddr                     256a   const   options(*varsize)        
       D  MlSubject                     128a   const   options(*varsize)        
       D  Cc                             20a   const   options(*varsize)        
       D  Bcc                            20a   const   options(*varsize)        
       D  MsgType                         1a   const                                
       D  MsgData                       6600a   const   options(*varsize)         

       D MsgBody         S           6600a                                        
       D ToAddr          S           256a   initialized                              
       D CcAddr          S           256a   initialized                              
       D BccAddr         S           256a   initialized                              
       D Subject         S           128a   initialized  

       /free                                                                          
          //设置收件人和抄送者地址                                                    
          ToAddr = 'recipient@domain.com';                                              
          CcAddr = 'ccrecipient1@domain.com,ccrecipient2@domain.com';                                        
          //设置密送地址                                                            
          BccAddr = '';
          //设置邮件主题                                                            
          Subject = 'Test Email';
          //设置邮件内容
          MsgBody = 'This is a test email from IBM i.' + %char(13) + %char(10) +
                    'Please let me know if you received it.' + %char(13) + %char(10) +
                    %char(13) + %char(10) +
                    'Best Regards,' + %char(13) + %char(10) +
                    'Your Name';
          //发送电子邮件
          Email(ToAddr:CcAddr:BccAddr:Subject:'''''''''''':MsgBody);                        
          *inlr = *on;                                                                
       /end-free

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