R 3.5.1环境下如何用OAuth改写mailR发邮件代码？

可以实现基于OAuth2.0的邮件发送并继续使用mailR::send.mail()函数，核心思路是用ROAuth获取谷歌OAuth2.0访问令牌，再将令牌传入mailR的SMTP配置中。以下是具体步骤：

1. 准备谷歌OAuth2.0凭据 #

• 登录谷歌云平台控制台，创建新项目并启用Gmail API。
• 创建OAuth客户端ID，选择「桌面应用」类型，记录生成的client_id和client_secret。

2. 使用ROAuth获取访问令牌 #

利用ROAuth库完成OAuth授权流程，获取可用于Gmail发送的访问令牌：

library(ROAuth)

# 替换为你的谷歌OAuth凭据
client_id <- "你的客户端ID"
client_secret <- "你的客户端密钥"

# 定义谷歌OAuth端点与应用信息
oauth_endpoint <- oauth_endpoints("google")
oauth_app <- oauth_app("google", key = client_id, secret = client_secret)

# 请求Gmail发送权限，获取令牌
# scope可选"https://mail.google.com/"（全权限）或"https://www.googleapis.com/auth/gmail.send"（仅发送权限）
token <- oauth2.0_token(
  endpoint = oauth_endpoint,
  app = oauth_app,
  scope = "https://www.googleapis.com/auth/gmail.send",
  cache = TRUE  # 设为TRUE可缓存令牌，避免每次重复授权
)

运行后会弹出浏览器，登录你的谷歌账号完成授权，授权成功后令牌会被保存。

3. 配置mailR发送邮件 #

修改原有的send.mail()调用，将SMTP认证机制改为XOAUTH2，并传入ROAuth获取的访问令牌：

library(mailR)

send.mail(
  from = "你的谷歌邮箱@gmail.com",
  to = c("收件人邮箱@example.com"),
  subject = "OAuth认证测试邮件",
  body = "这是通过ROAuth+mailR发送的OAuth2.0认证邮件",
  smtp = list(
    host.name = "smtp.gmail.com",
    port = 587,
    user.name = "你的谷歌邮箱@gmail.com",
    passwd = token$credentials$access_token,  # 此处传入OAuth访问令牌而非密码
    ssl = TRUE,
    authmechanism = "XOAUTH2"  # 指定认证机制为XOAUTH2
  ),
  authenticate = TRUE,
  send = TRUE
)

关键注意事项 #

• 确保Gmail API已在谷歌云平台启用，否则会出现权限错误。
• 若使用谷歌工作区（原G Suite）账号，需联系管理员允许该OAuth应用访问邮箱服务。
• 访问令牌默认1小时过期，cache=TRUE会让ROAuth自动处理令牌刷新；若手动刷新，可调用token$refresh()。
• 测试阶段优先发送邮件到自己的邮箱，验证流程是否正常。

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