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