AltME groups: search

plis sample client email form configure smtp user and pass

What sample email form are you trying to run?

probe system/standard/email

make object! [
    To: none
    CC: none
    BCC: none
    From: none
    Reply-To: none
    Date: none
    Subject: none
    Return-Path: none
    Organization: none
    Message-Id: none
    Comment: none
    X-REBOL: ""
    MIME-Version: none
    Content-Type: none
    Content: none
]

set system/standard/email  make object![
    To: none
    CC: none
    BCC: none
    From: none
    Reply-To: none
    Date: none
    Subject: none
    Return-Path: none
    Organization: none
    Message-Id: none
    Comment: none
    MIME-Version: none
    Content-Type: none
    Content: none
]

I was not implying stop the ML, but there are other ways to handle 
this.  My goal is one source of info, I consider both AltME, Email, 
QTask, and many other things as simply mediums to diliver info.

Exactly, I hate to have information not centralized.  It should be 
intersting to see if we can bring all three of these (to start) together 
(meaning AltME, Email, QTask).  They each do something different. 
 but they should be compatible.  And in this context "Email" realliy 
refers to a relay Server.

Basically, I need a phone that can act as a simple mobile (read-only) 
email client

OK, I will write email tomorrow or give the folks a call. Hopefully 
they will be open-minded and kind of geeks so we will have good technology 
talk ...

This looks pretty promising. The sync4j server seems to be the thing 
we need to get access to the phone. And it can be expanded with connectors 
so others can use the server as a proxy. There exists an email connector.

A form to email signup request on http://www.rebol.com/support.html
.. low barrier of entry. Then just need a Hat to process any requests 
at least once a day (unless you want to automate the process more)

Let me know if you would like to try it and I will email you off=-ine

must be your email playing up again Ladislav .. it did this a couple 
of years ago as I remember

i got that bounce email after my last post today too.

It comes and goes. It is now one free license per email address, 
not per person :)

what about parsing out email addresses to smoething (at) somewhere 
(dot) com ?

my email address was obfuscated a little

Reichart, et. al., I haven't reported this but for the past 8 months 
or so we have been using Altme at work as sharing tool at work. This, 
after many years of struggle.  Sadly, the MS forces have decided 
that it's too good to be true so it mustn't and we are installing 
an exchange server. Actually that will be a good thing for me personally 
as the responsibility for the email servers gets transferred to the 
sys admin guy running the exchange server. 

It is interesting to note that while it has taken a team of people 
to get this thing running (not that it's running as I speak of course) 
to share a single file, Altme was what, a few minutes to set up and 
use? Most of that time is spent on deciding on passwords : ).

Clicking on this link, AltME thinks it's an invalid email address.
http://www.mail-archive.com/[rebol-bounce-:-rebol-:-com]/msg02185.html

There is no simple, obvious, method of joining this world....

....If you discover it via the REBOL.net archive, there is no info 
at all about joining
http://www.rebol.net/altweb/rebol3/


....If you find it via the REBOL.org archive, there is a note in 
the Help page about requesting membership via the Mailing List.....So 
first, you got to join the ML and it has to be working that day :-(

Let's come up with something better guys!


My opening suggestion.....membership can be requested by sending 
an email to a specific gmail account that the Admins here monitor.

Given the trouble with the Mailing list as well (feedback), what 
about simply moving everything over to Gmail Groups?  All these problems 
have been solved by them already.  It has IMAP access, so you can 
still do ML archives.  And it is all free.  There are a few things 
about Gmail Groups I don't like (but I suspect all ML have the same 
problems), I simply don't like Email in the first place, so I'm biased.

I think a big move to Gmail would have many positive aspects:


-	Feedback problem is gone, since you can have multiple moderators 
that can check.
-	We have a centralized location for requests to AltME

-	We can make it public already, so you may be able to avoid some 
of the tools you have been using to do this.

-	We are working "with" other systems, as opposed to "invented here"

-	There are other services Gmail offers that might enhance the experience.

Yes, I serve as back up for Gregg.


Henrik, if you are asking "who can people contact" as in send an 
Email, I don't know...  this is why I want  to unify the REBOL ML 
on Google Groups.  Then someone can post in the ML, and anyone who 
happens to see it can post it here.


