2. 程式人生 > >tiptop自定義傳送郵件及EXCEL附件

tiptop自定義傳送郵件及EXCEL附件

阿新 • • 發佈：2018-12-10

 很多公司都有這樣的需求，希望系統可以定時郵件傳送一些統計報表給到相關人員，以便做資料分析，或者是希望做單時，傳送單據內容給到相關人員提醒稽核和備案，下面分享一種十分簡單方便的實現方式，javamail+4gl+perl指令碼實現; 1:在aooi999配置好系統標準的javamail 功能，測試可以正常傳送報表郵件，配置方式可以百度 2:新增郵件傳送功能函式，可以參考cl_prt裡面的發郵件功能，我簡化了一些東西程式碼如下： FUNCTION p_sendmail1(l_xml) DEFINE p_chk    LIKE type_file.chr100 DEFINE l_cmd    STRING 

DEFINE l_top    STRING DEFINE l_tempdir    STRING DEFINE res      LIKE type_file.num5 DEFINE l_xml        RECORD   file         STRING,  #XML檔名(不含路徑,檔案放置在os.Path.join(FGL_GETENV("TEMPDIR")底下)   mailserver   STRING,  #MAIL SERVER IP   serverport   STRING,  #MAIL SERVER Port   user         STRING,  #MAIL SERVER User 
  passwd       STRING,  #MAIL SERVER User Password   checkauth    LIKE type_file.chr1,    #No.FUN-690005 VARCHAR(1), #CheckAuth   subject      STRING,  #信件主旨   body         STRING,  #信件本文內容檔路徑   attach       STRING,  #信件附件檔路徑   recipient    STRING,  #收件者   cc           STRING,  #副本   bcc          STRING,  #密件副本 
  sender       STRING   #寄件者 END RECORD DEFINE l_mlj        RECORD LIKE mlj_file.* DEFINE l_str        STRING DEFINE lc_channel    base.Channel DEFINE   ch                            base.Channel,   l_status                      SMALLINT,   l_index                       SMALLINT,   l_temp                        STRING,   l_text                        STRING LET res = 1 {INITIALIZE l_mlj.* TO NULL SELECT * INTO l_mlj.*  FROM mlj_file WHERE mlj01 = "DEFAULT" INITIALIZE l_xml.* TO NULL LET l_top = fgl_getenv("TOP") LET l_tempdir =fgl_getenv("TEMPDIR") #  生成XML檔案寫入系統 LET l_xml.file = p_chk CLIPPED,'.xml'  #按傳入的名稱 LET l_xml.mailserver = l_mlj.mlj03   #郵件主機 LET l_xml.serverport = l_mlj.mlj04   #郵件主機埠 LET l_xml.user = l_mlj.mlj05         #郵件主機使用者 LET l_xml.passwd = l_mlj.mlj06       #郵件主機密碼 LET l_xml.checkauth = l_mlj.mlj08    #認證 LET l_xml.sender = '[email protected]' #寄件人 LET l_xml.subject ='TEST'            #郵件主旨 LET l_xml.body = l_tempdir CLIPPED,'/',p_body CLIPPED          #文字內容 LET l_xml.attach = l_tempdir CLIPPED,'/',p_attach CLIPPED            #附件地址 LET l_xml.recipient = '[email protected]'  #收件人 #LET l_xml.cc = g_xml.cc #LET l_xml.bcc = g_xml.bcc} #########產生for javamail的xml檔############ LET l_tempdir =fgl_getenv("TEMPDIR") LET l_top = fgl_getenv("TOP")    LET lc_channel = base.Channel.create()    LET l_str = os.Path.join(l_tempdir CLIPPED,l_xml.file CLIPPED)    CALL lc_channel.openFile(l_str, "w")    CALL lc_channel.setDelimiter("")    CALL lc_channel.write("<?xml version=""1.0"" encoding=""UTF-8""?>") #No.FUN-740189    CALL lc_channel.write("<Mail>")    CALL lc_channel.write("<Protocol>smtp</Protocol>")    LET l_str = '<CheckAuth>',l_xml.checkauth CLIPPED,'</CheckAuth>'    CALL lc_channel.write(l_str CLIPPED)    LET l_str = '<MailServer>',l_xml.mailserver CLIPPED,'</MailServer>'    CALL lc_channel.write(l_str CLIPPED)    LET l_str = '<MailServerPort>',l_xml.serverport CLIPPED,'</MailServerPort>'    CALL lc_channel.write(l_str CLIPPED)    LET l_str = '<MailServerUser>',l_xml.user CLIPPED,'</MailServerUser>'    CALL lc_channel.write(l_str CLIPPED)    LET l_str = '<MailServerUserPassword>',l_xml.passwd CLIPPED,'</MailServerUserPassword>'    CALL lc_channel.write(l_str CLIPPED)    Let l_str = '<Subject>',l_xml.subject CLIPPED,'</Subject>'    CALL lc_channel.write(l_str CLIPPED)    IF NOT cl_null(l_xml.body) THEN       LET l_str = '<MessageBody>',l_xml.body CLIPPED,'</MessageBody>'       CALL lc_channel.write(l_str CLIPPED)    END IF    IF NOT cl_null(l_xml.attach) THEN       LET l_str = '<Attach>',l_xml.attach CLIPPED,'</Attach>'       CALL lc_channel.write(l_str CLIPPED)    END IF    LET l_str = '<Recipient>',l_xml.recipient CLIPPED,'</Recipient>'    CALL lc_channel.write(l_str CLIPPED)    IF NOT cl_null(l_xml.cc) THEN       LET l_str = '<CCRecipient>',l_xml.cc CLIPPED,'</CCRecipient>'       CALL lc_channel.write(l_str CLIPPED)    END IF    IF NOT cl_null(l_xml.bcc) THEN       LET l_str = '<BCCRecipient>',l_xml.bcc CLIPPED,'</BCCRecipient>'       CALL lc_channel.write(l_str CLIPPED)    END IF    LET l_str = '<From>',l_xml.sender CLIPPED,'</From>'    CALL lc_channel.write(l_str CLIPPED)    CALL lc_channel.write("</Mail>")    CALL lc_channel.close()    #將產生給javamail的xml檔轉成客戶端的編碼 #  生成XML檔案寫入系統 LET l_cmd="chmod 777 ",os.Path.join(l_tempdir CLIPPED,l_xml.file CLIPPED)," 2>/dev/null"     #FUN-8B0011 RUN l_cmd LET l_cmd="sh ",l_top CLIPPED,"/ds4gl2/bin/javamail/UnixMailSender.bat ",      os.Path.join(l_tempdir CLIPPED,l_xml.file CLIPPED)," >/u1/out/caozq.txt" #FUN-510006 FUN-8B0011 RUN l_cmd  IN FORM MODE RETURNING res  if res = 0 then  let l_str = "Send ok"  else  let l_str = "Send fail"  end if #讀取caozq.txt，判斷是否成功 SLEEP 1 LET ch = base.Channel.create() CALL ch.openFile('/u1/out/caozq.txt','r') LET l_status = ch.read(l_temp) WHILE l_status LET l_text = l_text.trim(),l_temp.trim() LET l_status = ch.read(l_temp) END WHILE LET l_index = 0 LET l_index = l_text.getIndexOf('successfully',1) IF l_index > 0 THEN  let l_str = "Send ok"  else  let l_str = "Send fail" END IF END FUNCTION 函式可做一個公用函式，供其他程式呼叫 3：如何生成附件excel檔可以參考另一個帖子 perl生成excel 的，沒寫太詳細，碼字太麻煩....

