[编程交流] 带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)))

(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)
)