MacBook Pro中VBA调用Outlook触发Run-time error '429'问题求助

运行以下VBA代码时，在Set OutApp = CreateObject("Outlook.Application")行触发Run-time error '429': ActiveX component can't create object错误，设备为MacBook Pro。

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

Mac版Office的VBA不支持Windows平台的ActiveX组件调用逻辑，针对Mac环境需改用以下适配方案：

方案1：通过AppleScript调用Mac Outlook #

用AppleScript桥接Mac Outlook，替换原代码为：

Sub Mail_To_Mac()
    Dim scriptStr As String
    Dim filePath As String
    
    ActiveWorkbook.Save
    filePath = ActiveWorkbook.FullName
    
    ' 构建AppleScript脚本
    scriptStr = "tell application ""Microsoft Outlook""" & Chr(13) & _
                "set newMail to make new outgoing message with properties {subject:"""", content:""" & _
                "<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""" & _
                ", html content:true}" & Chr(13) & _
                "make new attachment at end of attachments of newMail with properties {file name:""" & filePath & """}" & Chr(13) & _
                "open newMail" & Chr(13) & _
                "end tell"
    
    ' 执行AppleScript
    MacScript scriptStr
End Sub

方案2：使用Excel内置SendMail方法（无需Outlook） #

若无需依赖Outlook，可直接用Excel内置邮件功能，前提是Mac默认邮件客户端已配置：

Sub Mail_To_Mac_Simple()
    ActiveWorkbook.Save
    
    With ActiveWorkbook
        .SendMail _
            Recipients:="", _
            Subject:="", _
            ReturnReceipt:=False
    End With
End Sub

注意事项 #

• 确保Mac版Microsoft Outlook已安装并登录账号
• 运行脚本前，在系统偏好设置→安全性与隐私→隐私→自动化中，勾选允许Excel控制Microsoft Outlook
• Mac版Office VBA不支持OutApp.Session.Logon这类Windows专属方法，无需添加登录逻辑

内容的提问来源于stack exchange，提问作者user20817578