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

Version imprimable

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:

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:

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

22/06/2016, 15h54
Marc-L

Bonjour,

rappel :

http://www.developpez.net/forums/images/misc/sticky.gif Important : Éditorial - à lire avant de poster
22/06/2016, 16h10
Menhir

Si l'on excepte la première ligne de ton code (qui, à priori, ne pose pas de problème), je ne vois pas le rapport avec Excel.
Tu es donc dans la mauvaise rubrique à plus d'un titre.

En plus, le problème se situe vraisemblablement dans la macro envoi_mail que tu ne présentes pas.

Menhir,
Je ne sais pas si je suis hors sujet...
Voici la macro envoi_email, qui est simplissime :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Sub envoi_mail(destin, objet, texte)
Set cdomsg = CreateObject("CDO.message")
With cdomsg.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'NTLM method
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.sfr.fr"
'.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
'.Item("http://schemas.microsoft.com/cdo/configuration/smtpauhenticate") = 1
'.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = "true"
'.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "j.drukker@sfr.fr"
'.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "dzd1pq"
'.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 657 '25
 
.Update
End With
 
With cdomsg
.to = "toto@sfr.fr"  'destin
.FROM = "titi@sfr.fr"
.Subject = objet
'.textBody = texte
.HtmlBody = texte
.Send
End With
    Set cdomsg = Nothing
End Sub

La question est en fait : y a -t-il des règles aux contenus que l'on peut envoyer par mail? Si uoi, quelles sont-elles?

22/06/2016, 17h07
davido84

Voir ici pour la configuration à utiliser.
A+
22/06/2016, 17h45
Pantagruel92

Merci, David....mais ma configuration semble bonne, à moins que je n'y comprenne rien, ce qui st possible! Et si la config était fausse, aucun mail ne partirait....Dans mon problème, c'est le contenu du message qui fait qu'il part ou qu'il ne part pas : Si je termine le texte par "A bientôt", ça ne part pas, si je mets "?????????????", ça part! Je suis dans le brouillard.
22/06/2016, 17h48
Menhir

Tu as essayé de déclarer tes variables avec leurs types (en particulier les paramètres dans ta sous-routine) au lieu de laisser VBA le deviner ?
22/06/2016, 18h00
davido84

A quoi correspond le port 657 que tu utilises ? Que donne le port 465 ou 587 comme indiqué dans le document ? As-tu testé un message sans accent (par ex "A bientot") ?
22/06/2016, 18h05
Pantagruel92

Menhir,
Je crois que je n'ai pas de variable à déclarer dans la sous routine, à part cdomsg? Je viens de la déclarer As Object, sans résultat...
22/06/2016, 18h15
Menhir

Citation:

Envoyé par Pantagruel92

Je crois que je n'ai pas de variable à déclarer dans la sous routine

destin, objet, texte

Ainsi que les déclarations des variables dans la routine principale.
22/06/2016, 18h15
Pantagruel92

David,
Je n'utilise pas de port : il y a un ' devant la ligne. Le port 587 fonctionne, mais avec les mêmes problèmes qu'en laissant le système décider du port.
Quant aux accents, j'y avait pensé : ça ne change rien...
Merci de vos efforts, David et Menhir. Je dois quitter la discussion aujourd'hui, mais si vous avez de nouvelles idées, je serai devant mon écran demain matin.....
23/06/2016, 10h26
Pantagruel92

Menhir,
J'ai tout déclaré : pas d'amélioration. J'essaye autre chose et je reviens en parler.