用newLISP通過SMTP服務器發送郵件

用newLISP通過SMTP服務器發送郵件。直接使用標准模塊smtpx.lsp, smtp.lsp不能設定端口，經過試用無用。

下面是例子代碼：

#!/usr/bin/newlisp

(set 'debug-flag true)
(module "smtpx.lsp")

(set 'r (SMTP:send-mail "[email protected]"
   "[email protected]"
   "test"
   "How are you today? - john doe -"
   "smtp.myserver.com"
   "myuser"
   "mypasswd"
   587))

(unless r
  (println (SMTP:get-error-text)))
(exit)
 
debug-flag設置為true是方便輸出調試信息

SMTP:get-error-text可以打印錯誤消息。

其他函數參考文檔：

http://www.newlisp.org/code/modules/smtpx.lsp.html

newLISP 的詳細介紹：請點這裡
newLISP 的下載地址：請點這裡

為Emacs配置newLISP開發環境 http://www.linuxidc.com/Linux/2013-01/78463.htm

newLISP做GitLab系統備份 http://www.linuxidc.com/Linux/2013-01/78464.htm

newLISP 遍歷目錄樹，清理編譯目錄 http://www.linuxidc.com/Linux/2013-08/88954.htm