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

**Pantagruel92** · 22/06/2016, 15h52

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

**Marc-L** · 22/06/2016, 15h54

Bonjour,

rappel :

Important : Éditorial - à lire avant de poster

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

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.

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

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

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

**davido84** · 22/06/2016, 17h07

Voir ici pour la configuration à utiliser.
A+

**Pantagruel92** · 22/06/2016, 17h45

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.

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

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager