Здравствуйте, это не первая подобная тема но остальные все забросили хотя я и пишу туда вопросы. Проблема в том что никак не могу приатачить файл. У меня ща получается отправить письмо с любым телом письма, а ввести заголовок или добавить файл к письму не могу. Вот код, полностью весь со всеми библами.
(asdf:oos 'asdf:load-op :cl+ssl)
(asdf:oos 'asdf:load-op :cl-smtp)
(asdf:oos 'asdf:load-op :cl-mime)
(asdf:oos 'asdf:load-op :cl-BASE64)
(asdf:oos 'asdf:load-op :arnesi)
(asdf:oos 'asdf:load-op :cl-prevalence)
(asdf:oos 'asdf:load-op :cl-gd)
(defun Отправить ()
(with-open-file (поток-текста "C:/lisp/sbcl/Текст.txt")
(setf Текст (read поток-текста)))
(with-open-file (поток-рецепиентов "C:/lisp/sbcl/Рецепиенты.txt")
(setf *Колличество-потоков* (read поток-рецепиентов))
(loop for и from 1 upto *Колличество-потоков*
do(send-email Текст(read поток-рецепиентов)))))
(defun send-email (text &rest reciepients)
"Generic send SMTP mail with some TEXT to RECIEPIENTS"
(cl-smtp:with-smtp-mail (out "хост" "логин" reciepients :port 465 :authentication (List "логин" "пароль") :local-hostname "логин")
(cl-mime:print-mime out
(make-instance
'cl-mime:multipart-mime
:subtype "mixed"
:content (list
(make-instance
'cl-mime:mime
:type "image"
:subtype (string-downcase (symbol-name (blob-type "E:\666.JPG")))
:encoding :base64
:content (flexi-streams:with-output-to-sequence (s)
(blob-to-stream "E:\666.JPG" s)))
(make-instance 'cl-mime:mime
:type "text"
:encoding :base64
:charset "UTF-8"
:content (arnesi:string-to-octets text :utf-8))))
#|(make-instance 'cl-mime:text-mime
:encoding :base64
:charset "UTF-8"
:content (arnesi:string-to-octets text :utf-8))|#
t t)))вот статья по образу которой делал http://lisper.ru/articles/sendind-smtp-mail-with-utf-8-characters а это статья по образу которой пытался сделать приделать атач http://netzhansa.blogspot.com/2008/03/refactoring-cl-smtp.html
