send-email.R

send_email <- function(...) {
    
    member <- tibble(...)
    
    target <- member %>% pull(target)
    email <- member %>% pull(email)
    
    compose_email(
        body = md(c(paste0(text, bold(target), "!"), image)),
        footer = md("Enjoy your weekend!")
    ) %>%
        smtp_send(
            to = email,
            from = "iegor.rudnytskyi@epfl.ch",
            subject = "teamR Secret Santa",
            credentials = creds_key("my_gmail")
        )
}