R语言blastula包运行smtp_send发邮件报错MAIL failed: 451如何解决

报错原因说明 #

Office365返回SMTP 451错误首先排除你当前的参数配置错误：你设置的use_ssl = F不符合Office365 SMTP服务要求，其次现在微软默认禁用Office365租户的SMTP基本认证策略，无管理员权限无法修改该配置，因此优先选用绕过SMTP协议的发信方案。

方案1：修正SMTP参数优先测试 #

先调整blastula的连接参数，看是否是配置错误导致的报错：

library(blastula)

smtp_send(
  compose_email(body = "hello"),
  to = "hello@hello.com", 
  from = "hello@hello.com", # 必须填写完整邮箱地址，不能只填用户名前缀
  credentials = creds(
    user = "hello@hello.com",
    host = "smtp.office365.com",
    port = 587,
    use_ssl = TRUE,
    use_tls = TRUE
  ))

如果运行后仍然报451错误，说明SMTP基本认证已被禁用，直接使用以下无管理员权限兼容方案。

方案2：通过Graph API发送邮件（全平台兼容，优先推荐） #

使用Microsoft365R包调用Office365官方Graph API发信，无需配置SMTP，无需管理员权限，只要你可以正常网页登录Office365邮箱即可使用：

• 安装依赖包
  install.packages("Microsoft365R")
• 发信代码示例

library(Microsoft365R)

# 调用浏览器完成Office365账号认证，普通用户权限即可
outlook <- get_business_outlook()

# 构造并发送邮件
outlook$create_email(
  content = "hello",
  to = "hello@hello.com",
  subject = "测试邮件"
)$send()

方案3：调用本地Outlook桌面客户端发信（仅限Windows设备） #

如果你的设备已经安装并登录了Outlook桌面客户端，可以直接调用客户端的COM接口发信，完全绕过网络权限限制：

• 安装依赖包
  install.packages("RDCOMClient")
• 发信代码示例

library(blastula)
library(RDCOMClient)

# 构造邮件内容
email <- compose_email(body = "hello")

# 调用本地Outlook客户端发信
outlook_app <- COMCreate("Outlook.Application")
new_mail <- outlook_app$CreateItem(0)
new_mail[["To"]] = "hello@hello.com"
new_mail[["Subject"]] = "测试邮件"
new_mail[["HTMLBody"]] = as.character(email$html_html)
new_mail$Send()

内容的提问来源于stack exchange，提问作者user1713174