使用VB6错误在Windows 10上通过Outlook发送电子邮件：运行时287-应用程序定义或对象定义的错误

Question

我们在Windows 7和Windows 10上都运行了旧的Visual Basic 6应用程序。

功能之一是用于通过Outlook桌面客户端发送外发电子邮件。

在Windows 7计算机上运行的同一应用程序在Windows 10 PC上无法运行。 Windows 10 PC上没有发送电子邮件。

Public Sub SendOlMail(Subject As String, attachment As String, Recipient As String, bodytext As String)

Const olMailItem = 0

Dim objOutl As Object
Dim objMailItem As Object

Set objOutl = CreateObject("Outlook.Application")
Set objMailItem = objOutl.CreateItem(olMailItem)

objMailItem.Recipients.Add Recipient
objMailItem.Subject = Subject
objMailItem.Body = bodytext
objMailItem.Attachments.Add attachment
objMailItem.Send

Set objMailItem = Nothing
Set objOutl = Nothing

End Sub

删除On Error Resume Next后，我在Windows 10 PC上收到错误消息。

  

运行时287-应用程序定义或对象定义的错误

我发现错误发生在objMailItem.Recipients.Add Recipient行上，并且看起来像Windows 10 PC中缺少的东西。

试图以管理员身份运行该应用，但仍无法正常工作。