r - 如何使用 RDCOMClient 将我的 Outlook 电子邮件签名添加到 COM 对象

我正在将 RDCOMClient 用于我的一些工作流程，感谢 agstudy 的回答 Here，我能够通过 r 发送电子邮件，但我不知道如何添加我的 Outlook 电子邮件签名。我是 COM 对象的新手，但已经做了相当多的搜索，但没有找到任何东西。因为我的声誉还没有达到 50，所以我无法在初始线程上发表评论。有人可以告诉我如何添加 Outlook 电子邮件签名吗？

library(RDCOMClient)
OutApp <- COMCreate("Outlook.Application")
outMail = OutApp$CreateItem(0)
outMail[["To"]] = "[email protected]"
outMail[["subject"]] = "some subject"
outMail[["body"]] = "some body"
## I want to add my outlook signature here.
outMail$Send()

最佳答案

考虑使用 Outlook 的 GetInspector() 属性。假设你有一个自动签名，分配一个变量来捕获默认正文，然后连接到你的后一条消息:

library(RDCOMClient)

olMailItem = 0
OutApp <- COMCreate("Outlook.Application")
outMail <- OutApp$CreateItem(olMailItem)

outMail$GetInspector()
signature = outMail[["HTMLBody"]]

outMail[["Recipients"]]$Add("[email protected]")
outMail[["Subject"]] = "some subject"
outMail[["HTMLBody"]] = paste0('<p>some body', signature, '</p>')

outMail$Display()
outMail <- NULL
OutApp <- NULL