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
 mail/content 

] close inbox write %inbox.html html