相關推薦

tiptop自定義傳送郵件及EXCEL附件

 很多公司都有這樣的需求，希望系統可以定時郵件傳送一些統計報表給到相關人員，以便做資料分析，或者是希望做單時，傳送單據內容給到相關人員提醒稽核和備案，下面分享一種十分簡單方便的實現方式，javamail+4gl+perl指令碼實現; 1:在aooi999配置好系統標準的jav

nginx自定義站點目錄及簡單編寫開發網頁內容講解

linux[[email protected]/* */ conf]# egrep -v "^$|#" nginx.conf.default >nginx.conf[[email protected]/* */ conf]# pwd/application/nginx/conf[

JavaScript中自定義函數以及文本框、radio、下拉框的值的獲取，結合淘寶競拍案例來理解。。。

支付寶 價格 select back html alt 文本框 lec 獲取 淘寶競拍案例： HTML部分代碼： <form action="#" method="post"> <h2>歡迎進入淘寶競拍</h2> &l

Django——模板層(template)（模板語法、自定義模板過濾器及標簽、模板繼承）

num 序列 document 希望 可讀性 數量 AC 自然 同學 前言:當我們想在頁面上給客戶端返回一個當前時間，一些初學者可能會很自然的想到用占位符，字符串拼接來達到我們想要的效果，但是這樣做會有一個問題，HTML被直接硬編碼在 Python代碼之中。

php自定義函數及內部函數

定義函數 turn mon 數組 函數 變量的作用域 訪問 記錄 只有一個 1、變量的作用域 變量的作用域也稱為變量的範圍，變量的範圍即它定義的上下文背景（也是它的生效範圍）。大部分php變量只有一個單獨的範圍。這個單獨的範圍跨度同樣包含了include和require引入

