一个关于打开Outlook中“对话历史“文件夹报错的故障修复

Posted 2023-03-21

故障背景

当打开Outlook客户端的Conversation history(对话历史文件夹)时，会出现如下报错：

“为防止恶意编码运行，此表单中的一个或多个对象未被加载。详细信息，请与系统管理员联系。”

"To help prevent malicious code from running one or more objects in this were not loaded. For more information contact  your administrator."

解决方案

方法一

点击Outlook客户端左上角 File-->Options-->Advanced-->"Custom Forms..." button-->"Manage Forms..." 按钮，之后查看下面的框中是否有任何内容，如果有的话，清除掉所有文件即可。

方法二

请检查注册表中是否有如下键值:

HKEY_CURRENT_USER\\Software\\Microsoft\\Office\\Common\\Security\\DisableAllActiveX

如果有，请将键DisableAllActiveX的值改为0即可。

方法三

如果特定客户端出现问题，请尝试重新生成用户Windows配置文件，然后再次检查问题是否修复。

您也可以尝试使用安全模式打开outlook。

另外根据研究，这似乎是Lync的会话历史加载项的问题。请同时尝试禁用加载项，之后查看这些消息是否可以访问。

在Outlook中打开文件对话框（VBA）错误438

我正在尝试通过VBA在Outlook中打开文件对话框。 （Outlook 2010）

使用以下代码我得到一个错误：

运行时错误438.对象不支持此属性或方法

Private Sub btn_openPST_Click()
    Dim oFileDialog As FileDialog
    Set oFileDialog = myAppl.FileDialog(msoFileDialogFilePicker)
    With oFileDialog
        .Title = "Select your PST File"
        .ButtonName = "Ok"
        .Show
    End With
End Sub

myAppl是一个Outlook.Application对象：

Dim myAppl As Outlook.Application
Set myAppl = CreateObject("Outlook.Application")

答案

我不认为Outlook可以打开文件选择器。我解决方法是打开Excel工作表，然后打开文件选择器，然后关闭Excel工作表。请尝试以下代码，并确保将“Microsoft Excel 14.0对象库”参考导入Outlook。

Private Sub openFDinOutlook()

    Dim xlObj As Excel.Application
    Dim fd As Office.FileDialog

    Set xlObj = New Excel.Application
    xlObj.Visible = False
    Set fd = xlObj.Application.FileDialog(msoFileDialogFolderPicker)
    With fd
        .Title = "Select your PST File"
        .ButtonName = "Ok"
        .Show
    End With
    xlObj.Quit
    Set xlObj = Nothing


End Sub