send an email in CL-HTTP

Cristina Gema Muñoz Maya <[email protected]> Fri, 05 Mar 2004 13:07:16 +0100
Newsgroups gmane.lisp.cl-http
Message-ID <[email protected]>
Hello!!

I've this source code, but i don't get to send any email. Could you please 
to say me what i have to write to send a email?

Thank you

(defun send-tutor (url stream query-alist)
          (http:bind-query-values (email question) (url query-alist)
               (setq http:*server-mail-address* "[email protected]")

                  (www-utils:send-mail-from email http:*server-mail-address* 
"question about Siidepe" question)
             )
)

(defun formu-tutor (url stream)
        (http:with-successful-response (stream :html)
                 (let ((title "Tutor"))
                     (http::with-html-document (:stream stream)
                           (html:with-document-preamble (:stream stream)
                                (html:declare-title title :stream stream) )
                                 (html:with-standard-document-body (:stream 
stream :color-scheme nil)
                                     (html2:with-fillout-form (:post url 
:stream stream)
                                          (format stream "Write your Email: 
")
                                          (html2:accept-input 'string 
"email" :stream stream)
                                           (html2:break-line :stream stream)
                                          (format stream "Question tutor: ")
                                          (html2:accept-input 
'html2:multi-line-text "question" :stream stream)
                                          (html2:accept-input 
'html2:submit-button "send" :display-string "SEND" :stream stream)
) ) ) ) ) )

(http:export-url #u"/tutor.html"
     :html-computed-form
     :form-function #'formu-tutor
     :expiration '(:no-expiration-header)
     :response-function #'send-tutor
     :public t
     :no-cache t
     :language :en
     :keywords '(:cl-http :demo)
     :documentation "Enviar Tutor")

_________________________________________________________________
¿Estás pensando en cambiar de coche? Todas los modelos de serie y extras en 
MSN Motor. http://motor.msn.es/researchcentre/