显示邮件项会生成运行时错误 -2147467259

Question

如果conversationID 与请求相同，我将遍历MailItem 集合以显示MailItem。

但是，似乎当搜索的项目不在 ActiveSelection 上并且调用 MailItem.Display 函数时，它会产生“运行时错误 -2147467259”

Outlook 无法执行此操作，因为对话框已打开。 请关闭它并重试。

这是代码

'  email_link_Click()                                                                   '
'           -> Compares the ConversationID sent through to get the email                '
Sub email_link_Click()
    Dim searchFolder As Object

    Set olNs = Application.GetNamespace("MAPI")
    Set olFldr = olNs.GetDefaultFolder(olFolderInbox)
    Set searchFolder = olFldr

    If Not Me.email_folder.Caption = "Inbox" Then
       Set searchFolder = olFldr.Folders(Me.email_folder.Caption)
    End If

    searchFolder.Items.Sort "[Subject]", False

    For Each emailvar In searchFolder.Items
        If emailvar.ConversationID = Me.conversationID_label.Caption Then
            FilingPrint ("Found email - Opening..")
            emailvar.Display '<- Error is created from here
            Exit Sub
        End If
    Next emailvar

    Set searchFolder = Nothing
End Sub

这是因为它不能同时查看两封电子邮件吗？

Answer 1

所以最后的问题是，我实际上打开了 2 个视图实例。 我没有花太多时间在上面，而是创建了一个看起来像电子邮件视图的用户表单，并从解析的 MailItem 对象中提取详细信息。