REBOL [
Title: "Email Viewer (as web page)"
File: %mailview.r
Date: 10-Sep-1999
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.
}
Category: [email markup net 2]
]
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 [
|
| "From:" | first mail/from |
| "Subject:" | mail/subject |
| "Length:" | length? mail/content |
| mail/content |
]
]
emit [
]
close inbox
write %inbox.html html