通过 Blastula smtp_send() 凭据发送 email

Question

我在 Blastula 中遇到了凭证问题。 以下是我的代码

library(blastula)
library(glue)

email <- compose_email(body = md(email_body))
cs<-create_smtp_creds_file(
  file = "filename",
  user = "username",
  host = "smtp server",
  port = 25,
  use_ssl = TRUE
)
email %>%
  smtp_send(
    from = "sender",
    to = "receiver",
    subject = "Testing the `smtp_send()` function",
    credentials = creds_file(file = "filename")
  )

当我创建它提示输入 smtp 密码的文件时，我提供它并生成一条消息“已生成 SMTP 凭据文件（ filename ）”。 当我运行 smtp 发送时，它会引发以下错误： curl::curl_fetch_memory(url, handle = h): SSL 中的错误