# using the field functions
msg = gm_mime() %>%
gm_from("[email protected]") %>%
gm_to("[email protected]") %>%
gm_text_body("Test Message")
# alternatively you can set the fields using gm_mime(), however you have
# to use properly formatted MIME names
msg = gm_mime(From="[email protected]",
To="[email protected]") %>%
gm_html_body("Test<\b> Message")
Run the code above in your browser using DataLab