如何在R中的闪亮应用程序中发送电子邮件?

gwbalxhn  于 2023-09-27  发布在  其他
关注(0)|答案(1)|浏览(101)

我正在尝试使用mailR库从我闪亮的应用程序发送电子邮件。我的代码是:

send.mail(from,to,subject=subject,body=msg,smtp=
list(host.name = "smtp.gmail.com",port=465,user.name="name",passwd='psswd',ssl=TRUE),
authenticate = TRUE, send=TRUE)

(from、收件人、名称、密码...出于隐私原因,未显示)。
当我运行这段代码时,我得到以下错误:

有人能帮帮我吗?

68bkxrlz

68bkxrlz1#

经过多次尝试,我认为最好的选择是通过mailgun帐户使用“emayili”发送电子邮件

library(shiny)
library(emayili)

ui <- fluidPage(

actionButton("buttonId", "Send email")

)

server <- function(input, output, session) {

observeEvent(input$buttonId, {
    
    smtp <- emayili::mailgun(
        username = "SMTP username ([email protected])",
        password = "SMTP password"
    )
    
    emayili <- envelope()
    emayili <- emayili %>%
        from("sender_email") %>%
        to("receiver_email") %>%
        subject("subject here") %>%
        text("text here")
    
    smtp(emayili, verbose = TRUE)

   })
}

shinyApp(ui, server)

相关问题