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* "cristinagmm@xxxxxxxxxxx")
(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/
| 
