Excel VBA for MAC OS - Email Workbook

If I want to attach an Excel workbook to an email in Outlook that is MAC compatible, do I need to write a routine in Apple Script as described by Ron DeBruin in 2012?

When I use the code below, my MAC users get a run-time error 429: "ActiveX component can't create object". But there are no ActiveX form objects in the file

Sub AttachEmail()
Dim sFileName As String, sEmployeeName As String, sFileDate As String, sSender As String
Dim sFileDateExt As String, sCurrFileName As String, sFilePath As String, sFullPath As String
Dim sLocation As String, sTK_Loc As String
Dim OutApp As Object, OutMail As Object

On Error Resume Next
    Set OutApp = GetObject(, "Outlook.Application")
On Error GoTo 0
If OutApp Is Nothing Then
    Set OutApp = CreateObject("Outlook.Application")
End If

Set OutMail = OutApp.CreateItem(0)

With Sheet1
    sEmployeeName = .Range("B2").Value
    sLocation = .Range("C2").Value
    sTK_Loc = .Range("D2").Value
End With
sFileDate = Sheet4.Range("E14").Value
sFileDateExt = Year(sFileDate) & "." & Format(Month(sFileDate), "00") & ".xlsm"
sFileName = sEmployeeName & " - " & sTK_Loc & " Timesheet - " & sFileDateExt
sFilePath = ActiveWorkbook.Path
sFullPath = sFilePath & "/" & sFileName

Application.ScreenUpdating = False
With Sheet4
    If .ProtectContents = True Then
    End If
       .Range("O3:P3") = Array("Submitted:", Now())
       .Range("O4:P4") = Array("Sender:", OutApp.session.accounts.Item(1).DisplayName)
End With
Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs (sFullPath)
Application.DisplayAlerts = True
Application.ScreenUpdating = True

On Error Resume Next
With OutMail
    .to = "HRTimesheets@yourcompany.com"
    .Subject = sFileName
    .Attachments.Add ActiveWorkbook.FullName
End With
On Error GoTo 0

Set OutMail = Nothing
Set OutApp = Nothing
ActiveWorkbook.Close SaveChanges:=True
End Sub
DavisroBudget AnalystAsked:
Who is Participating?

[Product update] Infrastructure Analysis Tool is now available with Business Accounts.Learn More

I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Roy CoxGroup Finance ManagerCommented:
I don't use a mac, but Ron de Bruin has lots of code for emailing using a Mac.

Send mail from Mac

You can add code that detects the Operating System and chooses which email macro to use.

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Roy CoxGroup Finance ManagerCommented:
Hopefully you found something to fix your code there.
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Swift Programming

From novice to tech pro — start learning today.