兑换:创建第一个 Redemption.SafeMailItem 时出错 - 缺少 OutlookServicing.dll

Redemption: Error when creating first Redemption.SafeMailItem - missing OutlookServicing.dll

我有一个 VB.Net 应用程序,其中一个功能是提取共享邮箱的内容列表并在网格中显示该列表。这多年来一直运行良好,但我们最近将一些帐户在线升级到 Office 365,这些帐户现在在首次访问邮箱时会抛出一条消息。代码的简化版本如下:

Dim objOutlook As New Outlook.Application
Dim objNameSpace As Object = objOutlook.GetNamespace("MAPI")
Dim astrFolders() As String = Split(gstrDeptMailbox, "\")
Dim intCount As Integer = 0
Dim objFolder As Object = objNameSpace.Folders(astrFolders(0))
For intCount = 1 To astrFolders.GetUpperBound(0)
     objFolder = objFolder.Folders(astrFolders(intCount))
Next
Dim objMailItems As Object = objFolder.Items
objMailItems.Sort("ReceivedTime", True)
Dim astrColumns(5) As Object
Dim intRow As Integer
Dim objItem As Outlook.MailItem
Dim objSafeMail As New Redemption.SafeMailItem ' <-- Errors here
For Each objItem In objMailItems
    If Not objItem Is Nothing Then
        ' Blah
    End If
Next

弹出的错误消息(不是我处理的,似乎是直接来自 Redemption)是:

The program can't start because OutlookServicing.dll is missing from your computer. Try reinstalling the program to fix this problem.

这只会在第一次创建 SafeMailItem 时发生 - 之后一切正常 - 在消息上按 OK 后,代码继续正常运行,没有错误或失败;邮箱内容被提取并照常显示。

有人知道该怎么办吗?文件 OutlookServicing.dll 位于 C:\Program Files\Microsoft Office\root\Office16,在任何情况下我都希望在该位置找到它。

提前致谢。

OutlookServicing.dll 是一个 Office 组件,负责检查更新等。 重新安装 Office 是一种选择吗?