[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Chicken-users] smtp
From: |
Jean-Philippe Theberge |
Subject: |
[Chicken-users] smtp |
Date: |
Fri, 21 Dec 2007 13:52:44 -0500 |
User-agent: |
Icedove 1.5.0.14pre (X11/20071025) |
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
- [Chicken-users] smtp,
Jean-Philippe Theberge <=