The option is the way we do it now, which is if someone contacts 
anyone already in here, they tell us in Accounts, and we create an 
account because that person is vouching for them.

Does that answer your question?

ive always seen altme as a merge between email and forums - or IRC 
with history

Repeat of a post I made here almost a year ago.....And it is still 
not obvious how a newcomer joins this world. It's a huge blindspot 
in the otherwise welcoming REBOL community:

There is no simple, obvious, method of joining this world....

....If you discover it via the REBOL.net archive, there is no info 
at all about joining
http://www.rebol.net/altweb/rebol3/


....If you find it via the REBOL.org archive, there is a note in 
the Help page about requesting membership via the Mailing List.....So 
first, you got to join the ML and it has to be working that day :-(

Let's come up with something better guys!


My opening suggestion.....membership can be requested by sending 
an email to a specific gmail account that the Admins here monitor.

One other possibility......We could have a "request membership" form 
on REBOL.org.
That'd explain the need to download the client from Altme.com.

And it'd send an email to an Admin requesting the person be let in.


So all we need is an Admin who is willing to be the recipient of 
that email.
Any takers?

If noone picks-up, then take my email adress (will not post here 
- web public group). I then can post requests into Accounts group 
...

I can also take account requests via email, but am also happy to 
share the wealth and let Petr do that if he wants. :-)

support inline images , I communicate a bit with some senior citizens 
who *really* like to send images of everything they are building, 
if altme could perhaps have inline thumbnails linked to full images 
stored in the shared folder I could try to move them off email.

Graham, one of your email addresses comes 7th in the top ML posters 
(page required login to see):
  http://www.rebol.org/ml-author-ranking.r

I've been using Altme for a project with a guy who is very non-tech. 
He did not know how to drag a window. Anyway, it is working out great. 
We are using File sharing to re-format a bunch of text files and 
with the abilty to add comments and check lists its saving a lot 
of time over traditional Email. He is still not really up to speed 
so once he is it wil really shine. And with the abiltty to just add 
new members where they can read any old messages to see where we 
are and what we have been doing.


I regret not using it for my Appraisal business. My partner and I 
had to email files back and forth all the time. And sometimes we 
needed to get files from one another but one of us was away or not 
at our computer. If we used Altme we would never have had that problem.

Here's another wish list item.   I am had a family only list going. 
 People would forget to login and check what was updated on occassion, 
and during slow periods with little entry, would miss that one or 
two days where something was added.  So, a nag feature that can be 
turned on and off by both the user and administrator.  It would send 
an email from the World server telling the person updates were posted 
to the World.

I think like Carl's essay on the trouble with email, AltME could 
do a more strategic but pointed talk about Safeworlds fixes the problem 
with Facebook.

