VBA ActiveX组件在尝试通过电子邮件发送附件时无法创建对象错误

Question

Sub Mail_To()

Dim OutApp As Object
Dim OutMail As Object
ActiveWorkbook.Save
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = ""
.CC = ""
.BCC = ""
.Subject = ""
.HTMLBody = "<BR><BR>" & _
"Thanks,<BR><BR>" & _
"<B>Jack</B><BR><BR>" & _
"Quant<BR>" & _
"XYZ tech<BR>" & _
"10 Nt Dr<BR>" & _
"Suite 3980<BR>" & _
"Anchorage, AL 12345"
.Attachments.Add ActiveWorkbook.FullName
.Display   'or use .Send
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

我一直得到一个错误在以下行:设置OutApp = CreateObject("Outlook.Application")。它说运行时错误'429':ActiveX组件不能创建对象。我用的是MacBook Pro。如果您能帮忙解决这个问题，我将不胜感激。

Answer 1

我认为" outlook . application ";是类的Windows注册表项。

我不认为MacOS有Windows注册表。

Answer 2

CreateObject函数创建并返回对目标机器上不存在的ActiveX对象的引用。ActiveX技术是基于COM的，这在MAC OS上是不存在的。没有这样的技术，这是纯微软的东西，只能在Windows上使用。

考虑使用AppleScript来自动化Office应用程序。