-
Notifications
You must be signed in to change notification settings - Fork 1
/
enviar_gmail.R
53 lines (39 loc) · 1.38 KB
/
enviar_gmail.R
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
library(purrr)
library(readr)
library(dplyr)
library(gmailr)
# Na hora de enviar, botar nomes e e-mails reais.
enderecos <- tibble(name = c('Pedro',
'Cayan1',
'Cayan2'),
email = c('[email protected]',
marcas <- tibble(name = c('Pedro','Cayan1','Cayan2'),
mark = 1:3)
# data.frame com valores que diferem para cada email.
my_dat2 <- left_join(enderecos, marcas)
email_sender <- 'Cayan <[email protected]>' # Endereco gmail
# Se quiser copia oculta, não testei
#optional_bcc <- 'Anonymous <[email protected]>'
# Alterar o corpo do email com a mensagem a ser enviada.
# '%s' são os campos que mudam, como nome da pessoa, etc.
body <- "Olá, %s.
Teste de email %s.
Link_shiny
"
edat <- my_dat2 %>%
mutate(
To = sprintf('%s <%s>', name, email),
From = email_sender,
Subject = 'Email teste',
body = sprintf(body, name, mark)) %>%
select(To, From, Subject, body)
edat
#write_csv(edat, "composed-emails.csv") # Salva as informações de cada email.
emails <- edat %>%
pmap(mime) # leva para o formato a ser enviado por email
mensagem_segura <- safely(send_message)
# Envia.
sent_mail <- emails %>%
map(mensagem_segura)