带LISP的SMTP
我今天早上读到一篇文章，说用Common LISP可以使用SMTP发送电子邮件。本文的代码如下：(defun send-email (text &rest reciepients)
"Generic send SMTP mail with some TEXT to RECIEPIENTS"
(cl-smtp:with-smtp-mail (out "localhost" "noreply@fin-ack.com" reciepients)
(cl-mime:print-mime out
(make-instance 'cl-mime:text-mime
:encoding :base64 :charset "UTF-8"
:content (arnesi:string-to-octets text :utf-)
t t)))
有没有与VLISP相同的方法。。。尤其是不使用Outlook。。。只是SMTP？
(defun c:CullThisForSmtpExample (/ file path)
(if (setq path (findfile (setq file "etbug.lsp")))
(startapp (strcat "explorer /n,/e,/select, "
path
)
)
(prompt (strcat "\n** Cannot locate \"" file "\" ** "))
)
(princ)
)
页:
[1]