# NOT RUN {
# using the field functions
msg = mime() %>%
from("james.f.hester@gmail.com") %>%
to("asdf@asdf.com") %>%
text_body("Test Message")
# alternatively you can set the fields using mime(), however you have
# to use properly formatted MIME names
msg = mime(From="james.f.hester@gmail.com",
To="asdf@asdf.com") %>%
html_body("<b>Test<\b> Message")
# }
Run the code above in your browser using DataLab