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.

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

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager