[REBOL] Re: Sending email via a different SMTP server.
From: zokie:libero:it at: 30-Jul-2002 12:40
Hello [philb--upnaway--com]
On 29-Lug-02, [philb--upnaway--com] wrote:
> But I want to leave everything unchanged after the email, so anything I
> replace must be put back.
I do this:
; makes a clone and changes it to new setup
meragip-net-setup: copy default-net-setup: get-net
change meragip-net-setup meragip-email
;swaps setup
set-net meragip-net-setup
;Makes IO with SMTP server
submit-emails %mailbox/outgoing/ organization meragip-email
; restores user default set-up
set-net default-net-setup
> Is there an offical way of doing this?
set-net is official, get-net is mine ;)
get-net: does [{Gets data from current Rebol Network Setup}
reduce [system/user/email system/schemes/default/host
system/schemes/pop/host system/schemes/default/proxy/host
system/schemes/default/proxy/port-id system/schemes/default/proxy/type]]
Regards
--
"Where did you get all those facts!?!"
