VBA – 如何绑定早期的Outlook应用程序

一切工作正常，直到我做了Windows 10升级。 然后，我试图从Excel发送电子邮件时，开始出现运行时错误：

运行时错误'-2147417851（80010105）'：对象'_MailItem'的方法'到'失败

造成这种情况的代码是：

Dim aOutlook As Object .... Set aOutlook = CreateObject("Outlook.Application") Set aEmail = aOutlook.CreateItem(0) aEmail.To = "emailaddress" 

我被告知，这是因为我是“后来”的绑定，这是一个错误（见这里 ）。 要绑定'早'我已经尝试了以下内容：

 Dim aOutlook As Outlook.Application Dim aMail As Outlook.MailItem Set aOutlook = New Outlook.Application Set aEmail = aOutlook .CreateItem(olMailItem) aEmail.To = "emailaddress" aEmail.Display 

这不起作用，现在我得到的错误：

Microsoft Office Excel正在等待另一个应用程序来完成一个OLE操作。

最初给出相同的错误之前。 任何人都可以指出我要去哪里错了吗？

Answer 1

这有点奇怪，但这是答案。 在我的简单问题，我说：

 aEmail.To = "emailaddress" 

但我确实有过

 aEmail.To = Cells(IntCurrentRow, 3) 

其中Cells（IntCurrentRow，3）包含电子邮件地址。 这似乎是问题。 当我把它下面的工作。

 emailAddress = Cells(IntCurrentRow, 3) aEMail.To = emailAddress 

我不知道为什么不直接采取地址，但改变这个问题已经解决了这个问题。 感谢所有的build议。