Sending a document by email from Button, MAC compatible

[Ghostbuataar]

Hello !
I have a command button at the end of a form that saves the document then send it over email. It works great. On a Windows platform with Outlook. And that is the problem.
I would like it to be the more universal possible. At least working with MAC. At the moment, even if the MAC computer does have Outlook, it does not work ().

Here's the code I have right now :

Private Sub CommandButton11_Click()

Dim OL As Object
Dim EmailItem As Object
Dim Doc As Document
Application.ScreenUpdating = False
Set OL = CreateObject("Outlook.Application")
Set EmailItem = OL.CreateItem(olMailItem)
Set Doc = ActiveDocument
Doc.Save
With EmailItem
.Subject = "New order"
.Body = "New order attached !" & vbCrLf & _
"" & vbCrLf & _
"Thank you"
.To = "XXX@XYZ.com"
.Importance = olImportanceHigh 'Or olImprotanceHigh Or olImprotanceLow
.Attachments.Add Doc.FullName
.Display
End With
Application.ScreenUpdating = True
Set Doc = Nothing
Set OL = Nothing
Set EmailItem = Nothing
End Sub

What I want :
Make sure it works with outlook on MAC.

Bonus :
Make it work with any desktop based email client on both Windows and MAC (I love dreaming).

PS : I'm working with Word 2010 right now

Edit :
Here's something I use on Exel, that work but does not in word, sadly :

Application.Dialogs(xlDialogSendMail).Show arg1:="rXYZ@gmail.com", _
                      arg2:="Purchase order - Step"
End Sub

Anything similar in word ?