Caractères spéciaux dans mail

**orokham** · 14/08/2013, 11h20

Bonjour,

J’envoie des mail par Cdo en Html avec une petite appli seulement je le reçois niquel sur mon Gmail mais sur les autres messageries les gens reçoivent des caractères spéciaux.

Voila un exemple de mon code :

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
26
27
28
29
vTexteMail = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">" & _
                            "<HTML><HEAD>" & _
                            "<META http-equiv=Content-Type content=""text/html; charset=iso-8859-1"">" & _
                            "<META content=""MSHTML 6.00.2800.1516"" name=GENERATOR></HEAD>" & _
                            "<BODY><DIV STYLE=""font-size: 10px; font-face: Tahoma;"">"
 
         vTexteMail = vTexteMail & "<img src='http://gui-pas.fr/images/HautPageAFM.jpg' height='130' width='600' /img><br/><br/><br/><br/>"
         vTexteMail = vTexteMail & vRec("Texte_Adr") & "</DIV></BODY></HTML>"   
 
                Dim oCdo As New CDO.Message
                With oCdo
                    With .Configuration.Fields
                        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2                          'ou cdoSendUsingPort : utilisation réseau
                        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.free.fr"       'nom ou IP du serveur SMTP
                        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = "25"               'port utilisé
                        .Update
                    End With
 
 
                    .Subject = vRec("Objet_Adr")                                                 ' objet du message
                    .From = "telethon56e@afm.genethon.fr"                               ' adresse de l'expéditeur
                    .To = vMail                                                                         ' adresse du destinataire
                    .HTMLBody = vTexteMail                                                    ' corps du message HTML
                    If vPièceJointe <> "" Then
                        .AddAttachment vPièceJointe                                               ' lien vers pièce jointe
                    End If
 
                    .Send
                End With

et ceux-ci reçoivent cela :

Nous sommes encore au cour de l'�t� et il nous faut d�j� penser au prochain t�l�thon pr�vu les 6 et 7 d�cembre prochain et dont le parrain sera Patrick BRUEL.

Vous �tes l'initiateur d'une manifestation t�l�thon sur votre commune. Et nous vous en f�licitons et nous esp�rons bien que vous allez poursuivre cette action b�n�vole cette ann�e ?

Vous savez �galement qu'une nouvelle organisation de la Coordination 56 vient de se mettre en place avec une �quipe renforc�e qui est l� pour vous aider � r�ussir votre manifestation.

Chaque euro r�colt� est utile pour financer la recherche. Celle-ci a fait d'�normes progr�

J'ai bien mit charset=iso-8859-1 mais ce ne doit pas être cela...

Merci pour votre aide.

**Thierry_PALLIER** · 14/08/2013, 18h25

Bonsoir orokham
Je n'y connais rien en html mais j'utilise :

Code :

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

charset=us-ascii

et cela marche bien.
Cdlt

**orokham** · 14/08/2013, 22h08

Merci pour ta réponse rapide mais cela ne change rien.

PS - Tout mon texte est de type : texte enrichi

PS1 - J'ai testé en mode texte avec .TextBody = plaintext("ma var") et c'est pareil

**orokham** · 17/08/2013, 08h58

J'ai trouvé mais je met la réponse au cas ou cela pourrait aider d'autres personnes dans mon cas.

La variable Charset que j'ai mit en entête HTML

Code :

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

1
2
3
4
5
        vTexteMail = "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">" & _
                            "<HTML><HEAD>" & _
                            "<META http-equiv=Content-Type content=""text/html; charset=iso-8859-1"">" & _
                            "<META content=""MSHTML 6.00.2800.1516"" name=GENERATOR></HEAD>" & _
                            "<BODY><DIV STYLE=""font-size: 10px; font-face: Tahoma;"">"

Ne fonctionne pas ou n'est pas prise en compte ...

J'ai donc trouvé sur un fofo cette autre façon de déclarer charset :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
                    vTexteMail = vTexteMail & "<img src=""http://gui-pas.fr/images/HautPageAFM.jpg"" height=""100"" width=""500"" /img><br/><br/><br/>"
                    vTexteMail = vTexteMail & vRec("Texte_Adr")

                    .Subject = vRec("Objet_Adr")                                                 ' objet du message
                    .From = "telethon56e@afm.genethon.fr"                               ' adresse de l'expéditeur
                    .To = vMail                                                                         ' adresse du destinataire
                    '.BodyPart.Charset = "utf-8"             'test 1
                    .BodyPart.Charset = "iso-8859-1"     'test 2
                    .HTMLBody = vTexteMail                                                      ' corps du message HTML
                    If Nz(vPièceJointe, "") <> "" Then
                        .AddAttachment vPièceJointe                                               ' lien vers pièce jointe
                    End If

                    .Send

j'ai enlevé toute la 1ère déclaration et cela fonctionne.

Voila et Cordialement.

**Depite** · 19/11/2014, 15h13

Hé oui, je suis bien content que tu aies pris la peine d'inscrire ta solution car je viens à mon tour de l'utiliser.

Caractères spéciaux dans mail [AC-2013]

VBA Access

Vue hybride

Discussions similaires

Partager

Partager