4

我正在使用 R 构建一个自动化流程来运行 SQL 查询，将结果放入 Excel 文件中，然后通过 Outlook 将文件通过电子邮件发送给客户。我正在使用带有 R4.0 的 RDCOMClient。每次我运行脚本时，Outlook 中都会弹出一条警告消息，告诉我一个程序正在尝试发送电子邮件，并要求我允许或拒绝该电子邮件。我想禁用此警告消息，以便脚本自动运行，无需我的干预。

因为我使用的是工作机器，我似乎无权使用 Outlook 中的选项禁用此警告，但以下页面似乎表明存在使用 COM 客户端禁用此警告消息的命令。

https://www.add-in-express.com/outlook-security/index.php

禁用有关尝试发送电子邮件的程序的警告

是否有任何命令可以添加到以下通用代码结构中以禁用此警告？

library (RDCOMClient)

# Open Outlook
Outlook <- COMCreate("Outlook.Application")

# Create a new message
Email = Outlook$CreateItem(0)

# Set the recipient, subject, and body
Email[["SentOnBehalfOfName"]] = "email1@domain.com"
Email[["to"]] = paste("email2@domain.com", sep=";", collapse=NULL)
Email[["cc"]] = ""
Email[["bcc"]] = ""
Email[["subject"]] = "Subject"
Email[["body"]] = "Body"
Email[["attachments"]]$Add("C:\\Attachment.xlsx")

# Send the message
Email$Send()

# Close Outlook, clear the message
rm(Outlook, Email)
4

0 回答 0