您的位置:首页 > 编程语言 > PHP开发

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

2014-05-22 23:51 435 查看
直接使用标准模块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
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签:  newlisp