(of course people still use email, but email is quite different from 
the spillage of info from facebook.  email is more private than facebook

Has anyone built a script to do calendar email notifications from 
the AltME calendar?

Or post a request on their behalf into the
   Accounts
group.

We need their name, and email address (to send the join message to 
them)

No....because that form would have to ask for an email address, then 
we'd have to verify it wasn't just a drive by spamming, etc....Too 
much hassle at our end.

ok, I'll probably build a form on my site for them to request an 
altme user/password.  with email verification of course.

Good luck with the email ...


Please contact the server administrator, [root-:-localhost] and inform 
them of the time the error occurred, and anything you might have 
done that may have caused the error.

Would be cool if ALTME groups had a notification feature where it 
could send something to an email box on each update to that group.

but send is not a mail client. it is a function to send email messages.

how about implementing an 'email function that does bcc etc?

email [to: [graham-:-somewhere] from: [me-:-here] bcc: [carl-:-there] subject: 
"something"] msg

email/attach

IMHO that are to much internals. I would add bcc to send. First, 
if you use bcc, its almost 100% a privacy issue. So at least no bcc. 
Second, users read "email", they know email and email has bcc. What 
happens inside the mail-client they have no clue. So bcc should also 
be added to the header-list IMHO. At least as option, send/bcc or 
such. Should not be much parsing and things works a lot more right. 
As this discussion proves.

better to allow something like the email function above

Not mm, Brocks. "Joe, I had problems with BCC in a corporate mass 
emailing I did.  Even though it did not display the email address 
in the mail client, if you viewed the header of the mail message 
the BCC content was there."

send  is just the example of what the word does SOME things more 
than it should, but not all, and does not fully explain everything. 
 We are used to a lot of consistency in rebol. and if a word makes 
email shortcuts but not all of them... I understand the frustration 
which can come from a mistake, when you can't really know how -REBOL's- 
mail handling is performed... no matter what are the standards.

But, how about dropping 'send and switching to 'email completely 
in R3? 'send is a nice word for rebservices etc. IIRC Carl noted 
that somewhere.

Then in case of email 'send could be stupid without *any* headers, 
and 'email the dialected smart version.

Volker - nice suggestion, really, isn't Linux shell using mail or 
email command too? Would make sense ... to even blockify its input 
arguments ...

make send more stupid so we assume/expect less of it.  and make a 
proper email function which handles most common useage like a mail 
client does it.

It does seem that the bcc issue is caused by the presence of bcc 
in system/standard/email. Perhaps send could raise an error if it 
finds bcc set - and or - remove bcc from system/standard/email.

well, that's really strange. see this >>
>> load mold to file! "[s-:-a]"
** Syntax Error: Invalid email -- %[s-:-a]
** Near: (line 1) %[s-:-a]
>> load mold to file! "[aas-:-df]"
== ª[s-:-df]

then maybe there could be two phases of load .... parse form, not 
the value first :-) 999.999.999 for a valid tuple! datatype. It is 
too strict, in opposite to:

>> email? to-email "nonsense"
== true

hmm, why send/attach sends jpeg in some non standard way? When I 
normally receive jpeg, first it is related to jpeg icon, second it 
is displayed in my email directly ....

simply the plan is - get jpeg (source file), compose with text, send 
inline, not even as an attachement. It is just that I did not heard 
about cid: container email reference before ... do all mailers handle 
pngs?

I am also not sure, how many ppl has turned off ability to display 
html content in email .... maybe it would be better to actually not 
send post-card .... but post a link to on-server stored image?

I have a few command line apps that do the job, but the best one 
I've found I got from a web site that isn't there any more. If you 
want it PM me and I will email it to you. Otherwise, try setx.exe 
from the Windows Resource Kit - it can do all sorts of stuff.

Hi everyone, I am presently in Indonesia. I can send email to myself, 
but when I try to send email to other I get the following error message:


** User Error: Server error: tcp 550-(LATURK-WS-2) [61.94.196.24] 
is currently not permitted
 to relay through

Is this a problem I can correct in the script? If yes, how?

I am able to email using Eudora just fine.

it is the same as my email adress contains dot, - it is not according 
to RFC, but used so often, the parser has changed IIRC

Didier's delete-email.r has a text list that seems to work. I'll 
have to check to see what he is doing differently.

Hello, anyone have any ideas how I might improve on the integrity 
of a program that sends email to a list of people. I just realized 
I should be using '/only' but I have to check its behavior as I don't 
want each person to get a list of the other recipients. My problem 
is I often get a time out and I want to trap that. Yesterday during 
my first test it got halfway through the list and errored out which 
then caused the program to exit. I figured I should at least keep 
a running log so I can go back.

A couple of questions: Is there a switch to start view in the console 
mode (CLI)? I know I can do something in the user.r but I'd like 
to do it from a prompt on demand. And also, anyone have any idea 
why my emails sent via a rebol program take so long to arrive. Any 
special settings in the header or hints. I 've created a program 
that sends emails to a list but I notice that it takes a long time 
(30 minutes or more) to receive the email. I checked by sending from 
Outlook and through the command line in rebol and it  was instantaneous. 
There's something happening and I wonder if any on you  have seen 
this.

