Email: Email

In pingqingsheng/Robot0001: What the package does (short line)

Usage

Email()

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function () 
{
    cat("Do you want to send this to your parterner, Master?", 
        "\n")
    response <- readline(prompt = "Yes/No:")
    if (response == "Yes") {
        cat("Which e-mail do you want to use Master:", "\n")
        sender <- readline(prompt = "Sender:")
        cat("To which partner:", "\n")
        recipient <- readline(prompt = "Recipient:")
        cat("Please Write Your Subject:", "\n")
        subject <- readline(prompt = "Subject:")
        cat("Please Input Your Body:", "\n")
        body <- readline(prompt = "Body:")
        cat("I need your password Master", "\n")
        passwd <- getPass()
        cat("Are your sure you want to send this e-mail:", "\n")
        response <- readline(prompt = "Yes/NO:")
        cat("Attached Files Name:", "\n")
        key <- readline(prompt = "File Name:")
        filename <- list.files(pattern = key)
        if (response == "Yes") {
            email <- send.mail(from = sender, to = recipient, 
                subject = subject, body = body, smtp = list(user.name = sender, 
                  passwd = passwd, host.name = "smtp.ruf.rice.edu", 
                  ssl = TRUE), authenticate = TRUE, send = TRUE, 
                attach.files = filename)
            cat("Task Finished. I think this is a stupid idea Master!", 
                "\n", "Maybe you should finish your paper first", 
                "\n", "I remember you still have homework to do", 
                "\n")
        }
    }
  }

pingqingsheng/Robot0001 documentation built on May 5, 2019, 5:53 p.m.