自定義JSR validation及Swagger的一些坑

地址：https://blog.csdn.net/z28126308/article/details/77748798 http://sishuok.com/forum/blogPost/list/7798.html   JSR-Java Specification Reque

自定義結構體及初始化

自定義結構體及初始化，以及標頭檔案先宣告巨集，然後宣告結構體 <pre name="code" class="cpp">/********************** macro definition **********************/ #ifndef CVALGO_

WPF筆記:WPF自定義treeview樣式及資料繫結

定義treeview 展開按鈕(togglebutton)樣式，建立資源: <Style x:Key="ExpandCollapseToggleStyle" TargetType="ToggleButton"> <Setter Property="Foc

QT如何自定義滑鼠樣式及如何用windows自帶畫圖工具進行滑鼠樣式的設計

眾所周知，QT系統自身擁有眾多的滑鼠樣式，這些滑鼠樣式均比較常見，顏色、樣式為系統所固有，無法更改。哪麼能不能自定義滑鼠的形狀、顏色等特點呢？答案是可以的。自定義的滑鼠樣式可以隨意指定，顏色更是多種多樣，極具個性化。 QT自帶的滑鼠樣式（在此不做過多介紹）： 可以直接拿來用，具體用法如下：

百度地圖API 自定義座標點及圖片

var map = new BMap.Map("allmap");var point = new BMap.Point(105.955754,36.525109);map.centerAndZoom(point,8);map.en

22 自定義ioctl命令及使用者程序操作GPIO

自定義ioctl命令 ioctl ---> kernel ---> cdev.fops->unlocked_ioctl(...) 系統呼叫ioctl函式的作用：使用者程序用於通過相應的裝置驅動來獲取或者設定硬體狀態。 在字元裝置驅動裡，unlo

（三）高德地圖之自定義縮放及縮放動畫效果

這一節主要實現的功能是地圖的自定義縮放及縮放的動畫效果，還是直接放上程式碼更直觀些，主要部位裡面基本有註解 還是老樣子，首先是新建activity_zoom_animate.xml佈局檔案 <?xml version="1.0" encoding="utf-8"?> <

C++11使用自定義hash函式及比較函式的unordered_set

#include <unordered_set> #include <functional> #include <iostream> struct MyKey { int key; }; struct MyKeyHashHasher { size_

java自定義註解解析及相關場景實現

註解（Annotation）是java1.5之後提供的一種語法。其主要作用是編譯檢查（比如@override）和程式碼分析（通過程式碼中添加註解，利用註解解析器對添加了註解的程式碼進行分析，獲取想要的結果，一般自定義的註解都是這一種功能）。 1.1 JDK提供的註解 JDK提供的

python傳送郵件（帶附件）

python通過stmp傳送qq郵件，帶附件 import smtplib from email.mime.multipart import MIMEMultipart from email.mime.text import MIMEText from email.header import Head

php自定義函數及內部函數----字符串處理函數

統計 數組 bsp 返回值 輸出 Coding 定義函數 選擇 sci 一、統計字符串 （1）strlen() 統計字符串長度 函數返回值為整形，表示字符串長度。若返回值為0，表示該字符串為空。該函數對待一個UTF8的中文字符，處理為3個字節長度。 echo strlen

我win專案中遇到的安裝以及自定義快捷方式及快捷鍵的實現方法

首先我的需求是： 1、能自動安裝 2、桌面上有快捷方式，並且有快捷鍵，打快捷鍵能自動開啟程式執行 在開發中VS2010自帶的安裝可以將應用放到桌面生成快捷方式，但是有兩個問題： 一是不能自帶快捷鍵，需要手工另外增加； 二是開啟檔案位置找不到安裝目錄。 對於第二個問

Android Studio中Gradle自定義APK名稱及輸出路徑

使用AndroidStudio生成Android APK時候，往往需要指定APK輸出路徑及重新命名APK。 因此在Gradle中編碼，以實現上述需求： android { ...// 省略已存在程式碼 applicationVariants.all {

Base64自定義編碼表及破解

什麼是Base64 Base64是網路上最常見的用於傳輸8Bit位元組程式碼的編碼方式之一，Base64並不是安全領域的加密演算法，其實Base64只能算是一個編碼演算法，對資料內容進行編碼來適合傳輸。標準Base64編碼解碼無需額外資訊即完全可逆，即使你自己自定義字符集設計一種類Base64的編碼方式用於

python發郵件帶excel附件

# encoding=utf-8 from sqlalchemy import create_engine import pymysql import datetime from email.mime.text import MIMEText from email.mime.