[Chicken-users] smtp

[Jean-Philippe Theberge]

Hi,

Am I doing something wrong here?

#;22> (define s (smtp:connect "localhost" (get-host-name) #t))
SMTP: [220 cl-t093-450cl.localdomain ESMTP Postfix]
SMTP: HELO cl-t093-450cl
SMTP: [250 cl-t093-450cl.localdomain]
#;23> (with-output-to-port (smtp:open s "address@hidden" 
"address@hidden") (lambda () (print "Subject: How are 
you?\r\n\r\nSo, how are you then?\r\n") ) )
SMTP: MAIL FROM: <address@hidden>
SMTP: [250 2.1.0 Ok]
SMTP: RCPT TO: <address@hidden>
SMTP: [250 2.1.5 Ok]
SMTP: DATA
SMTP: [354 End data with <CR><LF>.<CR><LF>]
#;24> (smtp:disconnect s)
SMTP: QUIT
Error: read operation timed out: 14

   Call history:

   <syntax>        (smtp:disconnect s)
   <eval>        (smtp:disconnect s)    <--
#;24>


and the mail is never received...

Thanks!

BuddyPilots <http://www.buddypilots.com>
*Jean-Philippe Théberge*
*Programmeur Architecte*
Tel: (514) 353-2307