VBA/outlook je veux afficher ma saisie avec balises html tout en gardant mon template html dans le mail

Bonjour !

Je me tourne vers ce forum car j'ai navigué sur tout les autres (et celui-ci) et je n'ai pas trouvé de réponse :? .

Description :
J'ai un code vba sur excel qui permet de remplir un formulaire et d'envoyer un mail avec les données du formulaire tout en respectant une mise en forme (fichier template outlook).

Problème :
Dans le formulaire j'ai un champ ou je saisie un message.
Dans celui-ci je veux pouvoir écrire :
<p> Bonjour !</p>
et dans le mail envoyé voir :
<p> Bonjour !</p>
et non pas :
Bonjour !

Code des infos du formulaires avec format :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

Dim outlookApplication As New Outlook.Application   Dim outlookMailItem As Outlook.MailItem Set outlookMailItem = outlookApplication.CreateItemFromTemplate(Range("cheminTemplate"))   outlookMailItem.To = TextBoxDestinataire.Text outlookMailItem.CC = TextBoxDestinataireCopie.Text outlookMailItem.SentOnBehalfOfName = Range("adresseEmission") outlookMailItem.BCC = Range("adresseEmission")     outlookMailItem.Subject = "[REJECT EDI]" & TextBoxFournisseur.Text   outlookMailItem.HTMLBody = Replace(outlookMailItem.HTMLBody, "dataRejetEDIDateHeure", TextBoxDateHeure.Text) outlookMailItem.HTMLBody = Replace(outlookMailItem.HTMLBody, "dataRejetEDIFournisseur", TextBoxFournisseur.Text) outlookMailItem.HTMLBody = Replace(outlookMailItem.HTMLBody, "dataRejetEDIMessageMetier", Replace(TextBoxMessageMetier.Text, Chr(13), "<br>")) outlookMailItem.BodyFormat = Replace(outlookMailItem.olFormat, "dataRejetEDIRapportTechnique", Replace(TextBoxRapportTechnique.Text, Chr(13), "<br>"))   outlookMailItem.VotingOptions = "Can distribution list be Deleted YES;Can distribution list be Deleted NO"   outlookMailItem.Send

---

Cette ligne est concernée :

Code:

---

1 2	outlookMailItem.BodyFormat = Replace(outlookMailItem.olFormat, "dataRejetEDIRapportTechnique", Replace(TextBoxRapportTechnique.Text, Chr(13), "<br>"))

---

Après outlookMailItem que dois-je mettre en format pour résoudre le problème ? Où il faut regarder ailleurs ?
Des idées ? Merci d'avance :)

Bonjour,

Je pense qu'il y a une grosse erreur déjà là

Code:

---

outlookMailItem.BodyFormat = Replace(outlookMailItem.olFormat, "dataRejetEDIRapportTechnique", Replace(TextBoxRapportTechnique.Text, Chr(13), "<br>"))

---

outlookMailItem.BodyFormat c'est pour dire si ton email est au format BRUT OU HTML, ou RICHTEXT

Citation:

---

Référence du développeur Outlook
OlBodyFormat, énumération
Spécifie le format du corps de texte d'un élément.
Nom Valeur Description
olFormatHTML 2 Format HTML
olFormatPlain 1 Format simple
olFormatRichText 3 Format RTF (texte enrichi)
olFormatUnspecified 0 Format non spécifié

© 2010 Microsoft Corporation. Tous droits réservés.

---

Bonjour,
J'ai testé les olFormatPlain, olFormatRichText, olFormatUnspecified. Toujours la même erreur : 438 propriété ou méthode non gérée par l'objet.

Il faut supprimer cette ligne qui n a pas de sens

Cette ligne permet de remplacer la valeur "dataRejetEDIMessageMetier" ecrite dans un template outlook par la valeur saisie dans le formulaire : TextBoxMessageMetier. Je ne peux donc pas la supprimer car sinon dans le mail envoyé la valeur sera vide...

Remplace bodyformat par htmlbody

Avec HTMLBody je reviens au statut initial de mon code c'est à dire : ma valeur s'affiche mais sans les balises html.

Quel interet de voir les balises dans le mail ? Il faudrait peut etre un exemple plus concret.
Tu peux peut etre doubler tes balises. Ou encoyer ton email au format brut

Bonjour,

J'ai trouvé la solution !
J'ai remplacé les balises "< "et ""> par leurs codes ISO afin qu'elles apparaissent en clair dans le mail.

Code:

---

1 2 3

TextBoxRapportTechnique = Replace(TextBoxRapportTechnique, "<", "&#139;") TextBoxRapportTechnique = Replace(TextBoxRapportTechnique, ">", "&#155;")

---

La ligne précédente s'écrit toujours comme ceci :

Code:

---

1 2	outlookMailItem.HTMLBody = Replace(outlookMailItem.HTMLBody, "dataRejetEDIRapportTechnique", Replace(TextBoxRapportTechnique.Text, Chr(13), "<br>"))

---

Merci de ton aide en tout cas :)