寫一支程式,可以從個人電腦使用notes client寄信
1.用notepad++寫程式
VBScript如下:
begin----------------------------------------------------------------------------------------------------
'VBScript 由Client PC使用notes client寄信
'執行時Notes Client必須開啟
Const EMBED_ATTACHMENT = 1454
Set nSession = CreateObject("Notes.NotesSession")
'Gets the current user’s mail database
Set db = nSession.GetDataBase("","")
If Not db.IsOpen = True Then
db.OpenMail
End If
Set doc = db.CreateDocument
doc.Form = "Memo"
doc.Sendto = "kitty@msn.com"
doc.Subject = "寄信測試"
doc.Body = "每天10:00系統會自動寄信,請於10:30檢查是否收到信並記錄收到信的時間,若超過30分鐘沒有收到信,表示異常,必須通知郵件管理員檢查。"
'Set up the embedded object and attachment and attach it
sAttachment = "d:\temp\aaaa.txt"
Set AttachME = doc.CreateRichTextItem("Attachment")
Set EmbedObj = AttachME.EmbedObject _
(EMBED_ATTACHMENT, "", sAttachment, "Attachment")
doc.Send(False)
end------------------------------------------------------------------------------------------------------
2.存檔到d:\temp\sendmail.vbs
3.開啟工作排程器,設定每天10:00執行此script寄信
4.注意事項
執行時Notes Client要先開啟。
訂閱:
張貼留言 (Atom)
ubuntu 安裝完kubernetes後做apt-get update會出現錯誤
root@k8s02:~# sudo apt-get update 已有:1 http://tw.archive.ubuntu.com/ubuntu xenial InRelease 已有:2 http://tw.archive.ubuntu.com/ubuntu xenia...
-
EXCEL每一個版本開啟VBA編輯器的方式都不一樣,EXCEL 2007的VBA編輯器預設是隱藏的,開啟方式如下: 選擇 Excel 選項 勾選 在功能區顯示 [開發人員] 索引標籤 然後功能選單就會出現 發人員頁籤,其中就含VBA相關工具。 點選 V...
-
今天使用Greenbone(openvas 9)對自己的個人電腦進行弱點掃描,發現有echo Service的弱點: Google微軟說明,echo service是屬於微軟 Simple TCP/IP Services中˙一項,而 Simple TCP/IP Servi...
-
1.到mysql網站下載並安裝Connector/ODBC https://dev.mysql.com/downloads/connector/odbc/ 2.使用Cortana search box 搜尋ODBC,並選擇 "設定ODBC資料來源(64位元)...
沒有留言:
張貼留言