envoi fichier par mail

Bonjour,
Private Sub CommandButton1_Click()
Application.Dialogs(xlDialogSendMail).Show
End Sub
Automatise menu Fichier / Envoyer vers > Destinataire du message (en temps que pièce jointe)…
Bonne journée.

Salut Yohan,

Je t'envoie cette petite macro, elle fonctionne, mais pour ça il faut que outlook (et non outlook express) soit opérationnel
bon courage

Pascal

Sub envoie()
Set ol = CreateObject("outlook.application")
Set mail = ol.createitem(olmailitem)
'Selection du destinataire
mail.Recipients.Add "yhulin@atac.fr" 'peut faire réference à une cellule
mail.Subject = "Inscrire ici le sujet de l'envoie" 'peut faire réference à une cellule
mail.body = "Inscrire ici le corps du message" 'peut faire réference à une cellule
'selection du fichier à envoyer
mail.Attachments.Add "c:\...\mon-fichier" 'adresses du fichier a joindre
mail.OriginatorDeliveryReportRequested = True 'accusé de reception
mail.ReadReceiptRequested = True 'accusé de lecture
mail.send

End Sub