This is a view/core issue but I place this here since it's showing 
up in View. I've recently changed hosting companies and not one of 
my apps doesn't like the email authentication like it did before. 
I noticed that a while back there was a discussion about this before 
the esmtp was placed into view (esmtp.r and esend.r + the patch). 
I'm getting this:
** User Error: Server error: tcp 535 auth failure
** Near: smtp-port: open [scheme: 'esmtp]
either only

This is one of those "but it was working before" issues. Perhaps 
one of you has run into this. BTW, both Outlook and webmail seem 
to work OK though even Outlook was a little slower yesterday connecting 
to the server. Thanks as always in advance.

I can send you this by email, i think I found it off-line on my hd 
...

sent you an email right now - mine, not sure how actual version, 
but also found Volker's version on rebol org - I would probably better 
trust Volker's code :-)

ctx-viewtop: context ctx-viewtop

do bind [if block? ctx-prefs-gui [ctx-prefs-gui: context ctx-prefs-gui]] 
ctx-viewtop
;do bind [slide-to email-settings] ctx-viewtop/ctx-prefs-gui
do bind [
	use [face][

  face: foreach face prefs-face/pane [if all [face/style = 'tog face/text 
  = "Email settings"][break/return face]]
		face/feel/engage face 'down none
	]
] ctx-viewtop/ctx-prefs-gui
ctx-viewtop/view-prefs

Mike, by all means keep asking questions here, this is absolutely 
the right place to do so.


Conversing in plain text can be tough, and the rate at which people 
can respond here--as opposed to email--can contribute to misundertandings, 
with posts coming fast and furious. And we all interact in slightly 
different ways.

The Library does sometimes have trouble with scripts.

It needs to load the script to get header information. But the Library 
is running on an older version of R2. Some newer scripts cannot be 
loaded as they contain syntax elements that crash the version the 
Library is running.
We have some creative work-arounds.

Mike can you email me your script (right click my name for email 
address). I'll see what the options are.
Thanks.....You are a natural at finding bugs!

don't we have any communication with that user? an email address?

so if we have words like asdfs@ etc, we don't get illegal email types 
etc?

>> to-block " @"
** Syntax Error: Invalid email -- @
** Near: (line 1) @

Hello everybody!

I have a problem. I need to extract email addresses from a big text 
like

bla bla [me-:-demo-:-com] bla bla ...  <[you-:-example-:-org]>  etc. [he-:-italy-:-it]

There is possible to obtain a text with all the addresses withou 
the "<" and ">"?

>> str: "bla bla [me-:-demo-:-com] bla bla ...  <[you-:-example-:-org]>  etc. 
[he-:-italy-:-it]"

>> foreach w parse str none [if find e: to-email load w "@" [print 
e]]
[me-:-demo-:-com]
[you-:-example-:-org]
[he-:-italy-:-it]

or something.

Here's absolutly terrible parser - it does NOT follow RFC, allow 
any combination of alpha chars, dots, one @ char, and the same, once 
again to the next space char ...

space: #" "
mailchar: charset [#"0" - #"9" #"A" - #"Z" #"a" - #"z" ".-"]
at-char: #"@"

email: [

   space
   start:
   some mailchar
   at-char
   some mailchar
   end:
   space
   (print copy/part start end)

]


str: "afadfa adfa asdfasdfa fd [asdfas-:-adfadf-:-adfa-adfadfsda-:-com] adfafaf 
a af"

parse/all str [any [email | skip]]

That eliminates email adresses inside of < >, but maybe it was not 
an intention?

I've created my very first script. The script loops through a list 
of email (Kerio) log files, extracts the IP addresses, compiles them 
in a list and adds them to a (Peerblock) list in order to limit incoming 
spam. I find rebol perfect for this.

Ok, here it is: 


rebol [
    title: "CRITICAL CHAIN To-Do List Maker"
    owner: "Louis A. Turk"
    rebol: none
]
either exists? %session-time.txt [   ;for digital timer
    session-time: to-time read %session-time.txt
][
    session-time: 0:00:00.000
    write %session-time.txt session-time
]
time-start: now/precise
do %rebgui.r
;WHAT IS rebgui-ctx.r and where do I get it?????????????
unless value? 'ctx-rebgui [
	either exists? %rebgui-ctx.r [do %rebgui-ctx.r] [do %rebgui.r]
]
set-colors
tab-size: 120x55
fonts: reduce [font-sans-serif font-fixed font-serif "verdana"]

if exists? %project-list.txt [project-list: read %project-list.txt][write 
%project-list.txt [] project-list: []]

do show-cc: make function! [] [
display "CRITICAL CHAIN To-Do List Maker Version 1.0.0" [

    ;HOW CAN THE FOLLOWING TWO LINES BE CONVERTED TO WORK WITH RebGUI????????

    ;banner "0:00:00" rate 1 effect [gradient 0x1 0.0.150 0.0.50] 115x24

    ;feel  [engage: func [face act evt] [face/text: copy to-string round 
    (session-time + (difference now/precise time-start)) show face]]
    tab-panel #HW data [
        "Projects" [
            label "Project Name:" project-name: field  144x5

            label "Priority:" priority: drop-list 30 #W "1" data ["1" "2" "3" 
            "4" "5" "6" "7" "8" "9" "10"] 10x5
            return

            label "Objectives:" label "                                      
                                                                             
                                        Exchange Rate" exchange-rate: field 20x5
            return
            area 200x50
            return
            label "Deliverables:" 
            return
            area 200x50
            return
            button "Save" [show-text ex-status "Saved"]
            button "Add" [show-text ex-status "Edit"]
            return
        ]
        "Tasks" [

            ;WHY DOES THE FOLLOWING LINE ALWAYS DISPLAY A BLANK STRING?????????

            label "Project:" t-project-name: text (either <> "" project-name/text 
            [(form project-name/text)]["ERROR: Project NAME field is empty."]) 
            80x5
            label "Task Name:" t-name: field 79x5
            return
            label "Description:" 
            return
            t-description: area 200x50
            return

            label "Vender/Work Place:" t-vw-place: drop-list "Mega Mall" data 
            ["Grand Hardware" "Mega Mall" "Pasar Lima"] 63x5

            label "Resources Needed:" t-resource: drop-list "Louis A. Turk" data 
            ["Bus to Manado" "Louis A. Turk" "Caleb Turk" "Samuel Turk" "Compaq 
            SR1520NX"] 63x5
            return

            label "Total Hours Required:" t-hours: drop-list data [0.2 0.4 0.6 
            0.8 1.0 2.0 3.0 4.0 5.0 6.0 7.0 8.0 9.0 10.0 11.0 12.0 13.0 14.0 
            15.0] 14x5
            label "Cost:" t-cost: field
            return
            return
            button "Save" []
        ]
        "Venders/Work Places" [
            label "Vender/Work Place Name:" vw-place: field 152x5
            return
            label "Street Address:" vw-street: field 171x5
            return
            label "City:" vw-city: field 103x5 
            label "State" vw-state: field 38x5 
            label "Zip:" vw-zip: field 23x5
            return
            label "Phone 1:" vw-phone1: field 29x5
            label "Phone 2:" vw-phone2: field 29x5
            label "Fax:" vw-fax: field 29x5
            label "Email:" vw-email: field 48x5
            return
            label "Contacts: " vw-contacts: field 181
            return
            label "Notes:" 
            return
            vw-notes: area 200x50
            return
            button "Save" []
        ]
        "Resources" [
            label "Name:" r-name: field 100x5
            return
            label "Cost:" r-cost: field 30x5 

            label "per" r-label: drop-list data ["Hour" "Day" "Week" "Month" 
            "Year"]
            return []
        ]
        "Make Lists/Charts" [
        ]
        "How To" [
        ]
        "Help" [
        ]
    ]
]
] ;end show-cc
do-events

