Contenu d'un envoi e-mail (Excel, VBA)

**Pantagruel92** · 22/06/2016, 16h10

Bonjour,
Je veux envoyer des mails aux personnes qui seront de service u cinéma où je travaille. Voilà le morceau de code qui pose problème :

Code :

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

1
2
3
4
5
6
7
                        destin = S1.Cells(lig1, c1 + 1)
                        objet = messobj1 & messobj2 & ", " & Format(S1.Cells(lig, 1), "dddd dd mmm") & mess1
                         texte1 = "<html><body>Bonjour "
                         texte2 = nom
                         texte3 = "<br>C'est après-demain, n'oublie pas!<br>Cordialement.</body></html>"
                         texte = texte1 & texte2 & texte3
                        Call envoi_mail(destin, objet, texte)

Ce message passe très bien.
par contre, quand je veux envoyer ceci :

Code :

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

1
2
3
4
5
6
7
8
 
                        destin = S1.Cells(lig1, c1 + 1)
                        objet = messobj1 & messobj2 & ", " & Format(S1.Cells(lig, 1), "dddd dd mmm") & mess1
                         texte1 = "<html><body>Bonjour "
                         texte2 = nom
                         texte3 = "<br>C'est après-demain, n'oublie pas!<br>Cordialement. Le cinéma Saint-Gilles</body></html>"
                         texte = texte1 & texte2 & texte3
                        Call envoi_mail(destin, objet, texte)

Je reçois le message d'erreur : Le message n'a pas pu être envoyé...Message content rejected.
Le seul fait d'allonger mon texte de quelques mots fait que ça ne passe pas. J'ai fait moult essais : par exemple, si à la place de "Le cinéma saint-Gilles", je mets "?????????????????????", le mail part sans problème! Si, après "...Cordialement" je rajoute une lettre : erreur. Si je rajoute"§" : erreur. Si je rajoute ".......", ça part! Quelqu'un a une idée?
Merci d'avance

**parmi** · 22/06/2016, 17h49

Bonjour,

Peut-être est-ce dû à la correction automatique (?)
Si tu l'enlèves et que tu fais un test, est-ce que ça passe mieux ?
Autrement, je ne vois pas pourquoi ce bout de phrase causerait problème (?!)

**jeanmidudu** · 23/06/2016, 08h28

Peut-être un problème d'encodage des caractères? Je ne sui pas certain, mais à vérifier.

**jijie** · 23/06/2016, 08h44

Bonjour,

Si tu place dans un module :

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
Function TxtHtml(T As String) As String
Dim Txt
Dim Htm
Dim I As Long
TxtHtml = T
Txt = "Á$á$É$é$Í$í$Ó$ó$Ú$ú$Ý$ý$À$à$È$è$Ì$ì$Ò$ò$Ù$ù$Â$â$Ê$ê$Î$î$Ô$ô$Û$û$Ä$ä$Ë$ë$Ï$ï$Ö$ö$Ü$ü$Ÿ$ÿ$Ã$ã$Õ$õ$Ç$ç$ $" & vbCrLf
Htm = "&Aacute;$&aacute;$&Eacute;$&eacute;$&Iacute;$&iacute;$&Oacute;$&oacute;$&Uacute;$&uacute;$&Yacute;$&yacute;$&Agrave;$&agrave;$&Egrave;$&egrave;$&Igrave;$&igrave;"
Htm = Htm & "$&Ograve;$&ograve;$&Ugrave;$&ugrave;$&Acirc;$&acirc;$&Ecirc;$&ecirc;$&Icirc;$&icirc;$&Ocirc;$&ocirc;$&Ucirc;$&ucirc;$&Auml;$&auml;$&Euml;$&euml;"
Htm = Htm & "$&Ouml;$&ouml;$&Uuml;$&uuml;$&Yuml;$&yuml;$&Atilde;$&atilde;$&Itilde;$&itilde;$&Otilde;$&otilde;$&Ccedil;$&ccedil;$&nbsp;$<br>"
Txt = Split(Txt, "$")
Htm = Split(Htm, "$")
For I = 0 To UBound(Txt)
TxtHtml = Replace(TxtHtml, Txt(I), Htm(I), 1, compare:=vbBinaryCompare)
Next
End Function

ensuite dans ton code:

Code :

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

MonTEXTE=" Bonjour " & nom  & vbCrLf & vbCrLf & "C'est après-demain, n'oublie pas!"  & vbCrLf & vbCrLf & "Cordialement." & vbCrLf & "Le cinéma Saint-Gilles"

et dans ta procédure d'envoi:

Code :

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

.HTMLBody = TxtHtml(MonTEXTE)

**Pantagruel92** · 23/06/2016, 09h46

Pardon de ne pas avoir répondu rapidement : j'ai été appelé ailleurs!
Parmi, Jeanmidudu, j'ai essayé, ça ne marche pas mieux.
Jijie, je vais essayer de construire mon texte HTML comme tu le dis. Verdict dans l'après midi.
Cordialement. Merci à tous.

**Pantagruel92** · 23/06/2016, 10h54

Jijie,
J'ai une erreur de compilaltion sur la ligne HtmlBody = TxtHtml(montexte) disant "Type d'argument ByRef incompatible"....et là, je manque de compétences pour comprendre ce que le compilateur attend. J'ai declaré montexte comme string. Help!

Pardon : mes déclarations étaient fausses. La fonction TxtHtml fonctionne.

**Pantagruel92** · 23/06/2016, 11h35

Suite du feuilleton, Jijie. Ton système d'encodage du texte du message ne change rien. En s’arrêtant à "Cordialement.", l email part, en rajoutant une phrase, il ne part pas...Je crois que je vais abandonner, et envoyer un message court.

**parmi** · 23/06/2016, 12h03

Ce n'est pas la longueur du message qui est en problème.
Bien possible que ce soit un caractère qui ne passe pas.
J'avais pensé à la correction automatique, mais possiblement un mauvais encodage comme stipulé par jeanmidudu.

**jijie** · 23/06/2016, 22h52

Je te propose de nous montrer ton code au complet stp, car franchement ça doit fonctionner!

**patricktoulon** · 24/06/2016, 00h24

ouiais!! ou alors tu travaille en innerthtml direct
exemple

Code :

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

1
2
3
4
5
6
7
8
 
dim nom as string 
nom="Toto"
texte = "Bonjour "& vbcrlf 
texte =texte &  nom  & vbcrlf
texte = texte & "C'est après-demain, n'oublie pas" & vbcrlf & "Cordialement. Le cinéma Saint-Gilles"
' transformation html
 texte ="<html><body><p>" & replace(texte,vbcrlf ,"</p><p>") &"</p></body></html>"

les caractères spéciaux seront respectés car c'est entré dans le innertext directement

**Pantagruel92** · 01/07/2016, 12h11

PatrickToulon,
Absent plusieurs jours. Je reviens sur mon pb.
J'ai essayé, ça marche.....J'en aurais appris des trucs avec ce problème! Merci à tous. Je considère comme résolu.

Contenu d'un envoi e-mail (Excel, VBA)

Macros et VBA Excel

Discussions similaires

Partager

Partager