application mail par défaut

Bonjour, j'utilise cette macro pour envoyer un fichier excel ouvert par mail à partir du fichier ouvert. Actuellement cette macro fonctionne parfaitement mais nécéssite d'avoir outlook.

Je voudrais pourvoir l'adapter pour quelle fonctionne avec le logiciel de mail par défaut, tout en gardant la possibilité d'écrire un objet et un texte d'accompagnement.

Merci de m'éclairer sur ce point





Sub Envoi_mail()
Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String

ActiveWorkbook.Activate

Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)
With Olmail
.To = "monmail@wanadoo.fr"
.CC = ""
.Subject = "Envoi du Questionnaire"
.Body = "Questionnaire client"
.Attachments.Add ActiveWorkbook.Path & "\" & ActiveWorkbook.Name


'fait partir le mail
.Send
'met le mail dans les brouillons
'.Display

End With

End Sub


la macro ci-dessous utilise le logiciel mail par défaut mais sans objet ni texte

Sub envoyer_Click()
'ActiveSheet.Copy
ActiveWorkbook.SendMail Recipients:="monmail@wanadoo.fr"
ActiveWorkbook.Close savechanges:=False
MsgBox ("Feuille envoyée au support center")
End Sub