[Déplacé VB6 -- VBA] Envoie Une Feuille Excel"2003" d'1 Classeur

Question

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"
Set Maplage = Application.InputBox(Prompt:="Sélectionnez la plage à imprimer", Title:="Imprimer", Type:=8)
Maplage.CopyURLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & "Une fois sur le corps d'Outlook faites coller"
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

cs_Jack · Answer

Salut
As-tu fait une simple recherche de "vba envoyer mail" parmi les codes (sauf .net) ?

Vala
Jack, MVP VB
NB : Je ne répondrai pas aux messages privés

Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)

cs_microsig · Answer

Bonjour a touts
Enfaite Pour Information mes messages ne sont pas Prives, c'est une erreur de ma part 
Merci  de votre intervention .et de me répondre.
Toujours a la recherche d'une solution Pour mon envoie d'Email avec Une celle Commande
Merci

[Déplacé VB6 --> VBA] Envoie Une Feuille Excel"2003" d'1 Classeur

2 réponses

Votre réponse

Discussions similaires