Instantly share code, notes, and snippets.

Embed
What would you like to do?
Send an email via an R function using Mailgun
#' Email a user a report is ready
#'
#' Requires an account at Mailgun: https://mailgun.com
#' Pre-verification can only send to a whitelist of emails you configure
#'
#' @param email Email to send to
#' @param mail_message Any extra info
#'
#' @return TRUE if successful email sent
#' @import httr
#' @export
sendEmail <- function(email = "XXXXX@you.com",
mail_message = "Hello"){
url <- "https://api.mailgun.net/v3/sandbox5f2XXXXXXXa.mailgun.org/messages"
## username:password so api_key is all after the api:
api_key <- "key-c5957XXXXXXXXXXXbb9cf8ce"
the_body <-
list(
from="Mailgun Sandbox <postmaster@sandbox5XXXXXXXXa.mailgun.org>",
to=email,
subject="Mailgun from R",
text=mail_message
)
req <- httr::POST(url,
httr::authenticate("api", api_key),
encode = "form",
body = the_body)
httr::stop_for_status(req)
TRUE
}
@IronistM

This comment has been minimized.

Show comment
Hide comment
@IronistM

IronistM Apr 13, 2017

I think that at line:23 value mailmessage should be mail_message.

IronistM commented Apr 13, 2017

I think that at line:23 value mailmessage should be mail_message.

@MarkEdmondson1234

This comment has been minimized.

Show comment
Hide comment
@MarkEdmondson1234
Owner

MarkEdmondson1234 commented Jun 7, 2017

Ah, thanks!

@teguhn

This comment has been minimized.

Show comment
Hide comment
@teguhn

teguhn Dec 4, 2017

how do you send attachments? thanks

teguhn commented Dec 4, 2017

how do you send attachments? thanks

@MarkEdmondson1234

This comment has been minimized.

Show comment
Hide comment
@MarkEdmondson1234

MarkEdmondson1234 Dec 14, 2017

For email attachments, modify above to include HTML files - see the API docs https://documentation.mailgun.com/en/latest/api-sending.html#sending

e.g.

 the_body <-
    list(
      from = from_name,
      to = email,
      subject = subject_line,
      html = html_string
    )
Owner

MarkEdmondson1234 commented Dec 14, 2017

For email attachments, modify above to include HTML files - see the API docs https://documentation.mailgun.com/en/latest/api-sending.html#sending

e.g.

 the_body <-
    list(
      from = from_name,
      to = email,
      subject = subject_line,
      html = html_string
    )
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment