Is there a compatible VB code for Mac and PC? The below code works fine for the PC users, but not for Mac users. Here is the command that is failing (debug results): Set OutlookApp = CreateObject("Outlook.Application") Mac user is running on version 14.2.5 

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
Cancel As Boolean)

Dim answer As String

answer = MsgBox("Email CPC Scheduler Message?", vbYesNo)
 
If answer = vbNo Then Cancel = False
If answer = vbYes Then
'open outlook type stuff
Set OutlookApp = CreateObject("Outlook.Application")
Set OlObjects = OutlookApp.GetNamespace("MAPI")
Set newmsg = OutlookApp.CreateItem(olMailItem)
'add recipients
'newmsg.Recipients.Add  ("your name here")
newmsg.Recipients.Add ("yourname@name.biz")
'add recipients
'newmsg.Recipients.Add ("your name here")
newmsg.Recipients.Add ("yourname@name.biz")
'add subject
newmsg.Subject = "2011 Audit Schedule Message Board Update!!"
'add body
newmsg.Body = "Testing Only"
newmsg.Display 'display
newmsg.Send 'send message
'give conformation of sent message
MsgBox "CPC Notification Sent", , "Email Notification"


End If


'save the document
'Me.Worksheets.Save

End Sub
Any help is greatly appriecated, I have read through http://www.rondebruin.nl/mail/folder3/filelink.htm and didnt' note any compatible codes.