Macro Excel Envoyer mail
Résolu/Fermé
Rayan75
Messages postés
9
Date d'inscription
samedi 28 juillet 2007
Statut
Membre
Dernière intervention
26 août 2009
-
6 déc. 2007 à 17:29
néné - 6 déc. 2007 à 19:18
néné - 6 déc. 2007 à 19:18
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.
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.
A voir également:
- Macro Excel Envoyer mail
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Gmail envoyer un mail - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
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
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
