Outlook VBA中从用户窗体调用公共Sub提示‘未定义’错误求助

你遇到的问题可能由以下几个原因导致，按优先级排查：

1. ThisOutlookSession模块存在编译错误（最可能） #

你提供的FindQuotes子程序代码缺少End Sub语句，这会直接导致模块编译失败，Outlook无法加载该模块的公共成员，因此用户窗体调用时会提示“未定义”。修正后的代码应该是：

Public Sub FindQuotes()
    ' 这里添加你的业务代码
End Sub

2. 未明确指定子程序的模块作用域 #

用户窗体作为独立模块，有时无法直接识别其他模块的公共子程序，需要明确指定模块名称调用，修改按钮点击事件代码为：

Option Explicit
Private Sub CommandButton1_Click()
    Repaint
    
    Call ThisOutlookSession.FindQuotes
End Sub

Private Sub UserForm_Click()

End Sub

3. ThisOutlookSession模块未被正确加载 #

如果该模块之前有过编译错误，即使修复后，可能需要重启Outlook让模块重新加载。关闭所有Outlook进程后重新打开，再测试调用。

4. 宏安全设置限制 #

如果Outlook的宏安全级别设置为“禁用所有宏”或“仅启用签署的宏”，可能会阻止模块间的调用。可以临时将安全级别调整为“启用所有宏”（仅用于测试，测试完成后调回安全级别），路径：文件 > 选项 > 信任中心 > 信任中心设置 > 宏设置。

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