R/invoicer_email.R

In anthonypileggi/invoicer:

#' Send an invoice via email
#' @param x invoice object
#' @param id invoice id
#' @export
invoicer_email <- function(x, id) {

  # get details for the invoice we are sending
  if (is.null(x)) {
    if (is.null(id))
      return("You must provide either an invoice object (x) or an invoice id (id).")
    # identify file using invoice id
    invoices <- invoicer_get_invoices()
    x <- invoices[invoices$id == id, ]
  }

  # check if email can/should be sent
  if (nrow(x) == 0)
    return(message("No matching invoice found.  No email sent."))
  if (nrow(x) > 1)
    return(message("More than 1 matching invoice found.  No email sent."))

  # compose/send email
  invoicer_email_send(x)
}



# Helpers --------------------

#' Setup emails (gmail only)
#' @export
invoicer_email_setup <- function() {
  me <- invoicer_get_company()
  blastula::create_email_creds_file(
    user = me$email,
    password = Sys.getenv("INVOICER_EMAIL_PASSWORD"),
    provider = "gmail",
    sender = me$name,
    creds_file_name = "~/.e_creds"
  )
}

#' Compose/send an invoice email
#' @param x invoice data
#' @param preview preview email
invoicer_email_send <- function(x, preview = FALSE) {

  # load info
  me <- invoicer_get_company()
  client <- dplyr::filter(invoicer_get_clients(), client == x$client)

  # download invoice file
  pdf_file <- file.path(tempdir(), "invoice.pdf")
  #pdf_file <- paste0("invoice_", invoice$id, ".pdf")
  googledrive::drive_download(
    googledrive::as_id(x$drive_id),
    path = pdf_file
    )

  # compose email
  # TODO: include image inline: blastula::add_image(pdf_file)
  email <-
    blastula::compose_email(
      body = "
    Dear {client},

    Your invoice for the billing period {format(start_date, '%m/%d/%Y')} - {format(end_date, '%m/%d/%Y')} is attached.

    Thanks!

    {sender}",
      footer = "Sent on {blastula::add_readable_time()}",
      id = x$id,
      start_date = x$start_date,
      end_date = x$end_date,
      sender = me$name,
      client = x$client
    )

  # preview email
  if (preview)
    blastula::preview_email(email = email)

  # send email
  blastula::send_email_out(
    email,
    from = me$email,
    to = stringr::str_trim(stringr::str_split(client$email, ",")[[1]]),    # parse the comma-separated list of client email addresses
    cc = me$email,
    subject = paste0("Invoice from ", me$name, " (", format(x$start_date, "%m/%d/%Y"), " - ", format(x$end_date, "%m/%d/%Y"), ")"),
    attachments = pdf_file,
    creds_file = "~/.e_creds"
  )
  unlink(pdf_file)
}