Hello Maarten, I have a homemade tree view. It's not complete yet, 
but it works. I was planning to make it complete, but I stopped because 
I am waiting for REBOL 3 and VID+. Anyway, If you want to take a 
look at my homemade TreeView, send me an email [xy-:-cai-:-msa-:-hinet-:-net].

Good idea, if you email all the changes in a single zip attachment 
I'll probably get around to looking at it a lot faster ;) Any existing 
doco you have would also be nice, saves a lot of time trying to guess 
why certain changes were made.

I had someone else email me with that exact same thought today! They 
wanted the ability to load and save RebGUI preference settings. Something 
I need to think about if we want to support a basic level of "skinning".

My preferred approach, which I'm working on, is to write an "official" 
document on interfacing RebGUI with SQLite (or any other database 
that returns its results as a flat block of values (i.e. does not 
store rows in sub-blocks)). I've had quite a few people email me 
with such questions recently.

at work now ... so - we even did not get anyone sending plain old 
email to anyone of us, so short excerption of Carl's presentation 
could be posted here? If AltME or stream does not work, so what? 
Email or web still works, no? ;-)

guess this is the official announcement on Gab's contract.


though..if one notices...sometimes Gab uses his rebol email in the 
ML

I am trying to retrieve email from a godaddy account. Their server 
however uses a username with the @ sign. I am not sure but I think 
this is messing up the pop protocol. 

The error I receive is:

connecting to: companyname.com
** Access Error: Cannot connect to companyname.com
** Where: open-proto



Notice that my pop statment has two @ signs in it but is needed to 
login to goDaddy's multi-tenent pop server.


foreach message read pop://[user-:-companyname-:-com]:[password-:-pop-:-secureserver-:-net] 
[
    print message
]

Any Suggestions?

I also do-ed all prot-* that were in prot.r with no effect?


does this have something to do with licences?? Because word set-net 
is there but it just messages this. And set-net is in all free versions 
of rebol (and hopefully you can send email from them all along) so 
I am quite confused.

it is not true images rea always links in email - you can embedd 
images too .... postcard services do so ...

Giuseppe, basically, you attach the image with the email, and use 
a normal <img> tag in the HTML with a cid: URL. i don't have an example 
at hand, unfortunately...

What amacleoud suggested should work just fine. Although maybe not 
in all mail clients. I do know that Adobe Air for example doesn't 
allow data links (for security reasons IIRC) so maybe some email 
apps have deactivated that feature too. It does work fine on my iPod 
Touch's email client (which is the only client I could test this 
on since I usually just use Gmail's web interface). Here's a small 
rebol script that does the job (yeah, I was bored)

REBOL []
imgfile: request-file/only
encoded: enbase read/binary imgfile
filetype: next to-string suffix? imgfile
; you can use this right in the browser as a web address
datalink: rejoin [{data:image/} filetype ";base64," encoded]
; and this inside html source
imglink: rejoin [{<img src="} datalink {"/>}]
editor imglink

Reichart, actually, that is true only if the HTML comes from an email 
with an embedded image (as attachment, not as link to an external 
website), and you need to look at the whole message source rather 
than just the HTML to make sense of it. the cid: links are an email 
thing and have nothing to do with HTML itself.

Amacleod, the image is attached, the container is multipart/related 
instead of multipart/mixed. The email client will not show the individual 
components of a multipart/related message, instead, it shows the 
main part (the HTML) which then refers to the other parts (in case 
of HTML, using cid: links).

REBOL[]


