小编rba*_*kam的帖子

我的任务是在 Microsoft Access 系统上修复 VB 中的一个问题，但我无法弄清楚。此问题仅发生在运行该软件的 5 台 PC 之一上。我试过了

• 删除 Outlook & Access 并重新安装。
• 删除 Microsoft Access 应用程序并重新安装它。
• 更改了代码以匹配我在另一个站点上找到的答案。

这段代码带来了一个错误 代码如下。

    Dim objOutlook As Outlook.Application
    Dim objMailItem As MailItem
    Dim db As DAO.Database

    'Create email object and send attachment

    Set objOutlook = DetectOutlook()
    If objOutlook Is Nothing Then
        Set objOutlook = New Outlook.Application
    End If

我尝试按照另一个网站上的建议将其更改为此。

    Dim objOutlook As Object
    Dim objMailItem As MailItem
    Dim db As DAO.Database

    'Create email object and send attachment

   If GetObject(, "Outlook.Application") = True …