使用 R 发送邮件

R没有很好的扩展用来发送邮件,因此调用python来发送

library(reticulate)
use_python("/Users/testname/miniconda3/bin/python")

smtp <- import("smtplib")
header <- import("email.header")
emailMessage <- import("email.message")

message <- emailMessage$EmailMessage()
message$add_header("From", "txxx@163.com")
message$add_header("To", "txxx@163.com")
message$add_header("Subject", "来自R的邮件")
message$set_content("这是一封由R发送的邮件")

server <- smtp$SMTP("smtp.163.com", "25")
# server$set_debuglevel(1)
server$login("txxx@163.com", "xxxxxxxx")
server$sendmail("txxx@163.com", list("txxx@163.com"), message$as_string())
server$quit()