Macro Excel Envoyer mail

Résolu/Fermé
Signaler
Messages postés
9
Date d'inscription
samedi 28 juillet 2007
Statut
Membre
Dernière intervention
26 août 2009
-
 néné -
Bonjour,

Je voudrai créer, si c'est possible, une macro sur Excel, capable d'envoyer une feuille d'un classeur dans le corps du message (sur out look).

Pouvez vous me conseiller merci d'avance.

2 réponses

Bonjour

Voici une macro

Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As Range
Dim Maplage As Range
Dim Subj As String
Dim URLto As String
MailAd = "adressedestinataire@free.fr"
Subj = "Envoi d'une sélection"
Set Maplage = Application.InputBox(Prompt:="Sélectionnez la plage à imprimer", Title:="Imprimer", Type:=8)
Maplage.Copy

URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & "Une fois sur le corps d'Outlook faites coller"
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub
Bonjour,
Si c'est ponctuel, le plus simple est de faire un copier-coller.
Sinon tu peux toujours envoyer ton tableau en pièce jointe.

A+

pepe35