[plt-scheme] Mail servers

From: Noel Welsh (noelwelsh at yahoo.com)
Date: Sat Apr 12 03:19:28 EDT 2003

--- Katsmall the Wise <kela_bit at netvision.net.il>
wrote:
> I am interested...
> I am still quite unsure about what to use and how.


This is what I do to send email:

(require (lib "sendmail.ss" "net")
         (lib "head.ss" "net")
         (lib "list.ss"))

(define server "127.0.0.1")
(define subject "Blah blah blah")
(define recipients (list "noelwelsh at yahoo.com"))
(define sender "noelwelsh at yahoo.com")
(define header 
  (insert-field "From"
                sender
                (foldl (lambda (field header)
                         (insert-field "To" field
header))
                       empty-header
                       recipients)))
(define message
  (list "Test message"))

(send-mail-message sender subject recipients '() '()
message)

HTH,
Noel



=====
Email: noelwelsh <at> yahoo <dot> com
Jabber: noelw <at> jabber <dot> org

__________________________________________________
Do you Yahoo!?
Yahoo! Tax Center - File online, calculators, forms, and more
http://tax.yahoo.com


Posted on the users mailing list.