REBOL [ Title: "Email Viewer (as web page)" Date: 10-Sep-1999 File: %mailview.r Purpose: { This example displays all of your pending email as an HTML web page. (But does not remove it.) } Note: { Does not remove the mail from the server. See the popspec.r file for examples of how to setup your mailbox connection. } library: [ level: 'intermediate platform: none type: none domain: [email markup other-net] tested-under: none support: none license: none see-also: none ] ] html: make string! 10000 ; where new page is stored emit: func [data] [append html reduce data] inbox: open load %popspec.r ;file contains POP email box info emit [

"Mailbox Summary for " now/date " " now/time

length? inbox " message(s)"

] forall inbox [ mail: import-email first inbox emit [ ] ] emit [
"From:" first mail/from
"Subject:" mail/subject
"Length:" length? mail/content

] close inbox write %inbox.html html