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
A voir également:
- Macro Excel Envoyer mail
- Liste déroulante excel - Guide
- Yahoo mail - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Formule excel - Guide
- Si et 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