Envoi onglets par mail

[incubus20851]

Bonjour,

Sous Outlook :
J'aimerais pouvoir envoyer des onglets à différentes personnes.

avec un objet renseigné, un corps de texte, et si possible une signature déjà enregistré dans outlook

J'ai essayé ce code mais il ne prends pas en compte, je n'ai pas l'objet personnalisée, le nom du fichier et pas le corps du mail.

Sub envoiMailEtFeuilleActive()
Sheet("MM").Select
Dim OutApp As Object
ActiveSheet.Copy ' créée une copie de la feuille active
Dim OutMail As Object
Dim corps As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
corps = "<font style='font-family: Tahoma ;font-size: 12pt ;' color=midnightblue><p>Bonjour,</p><p>Vous trouverez ci-joint le fichier contenant les et autres documents manquants.</p><p>Merci de bien vouloir m'envoyer les documents demandées ci-joint dans le fichier.</p><p>Bonne réception</p><p>Cordialement</p><p>V<p>GESTIONNAIRE<p>03</font>"
With OutMail
.Subject = "Demandes"
.HTMLBody = corps
ActiveWorkbook.SendMail Recipients:="test@test.fr"
Application.DisplayAlerts = False
ActiveWorkbook.Close ' supprime le classeur créé après l'envoi
Application.DisplayAlerts = True
End With
End Sub

Ici c'est le code pour un bouton pour un onglet, avec plusieurs bouton à chaque fois

voici un ptit fichier en pièce jointe pour plus d'informations

Si y'a une ame charitable qui peut m'aider

Merci d'avance pour vos réponses
A bientôt

 

[incubus20851]

Re : Envoi onglets par mail

personne ? ....

 

[MJ13]

Re : Envoi onglets par mail

Bonjour

Dans un premier temps fait une recherche sur le forum avec

Envoi mail automatique

Il y a déjà beaucoup de discussions sur le sujet.