通过 R 回复所有 Outlook 电子邮件

Question

我想在 Outlook 中回复所有电子邮件（例如，下面 emails 中的第一个对象），但无法协调如何创建新邮件对象reply all emails.

中的第一个对象

require(RDCOMClient)
require(tidyverse)
OutApp <- COMCreate("Outlook.Application")
search <- OutApp$AdvancedSearch("Inbox", "urn:schemas:mailheader:date > '2020-12-7 00:12:30'") # searches emails sent in the last few hours
results <- search$results()
emails <- purrr::map(seq(results$Count()), function(x) results$Item(x))

这些电子邮件将带有特定属性，例如唯一的 Outlook ID 等，但我不太确定从那里去哪里。

下面，我们可以创建一个 Outlook 项目，但我们如何编辑该电子邮件并将路由作为 ReplyAll() 发送到我们已标记的特定电子邮件？

outMail = OutApp$CreateItem(0) # Object type 0 = mail item
outMail[["HTMLbody"]] = "Hi everyone in this email chain. I sent this with R. Crazy!"
*outMail$ReplyAll(???)* # What here? Eternal mystery

另一个我幸运的潜在选择是 mailR package，但不知道如何回复特定的电子邮件。

require(mailR)

send.mail(from = "myemail@acct.com", to = "listofrecpts@acct.com",
          subject = "Subject",
          body = "This is supposed to be a reply all...",
          html = TRUE, inline = TRUE,
          smtp = list(host.name = "10.24.3.5", port = 25),
           authenticate = FALSE, send = TRUE)

唉，我不知道如何将它指向 Outlook 中的另一个电子邮件对象，即使我有特定的 pointer/email ID。

有什么建议吗？

Answer 1

您需要从结果集合中检索特定项目并调用 MailItem.Reply 或 MailItem.ReplyAll 而不是 Application.CreateItem。

通过 R 回复所有 Outlook 电子邮件

Reply all to an Outlook email via R

r

email

outlook

rdcomclient