Hi,
you wrote:
> append emailalias "@gsat.edu.au"
> send [ emailalias ] emailbody_init
> ]
The main problem is that your emailalias is a string. You need to use
something of type email!
For instance:
send to-email emailalias emailbody_init
will work.
Check out
>> source send
to see what happens when you trick send into accepting a string by burying
the string in a block. the function send always checks whether the email
address is of type email, if not ... nothing happens.
The relevant code is in the else part of either towards the end of the
function:
foreach addr address [
if email? addr [
do-send smtp-port ["MAIL FROM: <" header-obj/from ">"]
do-send smtp-port ["RCPT TO: <" addr ">"]
head insert clear header-obj/to addr remove/part message
content
content: insert message net-utils/export header-obj
content: insert content newline
do-send smtp-port ["DATA" message]
]
]
]
Note the line:
if email? addr [
Hope this helps,
;- Elan >> [: - )]
