我有一个每天用来发送邮件的代码，我使用 xtable 包来完成它。
但最近，我已经习惯使用弹性表，因为它更符合我的要求。
但是当我更改代码以使用 flextable 函数时，我发送的只是一封没有正文的空白邮件。
这是示例数据集
samplemondata<-structure(list(Root.Cause = c("Blocking", "Created in Error",
"Duplicate", "Horizontal liquid bottle", "Overhanging", "Title Not Facing Out",
"Trash in the Bin", "Units Not Stowed Securely", "Unorganized",
"Wrong Bin Type"), BCN1 = c("109", "", "", "", "", "70", "",
"7", "1", "6"), FCO1 = c("98", "1", "", "1", "", "31", "4", "4",
"", "4"), FRA7 = c("401", "", "", "", "2", "260", "", "2", "",
"100"), HAM2 = c("414", "", "", "", "1", "115", "", "1", "1",
"44"), LCY2 = c("230", "", "", "1", "1", "102", "", "3", "",
"15"), LTN4 = c("30", "", "", "", "", "7", "", "", "", ""), MAN1 = c("66",
"", "", "", "1", "22", "3", "1", "", "3"), MAN2 = c("104", "",
"", "", "", "50", "", "2", "", "12"), MAN3 = c("92", "", "",
"1", "", "36", "", "1", "", "5"), SZZ1 = c("344", "", "", "",
"2", "114", "1", "15", "", "10")), row.names = c(NA, -10L), class = "data.frame")
请找到下面的代码。
library(sendmailR)
library(dplyr)
library(flextable)
msgJP <- try(mime_part(paste('<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0
Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta name="viewport" content="width=device-width, initial-scale=1.0"/>
<title>HTML demo</title>
<style type="text/css">
</style>
</head>
<body>',"hello,<br>","check out the data for self audit.","<br>",print(flextable(samplemon),include.rownames = FALSE, type = 'html'),'</body>
</html>')))
msgJP[["headers"]][["Content-Type"]] <- "text/html"
body <- list(msgJP)
from <- "[email protected] /cdn-cgi/l/email-protection"
to<-c("[email protected] /cdn-cgi/l/email-protection")
subject <- paste0("Why is this not working?")
sendmail(from, to, subject, body, control = list(smtpServer="smtp.amazon.com"))
任何帮助，将不胜感激。谢谢。
