Outlook VBA出现运行时错误‘；13&x2019；：类型不匹配，但类型匹配

我有一个

VbaProject.OTM

文件，它随我一起在PC上运行，其中包含我自己开发的代码。在PC之间的电流传输中，我使用的

Sub

s中的一个批次停止工作。 在新电脑上，它会出现运行时错误“13”：类型不匹配。 产生错误的代码是

Sub ArchiveConversation()
    Dim objsrc As Object
    Set objsrc = email.GetCurrentItem()
    Dim oOlConv As Outlook.Conversation
    Set oOlConv = objsrc.GetConversation()
    Debug.Print TypeName(oOlConv)           ' <-- Prints "Conversation"
    Call dumpConversation(oOlConv)          ' <-- Error line
    ...
End Sub

Sub dumpConversation(oOlConv As Outlook.Conversation)
    Debug.Print dumpConversationMsg(oOlConv)
End Sub

Public Function dumpConversationMsg(oOlConv As Outlook.Conversation) As String
    Dim straux As String
    straux = "Dumping conversation " & vbCrLf
    dumpConversationMsg = straux
End Function

子架构转换（）
Dim objsrc作为对象
设置objsrc=email.GetCurrentItem（）
Dim ool conv作为Outlook.Conversation
Set oOlConv=objsrc.GetConversation（）
Debug.Print TypeName（oOlConv）“dumpConversationMsg返回的对象类型可能不是字符串