REBOL [
    Title: "Email a Text File"
    File:  %mailfile.r
    Date:  10-Sep-1999
    Purpose: {Send a text file (as text of message).}
    Note: {
        Puts the name of the file in the subject line.
    }
    Category: [email file net 1] 
]

file: %mailfile.r  ;name of file to send

send luke@rebol.com reform [
    "File:" file newline newline read file
]