7

私はワークフローの一部に RDCOMClient を使用しています。agstudy の回答のおかげで、rを介してメールを送信できますが、Outlook のメール署名を追加する方法がわかりません。私は COM オブジェクトは初めてですが、かなりの数の検索を行ってきましたが、何も見つかりませんでした。私の評判はまだ50に達していないので、最初のスレッドにコメントして質問することができませんでした. Outlook の電子メール署名を追加する方法を教えてもらえますか?

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

1 に答える 1

10

Outlook のGetInspector()プロパティの使用を検討してください。自動署名があると仮定すると、変数を割り当ててデフォルトの本文をキャプチャし、後者のメッセージに連結します。

library(RDCOMClient)

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

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

outMail[["Recipients"]]$Add("dest@dest.com")
outMail[["Subject"]] = "some subject"
outMail[["HTMLBody"]] = paste0('<p>some body', signature, '</p>')

outMail$Display()
outMail <- NULL
OutApp <- NULL
于 2016-06-17T00:05:16.417 に答える