send: func [
	"Send a message to an address (or block of addresses)"
	;Note - will also be used with REBOL protocol later.
	address [email! block!] "An address or block of addresses"
	message "Text of message. First line is subject."
	/only   "Send only one message to multiple addresses"
	/header "Supply your own custom header"
	header-obj [object!] "The header to use"
	/attach "Attach file, files, or [.. [filename data]]"
	files [file! block!] "The files to attach to the message"
	/subject "Set the subject of the message"
	subj "The subject line"
	/show "Show all recipients in the TO field"
	/local smtp-port boundary make-boundary tmp from
][
	make-boundary: does []

	if file? files [files: reduce [files]] ; make it a block
	if email? address [address: reduce [address]] ; make it a block
	message: either string? message [copy message] [mold message]

	if not header [                 ; Clone system default header
		header-obj: make system/standard/email [

   subject: any [subj copy/part message any [find message newline 50]]
		]
	]
	if subject [header-obj/subject: subj]
	either none? header-obj/from [

  if none? header-obj/from: from: system/user/email [net-error "Email 
  header not set: no from address"]
		if all [string? system/user/name not empty? system/user/name][
			header-obj/from: rejoin [system/user/name " <" from ">"]
		]
	][
		from: header-obj/from
	]
	if none? header-obj/to [
		header-obj/to: tmp: make string! 20
		if show [
			foreach email address [repend tmp [email ", "]]
			clear back back tail tmp
		]
	]
	if none? header-obj/date [header-obj/date: to-idate now]

	if attach [

  boundary: rejoin ["--__REBOL--" system/product "--" system/version 
  "--" checksum form now/precise "__"]
		header-obj/MIME-Version: "1.0"

  header-obj/content-type: join "multipart/mixed; boundary=" [{"} skip 
  boundary 2 {"}]
		message: build-attach-body message files boundary
	]

	;-- Send as an SMTP batch or individually addressed:
	smtp-port: open [scheme: 'esmtp]
	either only [ ; Only one message to multiple addrs
		address: copy address
		; remove non-email values
		remove-each value address [not email? :value]

  message: head insert insert tail net-utils/export header-obj newline 
  message
		insert smtp-port reduce [from address message]
	] [
		foreach addr address [
			if email? addr [
				if not show [insert clear header-obj/to addr]

    tmp: head insert insert tail net-utils/export header-obj newline 
    message
				insert smtp-port reduce [from reduce [addr] tmp]
			]
		]
	]
	close smtp-port
]

resend: func [
	"Relay a message"
	to from message /local smtp-port
][
	smtp-port: open [scheme: 'esmtp]
	insert smtp-port reduce [from reduce [to] message]
	close smtp-port
]

build-attach-body: function [
	{Return an email body with attached files.}
	body [string!] {The message body}

 files [block!] {List of files to send [%file1.r [%file2.r "data"]]}
	boundary [string!] {The boundary divider}
][
	make-mime-header
	break-lines
	file
	val
][
	make-mime-header: func [file] [
		net-utils/export context [

   Content-Type: join {application/octet-stream; name="} [file {"}]
			Content-Transfer-Encoding: "base64"

   Content-Disposition: join {attachment; filename="} [file {"^/}]
		]
	]
	break-lines: func [mesg data /at num] [
		num: any [num 72]
		while [not tail? data] [
			append mesg join copy/part data num #"^/"
			data: skip data num
		]
		mesg
	]
	if not empty? files [
		insert body reduce [boundary "^/Content-type: text/html^/^/"]
		append body "^/^/"
		if not parse files [
			some [
				(file: none)
				[
					set file file! (val: read/binary file)
					| into [
						set file file!
						set val skip ;anything allowed
						to end
					]
				] (
					if file [
						repend body [
							boundary "^/"
							make-mime-header any [find/last/tail file #"/" file]
						]
						val: either any-string? val [val] [mold :val]
						break-lines body enbase val
					]
				)
			]
		] [net-error "Cannot parse file list."]
		append body join boundary "--^/"
	]
	body
]

do %./send.r

header: make system/standard/email [
        Subject:  rejoin ["example REBOL "]
        Organization: ""
        Content-Type: "multipart/html"
]


msg: rejoin [
{<img src = "test.jpg" /> </html>}



]

send/header/attach [[cr-:-fideurambank-:-lu]] msg header [%test.jpg]

I really want it to be constructive, but the lack of Carl's communication 
is problem even for future imo. Some official organisation as rebol 
user group might work, as it could be more readable to Carl. I suggested 
him via email, that one hour per month or two of guru session here 
would help to keep spirit high .... it can fantastically motivate 
ppl ... and those motivated here can motivate down the way to the 
computing world ...

I am not sure I am confusing anything. If it is not there, then it 
is not there. I can give an example - Bobik - he left rebol, because 
of our often claims, that we can do anything. But he is looking for 
the end user tool. He does not want to code mySQL driver himself, 
he wants to use one. So, if you will have website with rebol features, 
what will be your answer to following bullet:

certificates support: 


Yes, or no? Am I able to easily send rebol email, signed, which displays 
in Thunderbird or Outlook, as signed? Am I able to choose from centrally 
installed certificates in Windows certificate container? That is 
my point. So - if it is only 3 lines of code, just take a note, and 
when RT will be thinking of security/privacy issues, please count 
such things in?

send signed email - yes you can do that. does it need to be in send? 
should send also handle return receipts? should it handle gmail apis? 
should it handle exchange servers? where do we stop?

if someone sends you rebhost.exe via email... well... i would not 
run that ;)

I asked for it here, not directly to Carl via email, as I don't want 
to disturb him. Guys who communicate with him on a daily basis has 
stronger influence right now and hence Carl could tell himself - 
hell ya, it is already one month? Well, blog, why not?

Yeah I only sent an email to Carl long ago

I'd also like my emr script to start processing various tasks after 
mid-night - like sending out email reminders to patients etc.