Bonjour a tous,
Je cherche à envoyer une feuille nommé ‘Feuille1’ de mon classeur nome ‘Paris’ Sous forme de Pièce jointe par Email (HTML) pour deux Client, Ex :" olivier@hotmail.fr , yev@hotmail.fr" avec une seule commande:"Envoyer".
La commande suivante ma fiche ---->"Message" sans la page (Piece Jointe) :
1-je doit séléction ma feuille avec ma souris '$A$1:$H$58
2-Coller
3-Envoyer
Private sub envoyer_click()
Dim MailAd As String
Dim Msg As Range
Dim Maplage As Range
Dim Subj As String
Dim URLto As String
MailAd = "olivier@hotmail.fr,yev@hotmail.fr"
Subj = "Envoi d'une DEMANDE DE CONTRAT"
<souligne>Set Maplage = Application.InputBox(Prompt:="Sélectionnez la plage à imprimer", Title:="Imprimer", Type:=8)
Maplage.Copy</souligne>URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & "Une fois sur le corps d'Outlook faites coller"
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub