Question

我正在尝试使用htmlTable包将数据帧转换为html表，然后使用Microsoft Outlook作为电子邮件客户端使用RDCOMClient包发送电子邮件，方法是将html表附加为主体电子邮件。我是HTML编码的新手，所以我不太熟悉如何使用HTML标签格式化表格。以下是我想要做的一个例子。

# Library to send email from Microsoft Outlook
library(RDCOMClient)
# Library to create HTML table
library(htmlTable)

# Reading data from inbuilt 'mtcars' dataset
x <- head(mtcars)

# Create HTML table
y <- htmlTable(x,
               rnames = FALSE,
               caption="This is from htmlTable package",
               align = paste(rep("c", ncol(x)), collapse = "|"),
               align.header = paste(rep("c", ncol(x)), collapse = "|"))

# add the table as body of the email
body <- paste0("<html>", y, "</html>")

## init com api
OutApp <- COMCreate("Outlook.Application")
## create an email 
outMail = OutApp$CreateItem(0)
## configure  email parameter 
outMail[["To"]] = "test@test"
outMail[["subject"]] = "TEST"
outMail[["HTMLbody"]] = body
## send it                     
outMail$Send()

以上代码有效，我甚至可以获得如下所示的电子邮件输出。

使用Microsoft Outlook中的上述代码发送的电子邮件的输出

我的问题是，如何格式化此表？我希望输出是一个漂亮的表格式，行和列由行分隔。我可以添加列分隔符行，如输出中所示，但我无法添加行分隔符行。我还想调整行和列之间的行间距，并将字体的格式更改为calibri 11.以下是我要查找的输出。

所需的输出，格式化行和列

有关如何使用htmlTable包或任何其他解决方法实现此目的的任何帮助都将非常感激。非常感谢。

更新：以下是解决方案，这要归功于@Syfer提供的宝贵意见。

library(RDCOMClient)
library(htmlTable)

x <- head(mtcars)
html_y <- htmlTable(x, rnames = FALSE)

body <- paste0("<html><head>
               <style>
               body{font-family:Arial, \"sans-serif\";}
               table{border-left:1px solid #000000;border-top:1px solid #000000;}
               table td{border-right:1px solid #000000;border-bottom:1px solid #000000;font-size:12px; font-weight:normal;}
               table th{border-right:1px solid #000000;border-bottom:1px solid #000000;font-size:14px;}
               </style>
               </head><body>",
               html_y, 
               "</body></html>")

OutApp <- COMCreate("Outlook.Application")
outMail = OutApp$CreateItem(0)
outMail[["To"]] = "test@test.com"
outMail[["subject"]] = "TEST EMAIL"
outMail[["HTMLbody"]] = body
outMail$Send()

Microsoft Outlook中的最终输出喜欢这个。

Answer 1

我还没有完成'r'，但语法看起来合乎逻辑，所以我会尝试解决方案：

body <- paste0("<html><head><style>body{font-family:Arial, "sans-serif";}table{border-left:1px solid #000000;border-top:1px solid #000000;}table td{border-right:1px solid #000000;border-bottom:1px solid #000000;font-size:16px; font-weight:normal;}table th{border-right:1px solid #000000;border-bottom:1px solid #000000;font-size:16px; font-weight:bold;}</style></head><body>", y, "</body></html>")

基本上我已经为你的代码添加了一些东西：

html文档的头部，其中包含您要发送的HTML文档的样式。
身体的开始和结束标记。

<style>
    body{font-family:Arial, "sans-serif"}
    table{border-left:1px solid #000000;border-top:1px solid #000000;}
    table td{border-right:1px solid #000000;border-bottom:1px solid #000000;font-size:16px; font-weight:normal;}
    table th{border-right:1px solid #000000;border-bottom:1px solid #000000;font-size:16px; font-weight:bold;}
</style>

从上面的CSS中你应该能够根据自己的喜好选择边框颜色和字体。表格在电子邮件中呈现后，应显示类似于：

的内容

如果这对您有用，请告诉我。

干杯

使用R

1 个答案: