从PowerPoint调用Outlook宏时触发Error 438错误的问题

Error 438的核心原因是：Outlook的ThisOutlookSession属于类模块，而非标准模块，无法通过Outlook.Application.Run直接调用其中的过程。以下是两种可行的解决办法：

方法一：将Outlook宏移至标准模块（推荐） #

这是最简单直接的方案：

1. 打开Outlook的VBA编辑器（按Alt+F11）
2. 在左侧项目窗口右键点击Outlook项目，选择插入→模块
3. 将原ThisOutlookSession中的TestOutlook函数复制到新建的标准模块中，保持Public修饰：

Public Function TestOutlook()
    MsgBox "You have reached Microsoft Outlook"
End Sub

4. 修改PowerPoint中的调用代码，去掉ThisOutlookSession.前缀：

Sub RunOutlookMacro()
    Dim OutlookApp As Object
  
    Set OutlookApp = GetObject(, "Outlook.application")

    OutlookApp.Run "TestOutlook"  '直接调用标准模块中的宏

    Set OutlookApp = Nothing
End Sub

如果标准模块有自定义名称（比如不是默认的Module1），也可以写成OutlookApp.Run "模块名.TestOutlook"。

方法二：保留在ThisOutlookSession中（进阶方案） #

如果必须将宏留在ThisOutlookSession，需要通过类实例访问，但步骤更繁琐：

1. 在ThisOutlookSession中添加一个返回自身实例的公共属性：

Public Property Get ThisSession() As ThisOutlookSession
    Set ThisSession = Me
End Property

Public Function TestOutlook()
    MsgBox "You have reached Microsoft Outlook"
End Function

2. 修改PowerPoint中的调用代码，通过实例调用函数：

Sub RunOutlookMacro()
    Dim OutlookApp As Object
    Dim outlookSession As Object
  
    Set OutlookApp = GetObject(, "Outlook.application")
    Set outlookSession = OutlookApp.Session.ThisSession

    outlookSession.TestOutlook

    Set outlookSession = Nothing
    Set OutlookApp = Nothing
End Sub

额外注意事项 #

• 确保Outlook和PowerPoint的宏安全设置允许启用宏：打开各自的文件→选项→信任中心→信任中心设置→宏设置，选择"启用所有宏"（或使用数字签署的宏，更安全）。
• 运行代码前确保Outlook已经处于打开状态（GetObject需要已运行的Outlook实例），如果要处理未打开的情况，可以改用CreateObject("Outlook.application")。

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