Discussion :

[Grette]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Oliv-]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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.

[Grette]

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.

[Oliv-]

Il faut supprimer cette ligne qui n a pas de sens

[Grette]

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...

[Oliv-]

Remplace bodyformat par htmlbody

[Grette]

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

[Oliv-]

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

[Grette]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Merci de ton aide en tout cas