envoi fichier par mail

[yohann]

Je souhaite faire une macro permettant d'envoyer le fichier à un destinataire par mail.

Je m'explique, mon fichier excel est ouvert, en cliquant sur un bouton je souhaite que le fichier excel soit transmis à un destinataire par email.

Pouvez vous m'aider?

Merci de mon répondre à l'adresse yhulin@atac.fr

Merci d'avance.

 

[g]

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.

 

[Pascal]

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