[REBOL] Re: Cannot Connect
From: tim:johnsons-web at: 31-Aug-2001 12:06
Ammon, I got ahead of myself here, here's a couple more tips.
If you run into problems with the script below, and choose to
use 'trace AND if you are set up for CGI from your desktop,
put in a mime-text header and preformat tag, that way you you
might get a better look at the very verbose trace output,
see changes below
On Fri, Aug 31, 2001 at 12:28:43PM -0700, Ammon Cooke wrote:
> Hi,
>
> It logs in as the proper user, the odd part is the little progress meter
> down in the left hand window pops up then disappears while REBOL attempts to
> continue connecting. After I have used set-net at the command prompt what do
> I do?
Hmmm! Why don't you try this script below. Edit the strings following
my-email/from, my-email/server, my-email/to
try trace if you like. I find that starting with something very basic
at first helps......
REBOL[]
my-email: [from "[sender--domain--com]" server "smtp.somewhere.net"
to "[recipeint--domain--com]" subject "testing simple SMTP"]
;;=====================================================================================
;;sendmail: arg1 is block with 'sender 'server 'to 'subject
;; arg2 is message body
;;=====================================================================================
sendmail: func[setup[block!] message[string!]][
; set mime-type for CGI
print "Content-Type: text/html^/"
; set preformat for easier reading
print "<pre>"
; try using trace : just uncomment
;trace on
set-net[setup/from setup/server none none none none]
;trace off
;trace one
send/header to-email setup/to message make system/standard/email[
from: setup/from
subject: setup/subject
]
;trace off
];end func
sendmail my-email "Hi, we're just testing here"