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

Question

我有一个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

弹出的错误消息（不是我处理的，似乎直接来自于救赎）是：

该程序无法启动，因为您的计算机缺少OutlookServicing.dll。尝试重新安装程序以解决此问题。

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

没有人有任何想法怎么做吗？文件OutlookServicing.dll位于C：\ Program Files \ Microsoft Office \ root \ Office16，无论如何我都希望在这里找到它。

提前感谢。

Answer 1

OutlookServicing.dll是一个Office组件，负责检查更新等。是否可以重新安装Office？