incubus20851
XLDnaute Occasionnel
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.
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
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.
Code:
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
Pièces jointes
Dernière édition: