VBA ActiveX 组件在尝试通过 email 发送附件时无法创建 Object 错误

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

I keep getting an error at the following line:Set OutApp = CreateObject("Outlook.Application").It says Run-time error '429':ActiveX component can't create object. I am on a MacBook Pro. Any help to resolve this will be appreciated.

Answer 1

I think "Outlook.Application" is a Windows Registry entry for the class.

I don't think the MacOS has a Windows Registry.

Answer 2

The CreateObject function creates and returns a reference to an ActiveX object which is absent on the target machine. The ActiveX technology is based on COM which doesn't exists on the MAC OS. There is no such technology, that is a pure MS thing available on Windows only.

Consider using AppleScript to automate Office applications instead.