用newLISP通过SMTP服务器发送邮件

最新推荐文章于 2019-04-02 10:34:00 发布

炼气散人

最新推荐文章于 2019-04-02 10:34:00 发布

阅读量3.5k

点赞数

分类专栏： # 系统管理文章标签： newlisp

本文链接：https://blog.csdn.net/csfreebird/article/details/26633073

版权

系统管理专栏收录该内容

24 篇文章 0 订阅

订阅专栏

直接使用标准模块smtpx.lsp, smtp.lsp不能设定端口，经过试用无用。

下面是例子代码：

#!/usr/bin/newlisp

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

(set 'r (SMTP:send-mail "from@my.com"
			"chenshu@letv.com"
			"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可以打印错误消息。

注意，上面的send-mail最后一个参数是指定的是端口号，如果用qq邮箱发送email,不需要填写这个端口号。

其他函数参考文档：

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