如何在R Shiny中从联系人表单发送电子邮件

library(mailR)

sender <- "your_email@gmail.com"  # 发件人邮箱地址
password <- "your_password"  # 发件人邮箱密码

# 邮件服务器设置
smtp <- list(host.name = "smtp.gmail.com",  # 用于发件的SMTP服务器，此处为Gmail示例
             port = 465,
             ssl = TRUE,
             user.name = sender,
             passwd = password)

to <- "recipient@example.com"  # 收件人邮箱地址
subject <- "邮件主题"
body <- paste("姓名：", input$nameInput, "<br>",
              "邮件地址：", input$emailInput, "<br>",
              "消息内容：", input$messageInput, sep = "")

email <- compose(from = sender,
                 to = to,
                 subject = subject,
                 body = body,
                 html = TRUE)

send.mail(email, smtp = smtp, authenticate = TRUE, send = TRUE)

library(shiny)
library(mailR)

ui <- fluidPage(
  textInput("nameInput", "姓名："),
  textInput("emailInput", "邮件地址："),
  textAreaInput("messageInput", "消息内容："),
  actionButton("sendButton", "发送")
)

server <- function(input, output, session) {
  observeEvent(input$sendButton, {
    sender <- "your_email@gmail.com"  # 发件人邮箱地址
    password <- "your_password"  # 发件人邮箱密码

    # 邮件服务器设置
    smtp <- list(host.name = "smtp.gmail.com",  # 用于发件的SMTP服务器，此处为Gmail示例
                 port = 465,
                 ssl = TRUE,
                 user.name = sender,
                 passwd = password)

    to <- "recipient@example.com"  # 收件人邮箱地址
    subject <- "邮件主题"
    body <- paste("姓名：", input$nameInput, "<br>",
                  "邮件地址：", input$emailInput, "<br>",
                  "消息内容：", input$messageInput, sep = "")

    email <- compose(from = sender,
                     to = to,
                     subject = subject,
                     body = body,
                     html = TRUE)

    send.mail(email, smtp = smtp, authenticate = TRUE, send = TRUE)
    showModal(modalDialog(
      title = "邮件发送成功",
      "已成功发送电子邮件！"
    ))
  })
}

shinyApp(ui, server)