使用RDCOMClient包从R调用Outlook VBA代码报错求助

我之前用shell/vbs脚本实现过从R运行Outlook VBA代码，但现在想改用RDCOMClient包来做。参考了相关内容后，我在Outlook的ThisOutlookSession里定义了Public Sub dss()，然后执行以下R代码：

library(RDCOMClient)
OutApp <- COMCreate("Outlook.Application")
oa<-OutApp[["Session"]][["Accounts"]]
OutApp$dss()

结果报错：

Error in .COM(x, name, ...) : Cannot locate 0 name(s) dss in COM object (status = -2147352...)

我之前也踩过这个坑，核心原因是：ThisOutlookSession里的公共子程序属于Outlook的会话类对象，并非Application对象的直接方法，所以直接用OutApp$dss()找不到这个子程序。给你两个可行的解决办法：

办法一：将VBA子程序移到普通模块中 #

把dss子程序从ThisOutlookSession移到新建的普通模块里，这样Application对象就能直接识别并调用它：

• 打开Outlook的VBA编辑器（按Alt+F11）
• 在左侧项目窗口右键点击你的Outlook项目，选择「插入」→「模块」
• 把Public Sub dss()的代码复制粘贴到这个新模块里
• 保存后，重新运行你的R代码，OutApp$dss()就能正常执行了

办法二：用Outlook的Run方法指定调用ThisOutlookSession里的子程序 #

如果不想移动代码，也可以通过Application对象的Run方法，直接指定子程序的完整路径来调用：
修改后的R代码如下：

library(RDCOMClient)
OutApp <- COMCreate("Outlook.Application")
# 调用ThisOutlookSession中的dss子程序
OutApp$Run("ThisOutlookSession.dss")

注意事项 #

• 确保Outlook已经启用宏（如果宏被禁用，外部调用会被阻止）
• 确认dss子程序是Public修饰的，私有子程序（Private Sub）无法被外部调用

内容的提问来源于stack exchange，提问作者Tlatwork